如何在 Excel 中更改條件格式圖示集的顏色？

在使用 Excel 的條件格式圖示集時，您可能會注意到每個圖示預設都與特定顏色相關聯。通常，如果值大於所有值的 67%，則圖示會以綠色向上箭頭顯示。如果值介於 33% 至 67% 之間，則會顯示黃色水平箭頭，而低於 33% 的值則由紅色向下箭頭表示。然而，這些預設圖示顏色是固定的，無法輕易透過標準 Excel 選項進行修改。您是否希望更改這些圖示集的顏色，以更好地符合您的偏好或報告風格，如下方截圖所示？

更改條件格式圖示集

VBA 自訂條件格式圖示集

更改條件格式圖示集

目前，Excel 並未提供內建方式直接更改條件格式圖示集的顏色。不過，您可以使用一種創意的解決方法：手動插入符號（例如箭頭），然後應用條件格式來調整其顏色。這種靈活的方法可以讓您根據自己的偏好或報告標準匹配圖示顏色。此方法在儀表板、視覺化報告中特別有用，或者當企業品牌需要顏色協調時也能派上用場。

以下是實現此方法的步驟，不僅能讓您自訂顏色，還可以使用 Wingdings3 字體中的符號選擇特定的圖示形狀：

1. 在數據清單旁選擇一個空白儲存格，例如使用 F2。在 F2 輸入 67%，然後在 F3 輸入 33%，F4 輸入 0%。這將建立條件圖示顯示的百分位閾值。

2. 在 G2 儲存格中輸入以下公式，計算高於 67% 的值線。（在此情況下，C1:C8 表示您的數值列表），然後拖動填滿控制柄以計算每條值線。

=PERCENTILE($C$1:$C$8, F2)

3. 接下來，在 H2 中點擊 插入 > 符號。在「符號」對話框中，從字體下拉選單中選擇 Wingdings3，然後選擇並插入向上箭頭符號（例如字符代碼 232）到 H2。這個符號代表高值。請參閱截圖：

4. 重複上述步驟，分別在 H3 和 H2 中插入水平箭頭和向下箭頭，代表中間值和低值。仔細檢查符號選擇，確保它們符合您預期的視覺設計。

5. 現在，在 B 欄（緊鄰從 C1 開始的數值清單旁），在 B1 中輸入以下公式以根據每個值分配圖示。輸入公式後，拖動填滿控制柄以填充整個數值清單旁的公式。

=IF(C1="","",IF(C1>=$G$2,$H$2,IF(C1>=$G$3,$H$3,$H$4)))

提示：

• C1：引用您的數值儲存格。
• G2：是 67% 的值線。
• H2：顯示最高值的符號（箭頭）。
• G3：是 33% 的值線。
• H3：中間範圍值的箭頭。
• G4：是低於 33% 的值。
• H2：低範圍值的箭頭。

6. 高亮包含箭頭的範圍（例如，B1:B8 儲存格），然後將這些儲存格的字體設置為 Wingdings3。這一步確保箭頭正確顯示為符號，而不是隨機字母或字符。

7. 若要按照您想要的配色方案為箭頭著色，請選擇圖示範圍，前往 主頁 > 條件格式 > 新增規則。這將打開對話框，為您的自訂圖示創建格式條件。

8. 在 新增格式規則 對話框中，選擇 使用公式確定要格式化的儲存格。輸入以下公式以針對最高值： =$C1>=$G$2。點擊 格式化，進入 字體 標籤，並為向上箭頭選擇您想要的顏色（例如，紅色以突出顯示）。

提示：仔細檢查絕對和相對儲存格引用是否正確，以確保格式按預期應用，特別是當您將條件複製到其他範圍時。

9. 點擊 確定 兩次以應用此新格式。您的向上箭頭現在應該以所選顏色顯示。

10. 對水平和向下箭頭重複該過程，在新增規則對話框中分別使用以下公式：

格式化水平箭頭：

=AND($C1<$G$2,$C1>=$G$3)

格式化向下箭頭：

=$C1<$G$3

根據需要為每種類型的箭頭添加不同的顏色。

此外，您可以隨時通過 字體顏色 按鈕在 主頁 標籤下進一步微調外觀。這對於快速調整顏色而不改變底層條件規則非常有用。

通過這些步驟，您可以模擬帶有自訂顏色的圖示集，幫助您的報告更加視覺化且更符合您的需求。這種解決方法最適合在您需要完全控制圖示顏色或需要匹配報告的美學要求時使用。但是，請記住，此方法需要額外的欄位和仔細的公式管理；圖示對齊可能與預設的內建圖示集有所不同。

