EXCEL中VBA例項技巧：[1]單元格字型格式設定?

首先說明一下，這一部分經驗我儘量使用例項的方法來學習。大家最好有VB的基礎。多多練習就可以了。

方法/步驟

如圖所示我們想將單元格的文字的字型進行修改。原來是宋體字。

右擊當前工作表，在彈出的選單中選擇“檢視程式碼”

首先我們在視窗中輸入

Public Sub chgFont()

End Sub

1、使用 Public 語句，來顯式宣告公用的變數。chgFont是我自己取的名字，大家在取名稱是儘量要有含義。

這裡我們再使用WITH和END WITH。

在一個單一物件或一個使用者定義型別上執行一系列的語句。

一個Range物件代表單元格區域， 我這裡是Range("A1").Font，代表使用這個區域A1的字型屬性。

.Name = "黑體"，這裡可以將A1單元格的區域字型進行修改。

.FontStyle字型樣式，我們同樣可以使用個方法進行修改。對應的字型樣式如圖所示。

“Bold” 加粗，“Italic”傾斜，“Bold Italic”則為傾斜加粗。

Size屬性可以修改字型的字號，這個功能其實很簡單，我這裡就不要解釋了。

但我們在單元格格式視窗就可以看到下劃線有四種樣式。怎麼樣設定呢？

其可以通過underline屬性進行設定，具體數值代表含義，大家看一下圖。

而顏色的設定就比較麻煩。你可以使用 .ColorIndex屬性，但這個數值所對應的顏色如下圖。需要記憶哦。

最後我們以這段程式碼為例

Public Sub chgFont()

With Range("A1").Font

.Name = "黑體"

.FontStyle = "bold"

.Size = 45

.ColorIndex = 45

End With

End Sub

點選上方的執行按鈕。

這個時候你會發現A1單元格，快速的按照我們設定修改好。