WorkSheets(1).Cells(1,1).Value.Interior.ColorIndex = 39 ‘将cell A1的值设置为color index为39的颜色
colorindex对应56个值,小于1就是无色了! 大于56就要报错了,大家可以测试! 下面时演示代码: Sub 按钮1_Click() r = 1 c = 1 For j = 1 To 56 r = r + 1 Cells(r, c).Interior.ColorIndex = j Cells(r, c + 1) = j If r = 15 Then r = 1 c = c + 2 End If Next j End Sub...
步骤1：在ECCEL中，点击“ALT+F11”进入宏编辑界面，点插入》》模块，进入宏编辑界面：录入代码：Sub YS()Sheets("SHEET1").Select For i = 1 To 3 For t = 1 To 19 Cells(t, i).Select Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub ...
interior font HTML bgcolor= Red< Green Blue Color Black [Color 1] #000000 #000000 0 0 0 [Black] White [Color 2] #FFFFFF #FFFFFF 255 255 255 [White] Red [Color 3] #FF0000 #FF0000 255 0 0 [Red] Green [Color 4] #00FF00 #00FF00 0 255 0 [Green] Blue [Color 5] #0000FF...
Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图: 步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏: 步骤3. 点击圆按钮,查看效果: 非常的漂亮,和图一显示是一样。这就是VBA中利用Interior.ColorIndex方法的简单介绍...
colorindex属性它翻译过来是颜色索引的意思,不明白索引是什么的可以看下讲义这张图,索引我们可以理解为这(1-56)个编号(至于是不是只有这么多我没研究,有兴趣的自己研究),再通过这个编号映射到颜色或者说是找到颜色。 他不是颜色,只是颜色的编号,而且可以做一些人为的干预,比如修改编号所对应的颜色,类似thisworkbook....
步骤1：打开宏编辑界面，点击“ALT+F11”，在模块中插入代码。代码如下：Sub YS()Sheets("SHEET1").Select For i = 1 To 3 For t = 1 To 19 Cells(t, i).Select Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!")End Sub 步骤2：在工作...
步骤1：在EXCEL中按下"ALT+F11"键，进入宏编辑界面，点击“插入”>“模块”，打开宏编辑界面。步骤2：在宏编辑窗口中输入以下代码：Sub YS()Sheets("SHEET1").Select For i = 1 To 3 For t = 1 To 19 Cells(t, i).Select Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t...
1 接下来就是在，项目模块一中编写代码，在单元格的模块区域中显示ColorIndex = 4结果，代码编写如下图所示：2 代码显示：Sub Msg()Sheet1.Range("B3:D6").Interior.ColorIndex = 4End Sub 方法/步骤3 1 最后就是点击按钮控件，显示区域颜色的结果，体现ColorIndex = 4的情况，如下图所示：2 最终可以得出...
1 首先建立一张表格，并创建一个按钮控件，用于触发代码ColorIndex = 5属性显示的按钮控件，如下图所示：2 点击按钮控件，右击找到指定宏，如下图所示，操作一遍可以进入到模块一中，如下图所示：3 进入到vba的项目模式中，找到模块一，以便可以编写体现ColorIndex = 5属性的代码，如下图所示：方法/步骤2 1 接...