Hoe een grafiek te kleuren op basis van celkleur in Excel?

Normaal gesproken, wanneer u een grafiek maakt, is de kleur van de kolom staaf de standaard. Als u de ingevulde kleur op elke staaf moet formatteren op basis van de celkleuren zoals in de volgende schermafbeelding wordt getoond, hoe zou u dit dan in Excel kunnen oplossen?

Kleur de grafiek met één of meerdere gegevensreeksen op basis van celkleur met VBA-codes

Kleur de grafiek met één of meerdere gegevensreeksen op basis van celkleur met een geweldige functie

Kleur de grafiek met één of meerdere gegevensreeksen op basis van celkleur met VBA-codes

Kleur de grafiek met één gegevensreeks op basis van celkleur

Met de volgende VBA-code kunt u snel de kleur van de grafiek wijzigen die één gegevensreeks bevat op basis van de originele celwaardenkleur, doe het als volgt:

1. Maak eerst een staaf- of kolomdiagram zoals in de volgende schermafbeelding wordt getoond (Selecteer gegevens en klik op Invoegen > Kolom- of Staafdiagram invoegen):

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Kleur grafiekstaven met één gegevensreeks op basis van celkleur:

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

Opmerking: In de bovenstaande code is Diagram 1 de naam van het diagram dat u wilt gebruiken, wijzig het naar uw eigen naam.

4. Nadat u de bovenstaande code hebt geplakt, drukt u op de F5-toets om deze code uit te voeren, en de kleur van de grafiekstaven is veranderd op basis van de originele celkleur, zie schermafbeelding:

Kleur de grafiek met meerdere gegevensreeksen op basis van celkleur

Als uw grafiek meerdere gegevensreeksen bevat, past u de volgende VBA-code toe:

1. Maak het staaf- of kolomdiagram dat meerdere gegevensreeksen bevat zoals in de volgende schermafbeelding wordt getoond:

2. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

3. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Kleur grafiekstaven met meerdere gegevensreeksen op basis van celkleur:

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. Druk vervolgens op de F5-toets om deze code uit te voeren, de grafiekstaven zijn direct gevuld met de originele celkleuren, zie schermafbeelding:

Opmerkingen:

1. In de bovenstaande code is Diagram 1 de naam van het diagram dat u wilt gebruiken, wijzig het naar uw eigen naam.

2. Deze code kan ook worden toegepast op een lijndiagram.

Kleur de grafiek met één of meerdere gegevensreeksen op basis van celkleur met een geweldige functie

Door gebruik te maken van de bovenstaande codes zullen de kleuren van de grafiek niet altijd overeenkomen met de celkleur. Om dit probleem op te lossen, introduceer ik hier een handig hulpmiddel - Verander grafiekkleur op basis van celkleur van Kutools voor Excel. Met deze handige functie kunt u de grafiek snel en gemakkelijk kleuren op basis van de celkleur.

Nadat u Kutools voor Excel heeft geïnstalleerd, doet u het volgende:

1. Voeg eerst het diagram in dat u wilt gebruiken, selecteer het diagram en klik op Kutools > Grafieken > Grafiektools > Verander grafiekkleur op basis van celkleur, zie schermafbeelding:

2. Er verschijnt een pop-up venster, klik op de knop OK.

3. Nu is het geselecteerde diagram gekleurd op basis van de celkleuren zoals in de onderstaande schermafbeeldingen wordt getoond:

Kleur de grafiek met één gegevensreeks op basis van celkleur

Kleur de grafiek met meerdere gegevensreeksen op basis van celkleur

Download en probeer Kutools voor Excel nu gratis uit!

Meer gerelateerde grafieken artikelen: