Jak barevný graf na základě barvy buňky v aplikaci Excel?

Normálně při vytváření grafu je výchozí barva sloupcového pruhu. Pokud potřebujete formátovat vyplněnou barvu na každém pruhu na základě barev buněk, jak ukazuje následující snímek obrazovky, jak byste ji mohli vyřešit v aplikaci Excel?

Vybarvěte graf pomocí jedné nebo více datových řad na základě barvy buněk pomocí kódů VBA

Vybarvěte graf pomocí jedné nebo více datových řad na základě barvy buněk s úžasnou funkcí

Vybarvěte graf pomocí jedné nebo více datových řad na základě barvy buněk pomocí kódů VBA

Vybarvěte graf pomocí jedné datové řady na základě barvy buňky

S následujícím kódem VBA můžete rychle změnit barvu grafu, který obsahuje jednu datovou řadu na základě původní barvy hodnot buňky, postupujte takto:

1. Nejprve vytvořte sloupcový nebo sloupcový graf podle následujícího obrázku obrazovky (Vyberte data a klikněte Vložit > Vložte sloupcový nebo sloupcový graf):

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Barové grafy s jednou datovou řadou založenou na barvě buňky:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

Pozor: Ve výše uvedeném kódu, Graf 1 je název grafu, který chcete použít, změňte jej prosím na svůj vlastní.

4. Po vložení výše uvedeného kódu stiskněte F5 klíč ke spuštění tohoto kódu a barva pruhů grafu byla změněna na základě původní barvy buňky, viz screenshot:

Vybarvěte graf pomocí více datových řad na základě barvy buňky

Pokud váš graf s více datovými řadami, použijte následující kód VBA:

1. Vytvořte prosím sloupcový nebo sloupcový graf, který obsahuje více datových řad, jak ukazuje následující snímek obrazovky:

2. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Barové pruhy s více datovými řadami založenými na barvě buňky:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, pruhy grafu jsou vyplněny původní barvou buněk najednou, viz screenshot:

Poznámky:

1. Ve výše uvedeném kódu Graf 1 je název grafu, který chcete použít, změňte jej prosím na svůj vlastní.

2. Tento kód lze také použít na spojnicový graf.

Vybarvěte graf pomocí jedné nebo více datových řad na základě barvy buněk s úžasnou funkcí

Použitím výše uvedených kódů nebudou barvy grafu vždy odpovídat barvě buňky, k vyřešení tohoto problému zde představím užitečný nástroj - Změňte barvu grafu podle barvy buňky of Kutools pro Excel, s touto užitečnou funkcí můžete rychle a snadno vybarvit graf podle barvy buňky.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Nejprve vložte graf, který chcete použít, a poté vyberte graf a poté klikněte Kutools > grafy > Nástroje grafu > Změňte barvu grafu podle barvy buňky, viz screenshot:

2. Poté se zobrazí výzva, klikněte prosím OK .

3. Nyní je graf, který jste vybrali, zbarven na základě barev buněk, jak je uvedeno níže:

Vybarvěte graf pomocí jedné datové řady na základě barvy buňky

Vybarvěte graf pomocí více datových řad na základě barvy buňky

Stáhněte si zdarma zkušební verzi Kutools pro Excel!

Více relativních článků v grafu: