步骤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 ...
Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图: 步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏: 步骤3. 点击圆按钮,查看效果: 非常的漂亮,和图一显示是一样。这就是VBA中利用Interior.ColorIndex方法的简单介绍...
步骤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：在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 ...
1 首先需要创建一个空白的EXCEL表格，并建立一个按钮控件，效果如下图所示：2 在EXCEL表格控件下，点击鼠标右键，找到指定宏，效果如下图所示：3 创建一个模块一，在EXCEL表格中的project项目下，效果如下图所示：方法/步骤2 1 接下来就是编写代码，Interior.ColorIndex = 28体现vba代码属性的代码编写，效果如下图...
excel是一款很经典的数据分析的工具，里面包含了很多内置函数，但实际情况有时却复杂得多，而excel的宏...
ActiveCell.Interior.ColorIndex是VBA中用于设置单元格背景颜色的属性。ColorIndex属性接受一个整数值,用于表示不同的颜色。-4142是ColorIndex属性中的一个特殊值,表示无颜色或无填充。 条件格式错误是指在设置条件格式时出现了错误。可能是由于语法错误、逻辑错误或其他原因导致的。
对象.PatternColorIndex=设置值2 下例中,将单元格B2~F2中的单元格背景色设置为无色,并将它们的图案类型设置为75%灰色,图案颜色设置为淡蓝。将单元格Interior对象的ColorIndex属性设置为0,即可以把单元格的背景色设置为无色。 完成之后的效果是这个样子的。
If oSng > -1 And oSng < 1 Then'如果小于60则填充为60 If oSng <> 0 Then'如果等于0则跳过,进入下层循环 'Cells(oSel.Row, oSel.Column).Value = 8888 oSel.Interior.ColorIndex=10'对应的色谱如下所示。 End If End If End If End If Next oSel End Sub...