如果您需要與內建圖示無縫配合的解決方案，或者您需要更高級的圖示自訂（例如使用圖像或全新圖示），請參閱下方描述的 VBA 替代方案。

VBA 代碼 - 創建自訂條件格式圖示集（使用者定義的圖像或顏色）

標準 Excel 的一個限制是您無法直接更改條件格式中內建圖示集的顏色。為了解決這個問題，您可以使用 VBA 根據儲存格值以程式方式插入形狀或圖片（例如彩色圖示或自製圖像）。當您想以任何顏色或樣式顯示圖示，超越內建 Excel 選項時，這種技術特別有效。

1. 點擊 開發工具 > Visual Basic 打開 VBA 編輯器。在新的 Microsoft Visual Basic for Applications 窗口中，點擊 插入 > 模組，然後將以下代碼複製並粘貼到新模組中：

Sub CustomConditionalIcons()
    Dim rng As Range
    Dim cell As Range
    Dim ws As Worksheet
    Dim upIcon As String, midIcon As String, downIcon As String
    Dim upColor As Long, midColor As Long, downColor As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = ActiveSheet
    Set rng = Application.InputBox("Select data range for custom icons", xTitleId, Selection.Address, Type:=8)
    
    ' Define Unicode symbols to use as icons (can replace with other symbols or images if desired)
    upIcon = ChrW(9650) ' ▲ Up triangle
    midIcon = ChrW(9651) ' △ Mid triangle
    downIcon = ChrW(9660) ' ▼ Down triangle
    
    ' Define colors (RGB)
    upColor = RGB(0, 176, 80) ' Green
    midColor = RGB(255, 192, 0) ' Yellow
    downColor = RGB(255, 0, 0) ' Red
    
    ' Remove existing shapes/icons from the range
    Dim sh As Shape
    For Each sh In ws.Shapes
        If Not Intersect(sh.TopLeftCell, rng) Is Nothing Then
            If Left(sh.Name, 13) = "CustomIconSet" Then
                sh.Delete
            End If
        End If
    Next
    
    ' Loop through cells and add custom icons
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            Dim percentile67 As Double, percentile33 As Double
            percentile67 = Application.WorksheetFunction.Percentile(rng, 0.67)
            percentile33 = Application.WorksheetFunction.Percentile(rng, 0.33)
            
            Dim iconText As String
            Dim iconColor As Long
            
            If cell.Value >= percentile67 Then
                iconText = upIcon
                iconColor = upColor
            ElseIf cell.Value >= percentile33 Then
                iconText = midIcon
                iconColor = midColor
            Else
                iconText = downIcon
                iconColor = downColor
            End If
            
            ' Insert icon as a TextBox shape
            Dim iconShape As Shape
            Set iconShape = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, cell.Left + 2, cell.Top + 2, cell.Width - 4, cell.Height - 4)
            iconShape.TextFrame.Characters.Text = iconText
            
            With iconShape.TextFrame2.TextRange.Font
                .Size = cell.Font.Size
                .Fill.ForeColor.RGB = iconColor
                .Name = cell.Font.Name
            End With
            
            iconShape.Name = "CustomIconSet" & cell.Address(0, 0)
            iconShape.Line.Visible = msoFalse
            iconShape.TextFrame.HorizontalAlignment = xlHAlignCenter
            iconShape.TextFrame.VerticalAlignment = xlVAlignCenter
            iconShape.Placement = xlMoveAndSize
        End If
    Next
End Sub

2然後，按下 F5 （或點擊 按鈕）運行宏。系統提示時，選擇要顯示自訂圖示的範圍。該宏將根據每個儲存格值相對於群組的百分位數，使用文字框插入彩色圖示。

這種 VBA 方法極具靈活性——圖示、顏色和形狀均可完全自訂，非常適用於專家級別的儀表板，其中品牌指南或受眾需要高度特定的視覺提示。

總之，雖然內建的 Excel 圖示集顏色固定，但有幾種替代技術允許您將自訂的多彩圖示應用於電子表格中。選擇手動符號和條件格式解決方案以獲得完整的佈局控制；利用 VBA 可放置任何帶有可編程顏色的圖像或符號；每種方法都有其各自的優勢和考量，賦予您找到最適合您特定數據視覺化需求的最佳解決方案。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！