如何使用 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 宏

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

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

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