Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kleur de grafiek op basis van de celkleur in Excel?

Normaal gesproken is de kleur van de kolombalk de standaard als u een diagram maakt. Als u de gevulde kleur op elke staaf wilt opmaken op basis van de celkleuren zoals het volgende getoonde screenshot, hoe zou u het dan in Excel kunnen oplossen?

Kleur de grafiek met één gegevensreeks op basis van celkleur met VBA-code

Kleur de grafiek met meerdere gegevensreeksen op basis van celkleur met VBA-code


Kleur de grafiek met één gegevensreeks op basis van celkleur met VBA-code


Met de volgende VBA-code kunt u de kleur van de grafiek snel wijzigen, die één gegevensreeks op basis van de oorspronkelijke celwaardekleur bevat, alsjeblieft als volgt:

1. Maak eerst een staaf- of kolomdiagram zoals het volgende screenshot wordt getoond (Selecteer gegevens en klik op bijvoegsel > Kolom of staafdiagram invoegen):

2. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken bijvoegsel > moduleen plak de volgende code in het modulevenster.

VBA-code: staafdiagrammen in kleur 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

Notes: In de bovenstaande code, grafiek 1 is de grafieknaam die u wilt gebruiken, verander deze naar uw eigen naam.

4. Nadat u de bovenstaande code hebt geplakt, drukt u op F5 sleutel om deze code uit te voeren en de kleur van de diagrambalken is gewijzigd op basis van de oorspronkelijke celkleur, zie screenshot:


Kleur de grafiek met meerdere gegevensreeksen op basis van celkleur met VBA-code

De bovenstaande code kan alleen worden toegepast op één gegevensreeksgrafiek, als het diagram met meerdere gegevensreeksen de volgende VBA-code toepast:

1. Maak de staaf- of kolomkaart die meerdere gegevensreeksen bevat, zoals het volgende screenshot wordt getoond:

2. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. Klikken bijvoegsel > moduleen plak de volgende code in het modulevenster.

VBA-code: staafdiagrammen 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 F5 toets om deze code uit te voeren, zijn de grafiekbalken in één keer gevuld met originele cellen in kleur, zie screenshot:

Opmerkingen:

1. In de bovenstaande code, grafiek 1 is de grafieknaam die u wilt gebruiken, verander deze naar uw eigen naam.

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


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lisa · 7 months ago
    Thank you for the codes! How would you add a conditional format when the format is already established?
  • To post as a guest, your comment is unpublished.
    Armin · 11 months ago
    Thank you for these codes! This was exactly what I've been looking for with one detail not quite fitting. When I ran the code, the bar graphs colored in correctly but not legend which stayed unchanged. Is there a variation to the code that would include the legend? Or is there a way to match the Legend to the changes in the chart without a code?
  • To post as a guest, your comment is unpublished.
    WILLIAN GUSMÃO · 11 months ago
    If i have more charts in my sheet? do you have another code?