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...
因此,将“A1:I1”单元格区域的字体大小设置为12的语句为“Range("A1:E1").Font.Size = 12” 。同样,使用“ColorIndex”为设置颜色编号的属性,其颜色编号与颜色的对照为,黑色代码为1,白的代码为2,红色代码为3,绿色代码为4,蓝色代码为5,黄色代码为6,紫色代码为7,青色代码为8,将“A1:I1”单元格区域的字...
ExcelVBA教程：ColorIndex属性 应⽤于 Border对象的 ColorIndex属性。返回或设置边框的颜⾊。该颜⾊可指定为当前调⾊板中颜⾊的编号，或下列XlColorIndex 常量之⼀。Variant 类型，可读写。XlColorIndex 可为以下 XlColorIndex 常量之⼀。xlColorIndexAutomatic xlColorIndexNone expression.ColorIndex express...
XlColorIndex 可为以下 XlColorIndex 常量之一。 xlColorIndexAutomatic 指定自动设置颜色。 xlColorIndexNone. expression.ColorIndex expression 必需。该表达式返回“应用于”列表中的对象之一。 应用于 Interior对象的 ColorIndex属性。 返回或设置边框内部的颜色。该颜色可指定为当前调色板中颜色的编号,或下列XlColorIn...
Range("A1:I1").Font.ColorIndex = 3 End Sub”。 其中,Sub是宏过程,End Sub是结束宏过程,一个过程就是执行某项动作的一套指令,Sub过程不返回运行的结果,在这个过程中需要执行的代码放在中间。 ④编写完宏后,选择“文件”、“关闭并返回到Microsoft Excel”选项,即可关闭窗口。
ColorIndex是Excel内置的颜色,取值范围从0-56,其中0表示清除背景色。1-56表示我们可用的颜色,但是很难记住每个数字所代表的颜色。下面我们用VBA把每个ColorIndex值和所代表的颜色输出到Excel单元格,以后用得着的时候可以参考。 ArrayList的使用需要按照之前的文章描述的方法,手动导入引用文件。参照下图: ...
Cells(t, i).Interior.ColorIndex = 19 * (i - 1) + t - 1 Next Next MsgBox ("ok!") End Sub 下面是代码录入后的截图: 步骤2 在工作表sheet1中,画个圆,右键连上上面的”YS”宏: 步骤3. 点击圆按钮,查看效果: 非常的漂亮,和图一显示是一样。这就是VBA中利用Interior.ColorIndex方法的简单介绍...
= .UsedRange.Rows.Count lastCol = .UsedRange.Columns.Count Set dataRange = .Range("A1").Resize(lastRow, lastCol) '检查上次是否有突出显示的区域，如果有，还原它们的格式 If Not LastRange Is Nothing Then LastRange.Interior.ColorIndex = xlNone ' 清除上次的突出显示 Set LastRang...
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...
同样,使用“ColorIndex”为设置颜色编号的属性,其颜色编号与颜色的对照为,黑色代码为1,白的代码为2,红色代码为3,绿色代码为4,蓝色代码为5,黄色代码为6,紫色代码为7,青色代码为8,将“A1:I1”单元格区域的字体颜色设置为红色的语句为“Range("A1:E1").Font.ColorIndex = 3” 。