今日给大家继续推出VBA代码方案之十七讲，如何对单元格格式进行操作。在EXCEL中，为了视觉的效果，我们要对单元格的格式进行各种设置，如字体的大小，字体的形式，单元格的形式等等，这些操作如何在VBA中实现呢？这里我就一些基础的设置进行讲解，当然也推出固定的代码方案，这些代码我已经反复的声明过，都是经过实测，可以作为固定的代码进行使用。稍加改动就可以应用到自己的代码中，给自己的工作带来方便。

单元格字体及颜色的设置方案，如下面的代码所示：

Sub MyRngFont()

With Range("A1").Font

.Name = "华文彩云"

.FontStyle = "Bold"

.Size =28

.ColorIndex = 3

.Underline = 2

End With

End Sub

代码解析：

上面MyRngFont过程可以实现对单元格A1的字体格式进行设置。

a) 其中第3行代码设置字体为"华文彩云"，应用于Font对象的Name属性返回或设置对象的名称。

b) 第4行代码设置字体为加粗，FontStyle属性返回或设置字体样式。设置为"Bold" 加粗字体，设置为"Italic"倾斜字体，也可以设置成"Bold Italic"。

c) 第5行代码设置字体的大小为18磅，Size属性返回或设置字体大小。

d) 第6行代码设置字体的颜色为红色，应用于Font对象的ColorIndex属性返回或设置字体的颜色，该颜色可指定为当前调色板中颜色的编号.看下面的编码方案：

e)第7行代码设置字体为单下划线类型，Underline属性返回或设置应用于字体的下划线类型，可为下面的XlUnderlineStyle常量之一。

xlUnderlineStyleNone -4142无

xlUnderlineStyleSingle 2 单下划线

xlUnderlineStyleDouble-4119双下划线

xlUnderlineStyleSingleAccounting 4会计用单下划线

xlUnderlineStyleDoubleAccounting 5会计用双下划线

看下面的代码的截图：

运行前后的效果图：

今日内容回向：

1 单元格如何进行VBA设置？

2 ColorIndex 值常见的代码中要熟记自己经常应用的代码值。