点击按钮后，我们看sheet2的页面，是给“部”“区”间的字符设置颜色：Ø代码见程序文件：VBA_ChangeFontColor.xlsm
要对“Font”对象设置 “Size”属性。“Font”是表示字体属性的的对象。“Font”对象位于“Range”对象的下一级。因此,将“A1:I1”单元格区域的字体大小设置为12的语句为“Range("A1:E1").Font.Size = 12” 。同样,使用“ColorIndex”为设置颜色编号的属性,其颜色编号与颜色的对照为,黑色代码为1,白的代码为...
“Font”是表示字体属性的的对象。“Font”对象位于“Range”对象的下一级。因此,将“A1:I1”单元格区域的字体大小设置为12的语句为“Range("A1:E1").Font.Size = 12” 。同样,使用“ColorIndex”为设置颜色编号的属性,其颜色编号与颜色的对照为,黑色代码为1,白的代码为2,红色代码为3,绿色代码为4,蓝色代码...
Range("C" & i).Font.ColorIndex = 1 Range("D" & i).Font.ColorIndex = 1 Range("C" & i).Interior.ColorIndex = 43 Range("D" & i).Interior.ColorIndex = 43 Else '注:Next i前面的语句全为else语句。 str1 = Range("C" & i) With reg .Global = True .Pattern = "[^_]{1,1}...
Range("A1:I1").Font.Size = 12 Range("A1:I1").Font.ColorIndex = 3 End Sub”。 其中,Sub是宏过程,End Sub是结束宏过程,一个过程就是执行某项动作的一套指令,Sub过程不返回运行的结果,在这个过程中需要执行的代码放在中间。 编写完宏后,选择“文件”、“关闭并返回到Microsoft Excel”选项,即可关闭...
ColorIndex一览 改变文字颜色 Range("A1").Font.ColorIndex = 1 1. 获取单元格 Cells(1, 2) Range("H7") 1. 2. 获取范围 Range(Cells(2, 3), Cells(4, 5)) Range("a1:c3") '用快捷记号引用单元格 Worksheets("Sheet1").[A1:B5]
1 首先在开发工具中打开VBA编辑器 2 在单元格区域当中输入一些内容作为例子 3 在VBA编辑器中插入模块 4 在模块当中输入如下代码，然后运行Sub adc() On Error Resume Next '出错继续执行后面的代码 'Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3 'Selection.Font.ColorIndex = 5 ...
2 Selection.Count单元格计数 语句说明：完成当前选中区域的单元格计数 备注：Selection是指选择的区域和SELECT不同，这和英语的意义相同，SELECT是指选择的动作，而Selection是指选择动作后形成的选择的区域，是名词。3 TextColor=Range(“A1”).Font.ColorIndex 颜色值的属性 语句说明：检查单元格A1的文本颜色并...
1 首先在开发工具中打开VBA编辑器 2 在单元格区域当中输入一些内容作为例子 3 在VBA编辑器中插入模块 4 在模块当中输入如下代码，然后运行Sub adc() On Error Resume Next '出错继续执行后面的代码 'Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3 'Selection.Font.ColorIndex = 5 ...
Font.ColorIndex = 32 '设置颜色 Selection.Font.Size = 12 '设置字体大小 Next i End sub 代码解析: 首先,定义变量为长整型; 其次,通过for循环,选择双数行设置颜色及字体。如果表的最大行是10,会循环5次,最大行是11,也会循环5次,最大行是12,循环6次,以此类推。 当然excel 超级表也可以达到这种隔行...