Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako barvati grafikon na osnovi celične barve v Excelu?

Običajno, ko ustvarite grafikon, je privzeta barva stolpca. Če morate v vsaki vrstici formatirati napolnjene barve glede na celične barve, kot je prikazano na zaslonu, kako lahko to rešite v Excelu?

Barva grafikona z eno serijo podatkov na podlagi celične barve s kodo VBA

Barva grafikona z več vrstami podatkov, ki temeljijo na barvi celice z VBA kodo


Barva grafikona z eno serijo podatkov na podlagi celične barve s kodo VBA


Z naslednjo kodo VBA lahko hitro spremenite barvo grafikona, ki vsebuje eno serijo podatkov na podlagi prvotne barvne vrednosti celice, storite tako:

1. Najprej ustvarite grafiko stolpca ali stolpcev, kot je prikazano na zaslonu (izberite podatke in kliknite Vstavi > Vstavi stolpca ali stolpca):

2. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

VBA koda: palice barvnih kart z eno serijo podatkov na podlagi celične barve:

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, spremenite ga sami.

4. Po lepljenju zgornje kode, pritisnite F5 ključ za zagon te kode in barva stolpcev grafikonov je bila spremenjena glede na izvorno barvo celice, glejte sliko zaslona:


Barva grafikona z več vrstami podatkov, ki temeljijo na barvi celice z VBA kodo

Zgornjo kodo lahko uporabimo samo za eno grafikon nizov podatkov, če grafikon z več podatkovnimi nizi, uporabite naslednjo kodo VBA:

1. Prosimo, ustvarite vrstico vrstic ali stolpcev, ki vsebuje več vrst podatkov, kot je prikazano spodaj prikazano sliko:

2. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

VBA koda: palice barvnih kart z več vrstami podatkov na podlagi celične barve:

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 ključ za zagon te kode, so vrstice grafikonov napolnjene z barvami izvirnih celic hkrati, si oglejte posnetek zaslona:

Opombe:

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

2. To kodo je mogoče uporabiti tudi v grafikonu vrstic.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 5 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 · 9 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 · 9 months ago
    If i have more charts in my sheet? do you have another code?