Preskoči na glavno vsebino

Kako barvati grafikon glede na barvo celice v Excelu?

Ko ustvarite grafikon, je običajno privzeta bar stolpca. Če morate na vsaki vrstici formatirati zapolnjeno barvo glede na barve celic, kot je prikazano na spodnjem posnetku zaslona, ​​kako bi to lahko rešili v Excelu?

Grafikon obarvajte z eno ali več podatkovnimi vrstami glede na barvo celice s kodami VBA

Grafikon obarvajte z eno ali več podatkovnimi serijami na podlagi barv celic z neverjetno lastnostjo


Grafikon obarvajte z eno ali več podatkovnimi vrstami glede na barvo celice s kodami VBA

Grafikon obarvajte z eno podatkovno serijo, ki temelji na barvi celice

Z naslednjo kodo VBA lahko hitro spremenite barvo grafikona, ki vsebuje eno podatkovno serijo, ki temelji na barvi izvornih vrednosti celic.

1. Najprej ustvarite stolpčni ali stolpčni grafikon, kot je prikazano na spodnji sliki zaslona (izberite podatke in kliknite Vstavi > Vstavi stolpec ali stolpčni grafikon):

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: Vrstice barvnih grafikonov z eno serijo podatkov glede na barvo celice:

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

Opombe: V zgornji kodi, Graf 1 je ime grafikona, ki ga želite uporabiti, ga spremenite v svojega.

4. Po lepljenju zgornje kode pritisnite F5 tipko za zagon te kode, barva vrstic grafikona pa je spremenjena glede na prvotno barvo celice, glejte sliko zaslona:


Grafikon obarvajte z več podatkovnimi serijami glede na barvo celice

Če je vaš grafikon z več podatkovnimi serijami, uporabite naslednjo kodo VBA:

1. Ustvarite stolpčni ali stolpčni grafikon, ki vsebuje več podatkovnih serij, kot je prikazano na sliki spodaj:

2. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: Vrstice barvnih grafikonov z več podatkovnimi nizi na podlagi barve celice:

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. Nato pritisnite F5 tipko za zagon te kode, vrstice grafikona se napolnijo z izvirno barvo celic hkrati, glejte posnetek zaslona:

Opombe:

1. V zgornji kodi: Graf 1 je ime grafikona, ki ga želite uporabiti, ga spremenite v svojega.

2. To kodo lahko uporabite tudi za črtni grafikon.


Grafikon obarvajte z eno ali več podatkovnimi serijami na podlagi barv celic z neverjetno lastnostjo

Z uporabo zgornjih kod se barve grafikona ne bodo vedno ujemale z barvo celice, zato bom za rešitev te težave predstavil uporabno orodje - Spreminjanje barve grafikona glede na barvo celice of Kutools za Excel, s to priročno funkcijo lahko grafikon hitro in enostavno obarvate glede na barvo celice.

Opomba: Če želite uporabiti to Spreminjanje barve grafikona glede na barvo celice, najprej bi morali prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Najprej vstavite grafikon, ki ga želite uporabiti, nato izberite grafikon in kliknite Kutools > Charts > Orodja za grafikone > Spreminjanje barve grafikona glede na barvo celice, glej posnetek zaslona:

2. Nato se prikaže pozivno okno, kliknite OK gumb.

3. Zdaj je grafikon, ki ste ga izbrali, obarvan glede na barve celic, kot je prikazano spodaj:

Grafikon obarvajte z eno podatkovno serijo, ki temelji na barvi celice

Grafikon obarvajte z več podatkovnimi serijami glede na barvo celice

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Več relativnih člankov v grafikonih:

  • Ustvarite stolpčni grafikon, ki v Excelu prekriva še en grafikon
  • Ko ustvarimo gručasti stolpčni ali stolpčni grafikon z dvema nizoma podatkov, se bosta vrstici podatkovnih nizov prikazali drug ob drugem. Včasih pa moramo za jasnejšo primerjavo obeh podatkovnih vrst uporabiti prekrivni ali prekrivajoči se stolpčni grafikon. V tem članku bom govoril o tem, kako v Excelu ustvariti prekrivajoči se stolpčni grafikon.
  • Kopirajte eno obliko grafikona drugim v Excel
  • Recimo, da je na vašem delovnem listu več različnih vrst grafikonov, ste oblikovali en grafikon po svojih željah in zdaj želite to oblikovanje grafikona uporabiti na drugih grafikonih. Seveda lahko druge ročno formatirate druge, vendar boste s tem izgubili veliko časa, ali obstajajo hitri ali priročni načini za kopiranje ene oblike grafikona v druge v Excelu?
  • Na grafikonu označite največje in najmanjše podatkovne točke
  • Če imate stolpčni grafikon, v katerem želite označiti najvišje ali najmanjše podatkovne točke z različnimi barvami, da jih premagate, kot je prikazano na sliki spodaj. Kako bi lahko prepoznali najvišjo in najmanjšo vrednost in nato hitro označili podatkovne točke na grafikonu?
  • Ustvari grafikon korakov v Excelu
  • Tabela korakov se uporablja za prikaz sprememb, ki so se zgodile v nepravilnih intervalih, je razširjena različica črtnega grafikona. Vendar v Excelu ni neposrednega načina, da bi ga ustvarili. V tem članku bom govoril o tem, kako v Excelovem delovnem listu korak za korakom ustvariti grafikon korakov.
  • Ustvari vrstni grafikon napredka v Excelu
  • V Excelu vam lahko stolpčni grafikon napredka pomaga spremljati napredek proti cilju, kot je prikazano na spodnji sliki zaslona. Kako pa lahko na Excelovem delovnem listu ustvarite stolpčni grafikon napredka?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For more than 1 Chart:



Sub CellColorsToChart()'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long, Y As Long
Dim xRowsOrCols As Long, xSCount As Long Dim xRg As Range, xCell As Range
On Error Resume Next

For Y = 1 To 100Set xChart = ActiveSheet.ChartObjects("Chart "&Y).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 WithNext
Next
End Sub

This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
This comment was minimized by the moderator on the site
It is ok. But... why simply not going to "Format Legend Entry" option in every data series in the chart, and go "Fill" and make it the color you want. I mean... all is ok, but a VBA code for this simple task is kinda overkill. But thanks. Appreciate you share it.
This comment was minimized by the moderator on the site
i cant make it work :( is this supposed to work on a stacked bar chart? Thanks
This comment was minimized by the moderator on the site
This was an awesome start, but the colors of the chart and the cells don't always match. Any idea why?
This comment was minimized by the moderator on the site
Thank you for the codes! How would you add a conditional format when the format is already established?
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations