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兩個，即截取單元格字符串中從某個位置開始，長度為特定長度的一段字符串對象，有了這個對象，我們就可以靈活的對單元格中的字符進行處理！

積跬步，至千里！懂得分享，才會快樂！

總結

以上是生活随笔為你收集整理的html vba 单元格 格式,VBA设置单元格格式之——字体的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。