如何根據 VBA 條件設置 Excel 單元格顏色？

最後更新：2021 年 8 月；微軟 Excel 365、2019、2016。

在今天的 VBA for Excel 自動化教程中，我們將了解如何根據單元格值以編程方式更改單元格的顏色。

例如，我們可以在開發簡單的狀態儀表板時使用這種技術。

設置

如果您尚未在 Excel 上進行開發，我們建議您查看我們的 Excel 宏介紹指南。具體來說，您需要確保 Microsoft Excel 功能區中的“開發人員”選項卡可用，因為您將使用它來編寫一些簡單的代碼。

打開 Microsoft Excel。請注意，本教程中提供的代碼預計可在 Excel 2007 及更高版本中運行。
在一個空的工作表中，添加下表：

現在繼續並通過點擊定義一個命名範圍：公式>>定義名稱

點擊確定

使用 Cell.Interior.Color 根據值更改單元格內部顏色

點擊功能區中的開發人員條目。
點擊 Visual Basic 或 Alt+F11 打開您的開發人員 VBA 編輯器。
接下來突出顯示您要在其中運行代碼的工作表。或者，選擇具有您的 VBA 代碼的模塊。
繼續粘貼此代碼。在我們的示例中，我們會將一系列單元格的內部顏色修改為對應於紅色、黃色和綠色的特定單元格 RGB 值。
具體來說，我們使用 Excel VBA 方法Cell.Interior.Color並傳遞相應的 RGB 值或顏色索引。

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub