currCell.Interior.color = RGB(r, g, b) If GetContrastColor(currCell.Interior.color) = vbBlack Then currCell.Font.color = vbBlack Else currCell.Font.color = vbWhite End If currCell.Offset(0, -1).Interior.color = RGB(r, g, b) End With Q = Q + 1 End Sub Sub AutoChangeColor(...
With Selection.Format.Fill '''操作被选择的对象的格式 .ForeColor.RGB = RGB(77, 149, 179) '''填充色的RGB值为【77,149,179】 End With '''With结束语句 Else '''如果当前累计百分比值大于完成度的值 With Selection.Format.Fill .ForeColor.RGB = RGB(217, 217, 217) '''填充色的RGB值为【217...
With Selection.Format.Fill '''操作被选择的对象的格式 .ForeColor.RGB = RGB(77, 149, 179) '''填充色的RGB值为【77,149,179】 End With '''With结束语句 Else '''如果当前累计百分比值大于完成度的值 With Selection.Format.Fill .ForeColor.RGB = RGB(217, 217, 217) '''填充色的RGB值为【217...
在模块1里：Function GetColor(colorName As String) As Long Dim colorDict As Object Set colorDict = CreateObject("Scripting.Dictionary") colorDict("白") = rgb(255, 255, 255) colorDict("白色") = rgb(255, 255, 255) colorDict("White") = rgb(255, 255, 255) 此处略去100...
看着简单,但作者研究了半天,却只能想到用VBA来做。 下面就是制作步骤: STEP1:制作图表源 在A1单元格输入“数据源”,在A2:A101单元格区域输入100个1,作为图表的占位数据; STEP2:选中A1:A101单元格区域,工具栏插入——图表——环形图,得到下面的图表。
看着简单,但作者研究了半天,却只能想到用VBA来做。 下面就是制作步骤: STEP1:制作图表源 在A1单元格输入“数据源”,在A2:A101单元格区域输入100个1,作为图表的占位数据; STEP2:选中A1:A101单元格区域,工具栏插入——图表——环形图,得到下面的图表。
EntireColumn) Set currRange = Intersect(currRange, dataRange) End If For Each rng In currRange Dic(rng.Address) = rng.Interior.Color Next currRange.Interior.Color = RGB(245, 245, 220) Set LastRange = currRange End WithEnd Sub代码解析：（1）高亮单元格的主程序，...
(2)ChangeColor过程,通过Rnd函数生成0~1的随机数,让它乘上255再取整,就得到一个0~255的随机数,正好是RGB颜色的R/G/B的值。 (3)取得RGB的值以后,据以设置“A1:E10”单元格的背景色;同时把颜色值顺序写入I列,通过range().End(xlup)的方法取得最后一个非空单元格,再使用offset的方法得到下面一个空单元格...
1 1.打开Excel表格；2.按下Alt+F11；3.输入代码，主要代码为：Range("A1:A10").Font.Color = VBA.RGB(125, 125, 125)Range("B1:B10").Font.Color = vbRed4.点击“运行子程序”；5.就将A1:B10内单元格颜色变成了相应的颜色。注意事项 Tips：如果要保存代码，需要保存为xlsm格式或xls格式 关注以往和...
下面具体解释一下，通过vba代码实现的方法。No.2 首先要明解如何来实现对表格内部背景设置。我们要知道表格内部用Interior对象来表示，这就是说要用到这个对象的一些属性。其简单纯色背景只要对Color属性赋值就可以实现背景颜色设置。如：Range（“A”）.interior.color=rgb(222,1,1)上面代码就对A1单元格背景设置为...