009 设置单元格格式之字体

(文档下载：关注本公众号，发送消息【教程】即可获得)

通过VBA对单元格字体进行设置也是比较常用的方式，那么本节内容我们就来学习如何使用VBA对单元格中的字体进行设置。如图所示，字体设置主要有，字体本身、字形、字号、下划线、字体颜色及特殊效果这几部分组成，下面我们进行逐一解析！

Q：设置区域A1:B5的字体为微软雅黑，字体颜色为红色，双下划线，斜体并且加粗，字号要求设置为15。

A：代码如下：

Sub 案例038()

With Range('A1:B5').Font

.Name = '微软雅黑'                          ‘字体

.ColorIndex = 3‘字体颜色

.Underline = xlUnderlineStyleDouble‘下划线

.Italic = True‘是否为斜体

.Bold = True‘是否加粗

.Size = 15‘字号

End With

End Sub

【解析】VBA对于字体的设置是非常简单的，字体有专门的对象，即单元格子对象Font，该对象下面含有很多的属性，具体如下：

另外，我们这里需要说明的是颜色的设置ColorIndex属性，在Excel中通过VBA对对象设置相关颜色均可以通过ColorIndex与Color这两个属性来完成，那么他们两个之间有什么区别？

Color：设置对象颜色，该颜色值可以通过RGB函数获得，比如设置颜色为红色，则可以通过以下方式完成：

对象表达式.Color=RGB(255,0,0)

ColorIndex：该属性取值范围为1~56，它其实是颜色的索引，如下图所示，这56个值代表的颜色：

所以这两个属性的区别在于其颜色可取范围及使用的便利性，ColorIndex使用便利，但取值范围有限，通过Color可以设置任意颜色，但使用便利性上稍稍逊色。

【扩展】如何使用VBA获取当前电脑中所有字体名称？具体代码如下：

Sub 案例039()

Dim fontlist As Object

Dim i As Integer

Set fontlist =Application.CommandBars('Formatting').FindControl(ID:=1728)

For i = 0 To fontlist.ListCount - 1

Cells(i 1, 1) = fontlist.List(i 1)

Next

End Sub

运行该程序，所有字体会输出到当前活动工作表的第一列中，该方法使用Application.CommandBars('Formatting').FindControl(ID:=1728)来获取了字体设置的控件对象，并通过For语句来遍历了所有字体名称并输出到表格中。

Q：如何设置单元格中第二个字符为上标，第三个字符为下标？

A：设置字体为上标可以设置Superscript属性值为True来完成，而下标则可通过Subscript属性来进行设置，但本案例的难度在于如何设置单元格中的某一个字符，具体代码如下：

Sub 案例040()

Range('A2').Characters(Start:=2,Length:=1).Font.Superscript = True

Range('A2').Characters(Start:=3,Length:=1).Font.Subscript = True

End Sub

【解析】本案例的学习重点在于Characters对象的使用，该对象返回单元格中的某一段字符串，参数有Start及Length两个，即截取单元格字符串中从某个位置开始，长度为特定长度的一段字符串对象，有了这个对象，我们就可以灵活的对单元格中的字符进行处理！

积跬步，至千里！懂得分享，才会快乐！