《VBA代码解决方案》(版权10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是VBA代码解决方案第十二讲：在单元格操作时，如何对字体格式进行设置

【分享成果，随喜正能量】心静，才能听见自己的内心。也许，你正狂热追求的，并非你真正想要的，只是迁就了别人或社会；也许，你正为之苦恼，肝肠寸断的，未必是你真正想爱或者该爱的，只是一时的不甘心。坐下来，静赏花开，静观水流，心静了，自然就看清了。笑看花开，是一种宁静的喜悦；静赏花落，是一份随缘的自在。。

第十二讲 在单元格操作时，如何对字体格式进行设置

今日给大家继续推出VBA代码解决方案第12讲，利用VBA代码如何对单元格格式的进行设置。在EXCEL中，为了视觉的效果，我们要对单元格的格式进行各种设置，如字体的大小，字体的形式，单元格的形式等等，这些操作如何在VBA中实现呢？这里我就一些基础的设置的进行讲解。

1 对字体格式Font进行设置的代码

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

Sub mynz_12() '第12讲 在单元格区操作时，如何对字体格式进行设置

Sheets("12").Select

With Range("A1").Font

.Name = "华文彩云"

.FontStyle = "Bold"

.Size = 28

.ColorIndex = 3

.Underline = 2

End With

End Sub

代码的截图：

2 代码的解读及运行效果

上面过程可以实现对单元格A1的字体格式进行设置。代码解析：

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

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

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

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

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

xlUnderlineStyleNone -4142 无

xlUnderlineStyleSingle 2 单下划线

xlUnderlineStyleDouble -4119 双下划线

xlUnderlineStyleSingleAccounting 4 会计用单下划线

xlUnderlineStyleDoubleAccounting 5 会计用双下划线

运行前后的效果图：

今日内容回向：

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

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

本讲内容参考程序文件：VBA代码解决方案（1-19）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：