VBA程式碼設定字型的操作

【分享成果，隨喜正能量】從現在看過去，會看見無知；從寬容看是非，會看見解脫；從接受看命運，會看見踏實；從平凡看生活，會看見快樂；從檢討看內心，會看見成長；從隨緣看事物，會看見自在；從善念看他人，會看見慈悲；從樂觀看未來，會看見希望；從反省看自己，會看見轉機；從知足看人生，會看見珍惜。

《VBA程式碼解決方案》這套教程是我最早推出的教程，目前已經是第二版修訂了。這套教程定位於入門後的提高，在學習這套教程過程中，側重點是要理解及掌握我的“

積木程式設計”思想

。要靈活運用教程中的例項像搭積木一下把自己喜歡的程式碼擺好。

這套教程共三冊，一百四十七講，內容覆蓋較廣，也是初級和中級間的過度教程，改版後的內容主要是提供程式原始碼檔案及程式碼修正為32位和64位兼用程式碼。今後一段時間會給大家陸續推出。今日的內容是第12講：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） 其中第3行程式碼設定字型為“華文彩雲”，應用於Font物件的Name屬性返回或設定物件的名稱。

2） 第4行程式碼設定字型為加粗，FontStyle屬性返回或設定字型樣式。設定為“Bold” 加粗字型，設定為“Italic”傾斜字型，也可以設定成“Bold Italic”。

3） 第5行程式碼設定字型的大小為18磅，Size屬性返回或設定字型大小。

4 ） 第6行程式碼設定字型的顏色為紅色，應用於Font物件的ColorIndex屬性返回或設定字型的顏色，該顏色可指定為當前調色盤中顏色的編號。看下面的編碼方案：

5） 第7行程式碼設定字型為單下劃線型別，Underline屬性返回或設定應用於字型的下劃線型別，可為下面的XlUnderlineStyle常量之一。

xlUnderlineStyleNone -4142 無

xlUnderlineStyleSingle 2 單下劃線

xlUnderlineStyleDouble -4119 雙下劃線

xlUnderlineStyleSingleAccounting 4 會計用單下劃線

xlUnderlineStyleDoubleAccounting 5 會計用雙下劃線

看下面的程式碼的截圖：

執行前後的效果圖：

今日內容迴向：

1 單元格如何進行VBA設定？

2 ColorIndex 值常見的程式碼中要熟記自己經常應用的程式碼值。

我20多年的VBA實踐經驗，全部濃縮在下面的各個教程中：

第7套教程（共三冊）：《VBA之EXCEL應用》：是對VBA基本的講解

第1套教程（共三冊）：《VBA程式碼解決方案》：是入門後的提高教程

第4套教程（16G）：VBA程式碼解決方案之影片（第一套的影片講解）

第3套教程（共兩冊）：《VBA陣列與字典解決方案》：是對陣列和字典的專題講解

第2套教程（共兩冊）：《VBA資料庫解決方案》：是對資料庫的專題講解

第6套教程（共兩冊）：《VBA資訊獲取與處理》：講解VBA的網路及跨程式應用

第5套教程（共兩冊）：VBA中類的解讀和利用：類及介面技術的講解

第8套教程（共三冊）：VBA之Word應用（最新教程）：word中VBA的利用

上述教程的學習順序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

如何學習VBA呢? 概括的說就是: 學習過程中要信、解、受、持，更要有迴向的業力。無論您在學習的任何階段，都要對照教程的知識點加持自己的實際工作，總會有豐厚的收穫。