使用如下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 ActiveCell.Offset(-18, 2).Select Else ActiveCell.Offset(1, 0).Select End I...
Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图: 步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏: 步骤3. 点击圆按钮,查看效果: 非常的漂亮,和图一显示是一样。这就是VBA中利用Interior.ColorIndex方法的简单介绍...
步骤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 ...
1 首先需要建立一张表格，用于简要说明Interior.Color = 1属性情况显示，需要建立一个按钮控件，如下图所示：2 点击鼠标右键，进入到指定宏，方便编写代码如下图所示：3 进入到vba的project项目模式下，如下图所示，可以在模块一中编写代码。方法/步骤2 1 接下来就是编写代码，可以显示Interior.Color = 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：在工作...
方法/步骤 1 首先需要建立一张表格，创建一个按钮控件，方便执行Interior.Color=7000代码的触发，如下图所示：2 点击按钮控件鼠标右键，找到制定宏，如下图所示：3 进入到vba的project项目模式下，方便编写代码，如下图所示：方法/步骤2 1 接下来就是编写代码，用于显示Interior.Color=7000属性点的模式，如下图所示...
步骤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...
interior.color的值是一个十进制的值，也就是可以为long长整数值，而RGB（XXX,XXX,XXX）可以转换为一...
1 接下来就是编写代码，Interior.ColorIndex = 28体现vba代码属性的代码编写，效果如下图所示：2 代码编写：Sub Msg()Sheet1.Range("C2:E6").Interior.ColorIndex = 28End Sub 方法/步骤3 1 最后就是在EXCEL表格的界面下，点击按钮，执行代码，显示结果，体现EXCEL表格区域单元格背景色，效果如下图所示：2 ...
color是long形的, rgb函数可以得到一个color的值,它的返回值就是long形的