2、其他过程:Private Sub CmdHighLight_Click() If Not LastRange Is Nothing Then For Each rng In LastRange rng.Interior.Color = Dic(rng.Address) If rng.Interior.Color = 16777215 Then rng.Interior.ColorIndex = xlNone End If Next Set LastRange = Nothing ' 清除上次突...
步骤1:在EXCEL中,点击“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 ...
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...
ExcelVBA教程:ColorIndex属性 应⽤于 Border对象的 ColorIndex属性。返回或设置边框的颜⾊。该颜⾊可指定为当前调⾊板中颜⾊的编号,或下列XlColorIndex 常量之⼀。Variant 类型,可读写。XlColorIndex 可为以下 XlColorIndex 常量之⼀。xlColorIndexAutomatic xlColorIndexNone expression.ColorIndex express...
1 首先不要建立一张EXCEL表格,并简单创建一个按钮控件,写上ColorIndex = 8属性显示的按钮控件,如下图所示:2 在建立好的按钮控件下,点击鼠标右键,找到指定宏,创建模块即可,如下图所示:3 在vba的项目模式下,找到模块一,就可以在模块一的界面下编写代码,如下图所示:方法/步骤2 1 接下来就是编写代码...
Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图:步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏:步骤3. 点击圆按钮,查看效果:非常的漂亮,和图1一样,这就是VBA中利用Interior.ColorIndex方法的简单介绍,...
1 首先需要建立一张空白表格,然后再界面下创建一个按钮控件,以便可以体现ColorIndex =11部分属性的情况,如下图所示:2 点击鼠标右键,找到指定宏,进入到EXCEL的vba的project项目模式下,如下图所示:3 找到指定宏后,就可以进入到vba的project项目模式下,在模块中编写可以体现ColorIndex =11部分属性的代码,如下...
接下来,介绍在EXCEL中利用VBA自动控制颜色显示的方法:步骤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 ...
步骤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 =12的部分属性情况,如下图所示:2 点击鼠标右键,进入到EXCEL的project项目模式下创建模块,找到指定宏即可,如下图所示:3 进入到EXCEL的vbaproject项目模式下,可以在模块一中的空白界面编写代码,如下图所示:方法/步骤2 1 接下来就...