Cum să graficul de culori pe baza culorii celulei din Excel?

În mod normal, când creați o diagramă, culoarea barei de coloane este implicită. Dacă trebuie să formatați culoarea umplută pe fiecare bară pe baza culorilor celulei, după cum se arată în următoarea captură de ecran, cum ați putea să o rezolvați în Excel?

Colorează graficul cu una sau mai multe serii de date pe baza culorii celulei cu coduri VBA

Colorează graficul cu una sau mai multe serii de date pe baza culorii celulei cu o caracteristică uimitoare

Colorează graficul cu una sau mai multe serii de date pe baza culorii celulei cu coduri VBA

Colorează graficul cu o singură serie de date pe baza culorii celulei

Cu următorul cod VBA, puteți schimba rapid culoarea diagramei care conține o serie de date bazată pe culoarea valorilor originale ale celulei, procedați astfel:

1. Mai întâi, creați o diagramă cu bare sau coloane după cum se arată în următoarea captură de ecran (Selectați date și faceți clic pe Insera > Introduceți o coloană sau o diagramă cu bare):

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: bare de diagrame de culori cu o serie de date bazată pe culoarea celulei:

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

notițe: În codul de mai sus, Graficul 1 este numele graficului pe care doriți să îl utilizați, vă rugăm să îl schimbați pe al dvs.

4. După lipirea codului de mai sus, vă rugăm să apăsați F5 tasta pentru a rula acest cod, iar culoarea barelor grafice a fost modificată pe baza culorii originale a celulei, a se vedea captura de ecran:

Colorează graficul cu mai multe serii de date pe baza culorii celulei

Dacă diagrama dvs. cu mai multe serii de date, vă rugăm să aplicați următorul cod VBA:

1. Vă rugăm să creați diagrama de bare sau coloane care conține mai multe serii de date, după cum se arată în următoarea captură de ecran:

2. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Clic Insera > Moduleși lipiți următorul cod în fereastra Module.

Cod VBA: bare colorate cu mai multe serii de date bazate pe culoarea celulei:

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. Apoi apăsați F5 tasta pentru a rula acest cod, barele grafice sunt umplute cu culoarea originală a celulelor simultan, vezi captura de ecran:

note:

1. În codul de mai sus, Graficul 1 este numele graficului pe care doriți să îl utilizați, vă rugăm să îl schimbați pe al dvs.

2. Acest cod poate fi aplicat și unei diagrame.

Colorează graficul cu una sau mai multe serii de date pe baza culorii celulei cu o caracteristică uimitoare

Folosind codurile de mai sus, culorile graficului nu vor fi întotdeauna potrivite cu culoarea celulei, pentru a rezolva această problemă, aici, voi introduce un instrument util - Schimbați culoarea graficului în funcție de culoarea celulei of Kutools pentru Excel, cu această caracteristică la îndemână, puteți colora graficul pe baza culorii celulei rapid și ușor.

După instalare Kutools pentru Excel, vă rugăm să faceți acest lucru:

1. Mai întâi, vă rugăm să inserați diagrama pe care doriți să o utilizați, apoi selectați diagrama, apoi faceți clic pe Kutools > Grafice > Instrumente pentru diagrame > Schimbați culoarea graficului în funcție de culoarea celulei, vezi captura de ecran:

2. Apoi, apare o casetă de prompt, faceți clic pe OK butonul.

3. Acum, graficul pe care l-ați selectat a fost colorat pe baza culorilor celulei, după cum se arată în capturile de ecran de mai jos:

Colorează graficul cu o singură serie de date pe baza culorii celulei

Colorează graficul cu mai multe serii de date pe baza culorii celulei

Descărcați și proba gratuită Kutools pentru Excel acum!

Mai multe articole grafice relative: