如何使用 VBA 設置 Excel 文本字體顏色？

在本教程中，我們將學習如何使用Visual Basic for Applications (VBA) 根據單元格內容修改 Excel 單元格中的文本大小和样式。本教程適用於 Excel 365、2021、2019 和 2016。

預備步驟

如果您是 Excel VBA 開發的新手，我建議您在閱讀本教程之前先了解一下我們的Excel VBA 宏入門。

在開始編碼之前，您應該在功能區中啟用 Excel 上的開發人員選項卡，否則您將無法訪問您的 Visual Basic 編輯器。

使用 VBA 更改 Excel 單元格文本屬性

1. 定義您的電子表格

我們將首先定義一個我們將用作示例的 Excel 電子表格。隨意使用它來學習本教程。

打開 Microsoft Excel 並創建一個名為Excel_Macros.xlsm的新啟用宏的 Excel 工作簿 (.xlsm)
將電子表格保存在本地驅動器中。
在Sheet1工作表中，繼續添加下表：

2. 定義命名範圍

現在，從功能區點擊公式。
然後點擊定義名稱。
定義一個命名範圍，您將在其上應用您的 VBA 代碼，如下所示，然後點擊OK。

3. 使用 Cell.Font VBA 屬性更改字體顏色和样式

移動到開發人員選項卡。
接下來繼續並點擊Visual Basic按鈕。
在左側的Project Explorer中，突出顯示Excel_Macros.xlsm項目，然後點擊Insert並選擇Module。
將創建一個名為Module1的新 VBA 模塊。
繼續在新創建的模塊中粘貼以下代碼：

Sub Color_Cell_Text_Condition()
    Dim MyCell As Range
    Dim StatValue As String
    Dim StatusRange As Range
    Set StatusRange = Range("Completion_Status")
    
    'loop through all cells in the range
    For Each MyCell In StatusRange
        StatValue = MyCell.Value
        'modify the cell text values as needed.
        Select Case StatValue    
            'green
            Case "Progressing"
                With MyCell.Font
                    .Color = RGB(0, 255, 0)
                    .Size = 14
                    .Bold = True
                End With
            'orange    
            Case "Pending Feedback"
                With MyCell.Font
                    .Color = RGB(255, 141, 0)
                    .Size = 14
                    .Bold = True
                End With
            'red    
            Case "Stuck"
                With MyCell.Font
                    .Color = RGB(255, 0, 0)
                    .Size = 14
                    .Bold = True
                End With
        End Select
    Next MyCell
End Sub

在 Visual Basic 編輯器中點擊保存按鈕。
現在點擊運行，然後選擇運行子/用戶窗體（或簡單地按 F5）。
移至Sheet1工作表並註意更改。您的表格條目根據其文本分配了多個顏色代碼（使用 RGB 顏色函數），我們還將文本設置為粗體並增加其大小。

如果您尚未保存代碼，請點擊保存按鈕（或 Ctrl+S），然後保存您的工作簿。

訪問您的 VBA 宏

請注意，您的代碼始終可供您從“視圖”選項卡中的“宏”命令運行（或者在“開發人員 | 宏”中）

獎勵：細胞風格

Excel 提供了建立儲存格「樣式」的功能。樣式可以在主頁功能區>樣式中找到：

Excel VBA字體樣式

樣式可讓您儲存所需的儲存格格式。然後將該樣式指派給新儲存格，所有儲存格格式都會立即套用，包括字體大小、單元格顏色、單元格保護狀態以及單元格格式設定選單中提供的任何其他內容：

Excel 儲存格格式設定選單

就我個人而言，對於我處理的許多模型，我通常會建立一個「輸入」儲存格樣式：

Range("A1").Style = "輸入"

透過使用樣式，您還可以輕鬆識別工作表上的儲存格類型。以下範例將遍歷工作表中的所有單元格，並將 Style =“Input”的任何單元格更改為“InputLocked”：

For Each Cell In ActiveSheet.Cells
    If Cell.Style = "輸入" Then
        Cell.Style = "InputLocked"
    End If
Next Cell

(32) 評論

平靜的海 - 02/19/2025 04:37

使用 VBA 的時候如果遇到問題，會不會有線上論壇可以請教？
小藍 - 02/23/2025 19:16

分享一下，我在使用這個 VBA 方法時遇到了一點小問題，不知道是否可以幫忙？
莉莉 - 02/26/2025 09:15

我嘗試過這個方法，效果真的不錯！不過初學者可能需要一些範例來參考
Hương Đà Nẵng - 02/26/2025 19:19

非常感謝！我之前不知道 Excel 也可以這樣設置顏色，今後可以讓報表看起來更專業
小王 - 03/01/2025 08:36

謝謝分享，很有幫助！一直在找如何使用 VBA 來改變字體顏色，終於找到了
Cathy_76 - 03/01/2025 16:53

這篇教學詳細，讓我更了解如何使用 VBA，非常感謝你們的分享
小明 - 03/03/2025 04:01

學到了，真的很實用！原本以為 VBA 很難，現在覺得好像也還好。
小豆豆 - 03/03/2025 22:03

我也想知道怎么用 VBA 來設置字體顏色，感覺很有趣！
梅莉 - 03/04/2025 13:38

如果能分享一些實用的範例，那我會更感激了
安娜 - 03/04/2025 20:02

這篇文真的太好，比我找了很多網頁來得實用，感謝分享
阿豪 - 03/05/2025 09:20

請問這個 VBA 代碼可以在所有版本的 Excel 使用嗎？我用的是 Excel 2016，不知道有沒有兼容性問題
寅大 - 03/05/2025 14:40

我覺得對於 Excel 的文本顏色修改，這篇文章的講解非常有見地
Quang vn - 03/06/2025 03:21

我有時候在顏色設置上會感到困惑，今天看到這篇文章真的豁然開朗！謝謝
北方的星 - 03/08/2025 09:57

我試過了這個方法，真的很有效，謝謝你們的幫助
Duy Sinh 6789 - 03/08/2025 17:04

非常好的教學！不過使用 VBA 有時會怕出錯，我該怎麼防範呢？提前謝謝
梅梅 - 03/09/2025 08:36

這裡有很多技巧，我要將這篇內文分享給我的同事！
貓咪太可愛 - 03/11/2025 04:01

這篇文章太棒了！我剛剛學會了用 VBA 來設置 Excel 的文本字體顏色，簡直是解決了我的大問題！
Hương KT - 03/11/2025 16:05

這篇文章解決了我在 Excel 使用上的困擾，謝謝作者！
小魚 - 03/12/2025 04:35

很高興找到這篇文章！可不可以再多分享一些 VBA 的使用技巧呢
Nick Lee - 03/13/2025 04:12

改變字體顏色的 VBA 方法學起來不難！過去覺得難懂，現在心情變得很好
小雪 - 03/13/2025 04:43

VBA 好厲害！用來設置字體顏色也太方便了，真心感謝
花花 - 03/13/2025 13:51

這篇文章的步驟很清晰，不過我在執行時有錯誤訊息，不知道怎麼修正，是不是要檢查什麼
勇敢的心 - 03/14/2025 07:14

我覺得這個功能真的是太有用了！可以幫助我分辨不同的數據，更加直觀！
乖乖豬 - 03/19/2025 21:11

以後要經常使用這個方法了，Excel 的報表這樣更有質感
甜心 - 03/24/2025 12:22

太好了！這個方法真的太方便了，謝謝分享，心情好！
小可愛 - 03/27/2025 05:15

文章寫得很清楚，我學會了，希望下次能再看到更多這樣的教學
Mèo con - 03/27/2025 18:47

知道了用 VBA 設置字體顏色，真的想大喊：excel 生活好美好
小胖胖 - 03/28/2025 06:09

這篇文章的內容實在太讚了！我用了 VBA 設置的顏色，真的讓我的 Excel 表格亮眼多了
阿姨的廚房 - 03/31/2025 11:25

這個辦法太適合我了，我的報表將變得更有顏色，更加引人注目！
甜甜圈 - 04/01/2025 15:32

最近在學 VBA，這篇文章簡直是我的神助攻，感謝你們的撰寫！
小楓 - 04/01/2025 17:32

在使用 VBA 改變字體顏色的過程中，如果有遇到其他問題，是否可以再來問呢？
軒軒 - 04/01/2025 21:25

VBA 閃亮登場！現在可以把我的報表弄得更專業了，真的感謝