使用 Excel VBA 自動更改儲存格顏色：依據列的第一列值進行判斷

在 Excel 中，我們經常需要根據儲存格的內容來自動更改其格式，這不僅能使數據更直觀，也有助於提升工作效率。本文將介紹如何使用 VBA 程式碼來實現自動更改儲存格顏色的功能，依據輸入的儲存格內容及其所在列的第一列值進行判斷。

Goran Ivos on Unsplash

需求背景

我們希望當在某個儲存格中輸入特定值（如 "V"）時，程式會自動檢查該儲存格所在列的第一列，根據第一列的值來決定是否改變顏色：

• 如果該列的第一列為 "XXX" 且儲存格輸入 "V"，將該儲存格的背景顏色變為淺綠色。
• 如果該列的第一列為 "YYY" 且儲存格輸入 "V"，則將背景顏色變為淺藍色。
• 若不符合這兩個條件，將移除該儲存格的背景顏色。

解決方法：使用 VBA 編寫程式碼

這裡我們將使用 Excel VBA 的 Worksheet_Change 事件來監聽使用者在工作表中對儲存格的改動，並根據條件自動改變儲存格的背景顏色。

打開 VBA 編輯器

1. 在 Excel 中，按下 Alt + F11 進入 VBA 編輯器。
2. 在左側「專案」視窗中，找到並雙擊要套用此程式碼的工作表（例如 Sheet1）。

編寫 VBA 程式碼

將以下程式碼貼入對應的工作表模組中：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 確保觸發事件的範圍是單個儲存格
    If Target.CountLarge > 1 Then Exit Sub
    
    ' 取得輸入儲存格的列的第一列儲存格
    Dim firstRowCell As Range
    Set firstRowCell = Cells(1, Target.Column) ' 取得對應的第一列儲存格
    
    ' 根據第一列的值進行判斷
    If firstRowCell.Value = "XXX" And Target.Value = "V" Then
        ' 設定儲存格顏色為淺綠色
        Target.Interior.Color = RGB(144, 238, 144) ' 淺綠色
    ElseIf firstRowCell.Value = "YYY" And Target.Value = "V" Then
        ' 設定儲存格顏色為淺藍色
        Target.Interior.Color = RGB(173, 216, 230) ' 淺藍色
    Else
        ' 如果條件不符合，移除背景顏色
        Target.Interior.ColorIndex = xlNone
    End If
End Sub

理解程式碼邏輯

• Worksheet_Change：這是一個工作表事件，當工作表中任何儲存格的內容發生改變時，這個事件會被自動觸發。
• Target：代表被修改的儲存格。Target.CountLarge > 1 用來確保一次只能處理單個儲存格變動，如果是多個儲存格變動則不做處理。
• Cells(1, Target.Column)：這一行程式碼用來取得被修改儲存格所在列的第一列儲存格。例如，若你改變了 B10，這段程式碼會取得 B1 的內容。
• 顏色判斷與應用：
• • 如果對應列的第一列值為 "XXX" 且輸入值為 "V"，儲存格背景變為淺綠色。
  • 如果對應列的第一列值為 "YYY" 且輸入值為 "V"，背景變為淺藍色。
  • 如果不符合上述條件，移除該儲存格的背景顏色（恢復為無色）。

測試與運行

1. 關閉 VBA 編輯器，返回 Excel。
2. 在工作表中嘗試輸入 "V"，並查看對應儲存格顏色的變化。如果該列的第一列為 "XXX" 或 "YYY"，則顏色應會自動變為淺綠色或淺藍色。

結論

透過上述的 VBA 程式碼，我們可以實現根據使用者輸入及其所在列的第一列值，來動態改變儲存格顏色的功能。這種自動化的格式變更能有效提升工作效率，讓數據更具可讀性。如果你有更多的條件需求，也可以輕鬆擴展這段程式碼來滿足不同的應用場景。

希望這篇教學文章能夠幫助你理解如何在 Excel 中使用 VBA 自動更改儲存格顏色。如果有任何問題，歡迎隨時提出！