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

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

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

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

首先我们在窗口中输入Public Sub chgFont()End Sub1、使用Public语句，来显式声明公用的变量。chgFont是我自己取的名字，大家在取名称是尽量要有含义。

这里我们再使用WITH和END WITH。在一个单一对象或一个用户定义类型上执行一系列的语句。 一个Range对象代表单元格区域，我这里是Range("A1").Font，代表使用这个区域A1的字体属性。

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

.FontStyle字体样式，我们同样可以使用个方法进行修改。对应的字体样式如图所示。“Bold” 加粗，“Italic”倾斜，“Bold Italic”则为倾斜加粗。

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

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

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

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

最后我们以这段代码为例Public Sub chgFont()With Range("A1").Font.Name = "黑体".FontStyle = "bold".Size = 45.ColorIndex = 45End WithEnd Sub点击上方的运行按钮。

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