图1下面就讲解在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) + t - 1
Next
Next
MsgBox ("ok!")
End Sub
下面是代码录入后的截图：
T2步骤2 在工作表sheet1中，画个圆，右键连上上面的”YS”宏：
T3步骤3. 点击圆按钮，查看效果：T4非常的漂亮，和图1一样，这就是VBA中利用Interior.ColorIndex方法的简单介绍，实际工作中还有很灵活的用法，如当单元格出现负值时显示什么颜色，都可以参考上述的代码和颜色值。
分享成果，随喜正能量。