009 設(shè)置單元格格式之字體

(文檔下載：關(guān)注本公眾號(hào)，發(fā)送消息【教程】即可獲得)

通過VBA對(duì)單元格字體進(jìn)行設(shè)置也是比較常用的方式，那么本節(jié)內(nèi)容我們就來學(xué)習(xí)如何使用VBA對(duì)單元格中的字體進(jìn)行設(shè)置。如圖所示，字體設(shè)置主要有，字體本身、字形、字號(hào)、下劃線、字體顏色及特殊效果這幾部分組成，下面我們進(jìn)行逐一解析！

Q：設(shè)置區(qū)域A1:B5的字體為微軟雅黑，字體顏色為紅色，雙下劃線，斜體并且加粗，字號(hào)要求設(shè)置為15。

A：代碼如下：

Sub 案例038()

With Range('A1:B5').Font

.Name = '微軟雅黑'????????????????????????? ‘字體

.ColorIndex = 3‘字體顏色

.Underline = xlUnderlineStyleDouble‘下劃線

.Italic = True‘是否為斜體

.Bold = True‘是否加粗

.Size = 15‘字號(hào)

End With

End Sub

【解析】VBA對(duì)于字體的設(shè)置是非常簡(jiǎn)單的，字體有專門的對(duì)象，即單元格子對(duì)象Font，該對(duì)象下面含有很多的屬性，具體如下：

另外，我們這里需要說明的是顏色的設(shè)置ColorIndex屬性，在Excel中通過VBA對(duì)對(duì)象設(shè)置相關(guān)顏色均可以通過ColorIndex與Color這兩個(gè)屬性來完成，那么他們兩個(gè)之間有什么區(qū)別？

Color：設(shè)置對(duì)象顏色，該顏色值可以通過RGB函數(shù)獲得，比如設(shè)置顏色為紅色，則可以通過以下方式完成：

對(duì)象表達(dá)式.Color=RGB(255,0,0)

ColorIndex：該屬性取值范圍為1~56，它其實(shí)是顏色的索引，如下圖所示，這56個(gè)值代表的顏色：

所以這兩個(gè)屬性的區(qū)別在于其顏色可取范圍及使用的便利性，ColorIndex使用便利，但取值范圍有限，通過Color可以設(shè)置任意顏色，但使用便利性上稍稍遜色。

【擴(kuò)展】如何使用VBA獲取當(dāng)前電腦中所有字體名稱？具體代碼如下：

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

運(yùn)行該程序，所有字體會(huì)輸出到當(dāng)前活動(dòng)工作表的第一列中，該方法使用Application.CommandBars('Formatting').FindControl(ID:=1728)來獲取了字體設(shè)置的控件對(duì)象，并通過For語(yǔ)句來遍歷了所有字體名稱并輸出到表格中。

Q：如何設(shè)置單元格中第二個(gè)字符為上標(biāo)，第三個(gè)字符為下標(biāo)？

A：設(shè)置字體為上標(biāo)可以設(shè)置Superscript屬性值為True來完成，而下標(biāo)則可通過Subscript屬性來進(jìn)行設(shè)置，但本案例的難度在于如何設(shè)置單元格中的某一個(gè)字符，具體代碼如下：

Sub 案例040()

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

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

End Sub

【解析】本案例的學(xué)習(xí)重點(diǎn)在于Characters對(duì)象的使用，該對(duì)象返回單元格中的某一段字符串，參數(shù)有Start及Length兩個(gè)，即截取單元格字符串中從某個(gè)位置開始，長(zhǎng)度為特定長(zhǎng)度的一段字符串對(duì)象，有了這個(gè)對(duì)象，我們就可以靈活的對(duì)單元格中的字符進(jìn)行處理！

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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。