在 Excel 中，我們經常需要根據儲存格的內容來自動更改其格式，這不僅能使數據更直觀，也有助於提升工作效率。本文將介紹如何使用 VBA 程式碼來實現自動更改儲存格顏色的功能，依據輸入的儲存格內容及其所在列的第一列值進行判斷。
需求背景
我們希望當在某個儲存格中輸入特定值（如 "V"）時，程式會自動檢查該儲存格所在列的第一列，根據第一列的值來決定是否改變顏色：- 如果該列的第一列為 "XXX" 且儲存格輸入 "V"，將該儲存格的背景顏色變為淺綠色。
- 如果該列的第一列為 "YYY" 且儲存格輸入 "V"，則將背景顏色變為淺藍色。
- 若不符合這兩個條件，將移除該儲存格的背景顏色。
解決方法：使用 VBA 編寫程式碼
這裡我們將使用 Excel VBA 的 Worksheet_Change 事件來監聽使用者在工作表中對儲存格的改動，並根據條件自動改變儲存格的背景顏色。
打開 VBA 編輯器
- 在 Excel 中，按下
Alt + F11進入 VBA 編輯器。 - 在左側「專案」視窗中，找到並雙擊要套用此程式碼的工作表（例如
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"，背景變為淺藍色。
- 如果不符合上述條件，移除該儲存格的背景顏色（恢復為無色）。
測試與運行
- 關閉 VBA 編輯器，返回 Excel。
- 在工作表中嘗試輸入 "V"，並查看對應儲存格顏色的變化。如果該列的第一列為 "XXX" 或 "YYY"，則顏色應會自動變為淺綠色或淺藍色。
結論
透過上述的 VBA 程式碼，我們可以實現根據使用者輸入及其所在列的第一列值，來動態改變儲存格顏色的功能。這種自動化的格式變更能有效提升工作效率，讓數據更具可讀性。如果你有更多的條件需求，也可以輕鬆擴展這段程式碼來滿足不同的應用場景。
希望這篇教學文章能夠幫助你理解如何在 Excel 中使用 VBA 自動更改儲存格顏色。如果有任何問題，歡迎隨時提出！
