interior.color的值是一个十进制的值，也就是可以为long长整数值，而RGB（XXX,XXX,XXX）可以转换为一...
color是long形的, rgb函数可以得到一个color的值,它的返回值就是long形的
Cells(t, i).Select Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图: 步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏: 步骤3. 点击圆按钮,查看效果: 非常的漂亮,和图一显示是一样。这就是VBA中利用Interior.C...
步骤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：打开宏编辑界面，点击“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...
使用如下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 ...
interior.color的值是一个十进制数,范围是0-16777215. 属于long长整形范围 我研究了一下,规律是这样: 在excel中的RGB值,顺序是BGR,所以纯蓝色是(255,000,000),纯绿色是(000,255,000),纯红色是(000,000,255)对应的十六进制分别是FF0000;00FF00;0000FF。把这三个十六进制化成十进制数就是16711680;65280;25...
是十进制数格式，查询interior．color的值。1．参考下表可以查询某一种颜色的颜色指标值。2．首先，您需要在EXCEL工作表的空白页下创建一个按钮控件。效果如下图所示：是的 3．单击鼠标右键找到指定的宏并创建宏模块。操作界面如下图所示：4．进入vbaprojectproject模式，找到模块1，在模块1的界面中编写...