EXCEL中VBA实例技巧：[1]单元格字体格式设置

1、如图所示我们想将单元格的文本的字体进行修改。原来是宋体字。

2、右击当前工作表，在弹出的菜单中选择“查看代码”

3、首先我们在窗口中输入

Public Sub chgFont()

End Sub

1、使用 Public 语句，来显式声明公用的变量。chgFont是我自己取的名字，大家在取名称是尽量要有含义。

4、这里我们再使用WITH和END WITH。

在一个单一对象或一个用户定义类型上执行一系列的语句。  

一个Range对象代表单元格区域， 我这里是Range("A1").Font，代表使用这个区域A1的字体属性。

5、.Name = "黑体"，这里可以将A1单元格的区域字体进行修改。

6、.FontStyle字体样式，我们同样可以使用个方法进行修改。对应的字体样式如图所示。

“Bold” 加粗，“Italic”倾斜，“Bold Italic”则为倾斜加粗。

7、Size属性可以修改字体的字号，这个功能其实很简单，我这里就不要解释了。

8、但我们在单元格格式窗口就可以看到下划线有四种样式。怎么样设置呢？

9、其可以通过underline属性进行设置，具体数值代表含义，大家看一下图。

10、而颜色的设置就比较麻烦。你可以使用 .ColorIndex属性，但这个数值所对应的颜色如下图。需要记忆哦。

11、最后我们以这段代码为例

Public Sub chgFont()

With Range("A1").Font

.Name = "黑体"

.FontStyle = "bold"

.Size = 45

 .ColorIndex = 45

End With

End Sub

点击上方的运行按钮。

12、这个时候你会发现A1单元格，快速的按照我们设置修改好。