1 首先不要建立一张EXCEL表格，并简单创建一个按钮控件，写上ColorIndex = 8属性显示的按钮控件，如下图所示：2 在建立好的按钮控件下，点击鼠标右键，找到指定宏，创建模块即可，如下图所示：3 在vba的项目模式下，找到模块一，就可以在模块一的界面下编写代码，如下图所示：方法/步骤2 1 接下来就是编写代码...
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 首先需要建立一张表格，并设置创建一个按钮控件，用于触发使用体现ColorIndex =12的部分属性情况，如下图所示：2 点击鼠标右键，进入到EXCEL的project项目模式下创建模块，找到指定宏即可，如下图所示：3 进入到EXCEL的vbaproject项目模式下，可以在模块一中的空白界面编写代码，如下图所示：方法/步骤2 1 接下来就...
1 首先需要建立一张空白表格，然后再界面下创建一个按钮控件，以便可以体现ColorIndex =11部分属性的情况，如下图所示：2 点击鼠标右键，找到指定宏，进入到EXCEL的vba的project项目模式下，如下图所示：3 找到指定宏后，就可以进入到vba的project项目模式下，在模块中编写可以体现ColorIndex =11部分属性的代码，如下...
1 接下来就是编写代码，实现ColorIndex =15属性情况，vba的代码编写如下图所示：2 代码：Sub Msg()Sheet1.Range("B3:D6").Interior.ColorIndex = 15End Sub 方法/步骤3 1 最后就是点击按钮控件，执行代码，显示结果，运行模块一代码，如下图所示显示结果。2 最终就是可以得出代码显示的结果，为区域单元格中...
1 首先建立一张表格，并简单创建一个按钮控件，利用按钮控件点击触发代码，实现ColorIndex = 9部分属性的说明，如下图所示：2 点击鼠标右键，找到指定宏，点击创建一个模块一，如下图所示：3 创建一个模块一中，在vba的project项目模式下，在模块一中的界面下编写代码，以便执行，如下图所示：方法/步骤2 1 接下来...
Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图: 步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏: 步骤3. 点击圆按钮,查看效果: 非常的漂亮,和图一显示是一样。这就是VBA中利用Interior.ColorIndex方法的简单介绍...
下面就讲解在EXCEL中如何通过VBA来实颜色显示的自动控制。步骤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...
步骤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：在工作...
Excel VBA Interior.ColorIndex 色彩列表 使用如下VBA代码取得相应的单元格底色 Sub a()Sub a() Range("A1").Select For i = 0 To 56 Step 1 ActiveCell.Interior.ColorIndex= i ActiveCell.Offset(0, 1).Value2 = i If i Mod 19 = 18 And i <> 0 Then...