如何判斷並識別 Excel 中儲存格的背景顏色索引？

作者孫修改日期2024-10-10

當您收到如截圖所示、包含多個彩色儲存格的工作表時，有時可能需要識別這些儲存格背景顏色的索引值。雖然 Excel 本身並未內建判斷儲存格顏色編號的功能，但本文將提供實用的 VBA 程式碼，助您快速完成這項任務。
Excel 中顯示不同背景顏色儲存格的螢幕截圖

使用 VBA 識別儲存格顏色

使用 VBA 識別儲存格顏色

請依照下列步驟，透過 VBA 判斷儲存格的色彩。

1. 按下 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。
Excel 中 Microsoft Visual Basic for Applications 視窗的螢幕截圖

2. 點選插入＞模組，即可開啟一個新的模組，並將下方的 VBA 程式碼貼到空白腳本中。請參閱截圖：

VBA：取得儲存格的傳統十六進位色碼

Function getRGB1(FCell As Range) As String
'UpdatebyExtendoffice20170714
    Dim xColor As String
    xColor = CStr(FCell.Interior.Color)
    xColor = Right("000000" & Hex(xColor), 6)
    getRGB1 = Right(xColor, 2) & Mid(xColor, 3, 2) & Left(xColor, 2)
End Function

3. 儲存程式碼並關閉 VBA 視窗。選取彩色儲存格旁的空白儲存格，輸入公式 =getRGB 1(A16)，再將自動填滿控制點拖曳至欲套用的儲存格範圍。請參閱截圖：

提示：還有其他程式碼可用來辨識儲存格的色彩編號。

1. VBA：各色彩的十進位數值

Function getRGB2(FCell As Range) As String
   'UpdatebyExtendoffice20170714  
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    getRGB2 = "R=" & R & ", G=" & G & ", B=" & B
End Function

結果：
顯示 RGB 色彩值結果的螢幕截圖

2. VBA：十進位數值

Function getRGB3(FCell As Range, Optional Opt As Integer = 0) As Long
 'UpdatebyExtendoffice20170714
    Dim xColor As Long
    Dim R As Long, G As Long, B As Long
    xColor = FCell.Interior.Color
    R = xColor Mod 256
    G = (xColor \ 256) Mod 256
    B = (xColor \ 65536) Mod 256
    Select Case Opt
        Case 1
            getRGB3 = R
        Case 2
            getRGB3 = G
        Case 3
            getRGB3 = B
        Case Else
            getRGB3 = xColor
    End Select
End Function

結果：
顯示完整 RGB 色彩代碼（以長整數表示）結果的螢幕截圖

在 Excel 中輕鬆選取重複或唯一值

當您在 Excel 中處理一組資料，需要醒目提示或快速選取重複行時，該如何高效完成這項任務？透過 Kutools for Excel 的選擇重複/唯一儲存格功能，您可立即選取範圍內的重複值或唯一值，並為其套用背景色與字體顏色，讓資料一目了然、重點輕鬆突顯！

Kutools for Excel－透過超過 300 項實用工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多