Hur färgar jag diagram baserat på cellfärg i Excel?

Normalt är färgen på kolumnraden standard när du skapar ett diagram. Om du behöver formatera fylld färg på varje stapel baserat på cellfärgerna enligt följande skärmdump, hur kan du lösa det i Excel?

Färga diagrammet med en eller flera dataserier baserat på cellfärg med VBA-koder

Färga diagrammet med en eller flera dataserier baserat på cellfärg med en fantastisk funktion

Färga diagrammet med en eller flera dataserier baserat på cellfärg med VBA-koder

Färga diagrammet med en dataserie baserat på cellfärg

Med följande VBA-kod kan du snabbt ändra färgen på diagrammet som innehåller en dataserie baserat på de ursprungliga cellvärdena, gör så här:

1. Skapa först ett stapel- eller kolumndiagram enligt följande skärmdump (Välj data och klicka Insert > Infoga kolumn eller stapeldiagram):

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Färgkortsfält med en dataserie baserat på cellfärg:

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

Anmärkningar: I ovanstående kod, Diagram 1 är det diagramnamn som du vill använda, ändra det till ditt eget.

4. När du har klistrat in ovanstående kod, tryck på F5 nyckel för att köra den här koden, och färgen på diagramstaplarna har ändrats baserat på den ursprungliga cellfärgen, se skärmdump:

Färga diagrammet med flera dataserier baserat på cellfärg

Om ditt diagram med flera dataserier, använd följande VBA-kod:

1. Skapa stapeln eller kolumndiagrammet som innehåller flera dataserier enligt följande skärmdump:

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA-kod: Färgdiagramfält med flera dataserier baserat på cellfärg:

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. Tryck sedan på F5 nyckel för att köra den här koden, kartstaplarna är fyllda med originalceller färg på en gång, se skärmdump:

Anmärkningar:

1. I ovanstående kod, Diagram 1 är det diagramnamn som du vill använda, ändra det till ditt eget.

2. Denna kod kan också tillämpas på ett linjediagram.

Färga diagrammet med en eller flera dataserier baserat på cellfärg med en fantastisk funktion

Genom att använda ovanstående koder kommer färgerna i diagrammet inte alltid att matchas med cellfärgen, för att lösa detta problem, här introducerar jag ett användbart verktyg - Ändra diagramfärg enligt cellfärg of Kutools för Excel, med den här praktiska funktionen kan du snabbt och enkelt färglägga diagrammet baserat på cellfärgen.

När du har installerat Kutools för Excel, gör så här:

1. Först ska du infoga det diagram som du vill använda och sedan välja diagrammet och klicka sedan på Kutools > Diagram > Diagramverktyg > Ändra diagramfärg enligt cellfärg, se skärmdump:

2. Och sedan visas en snabbruta, klicka OK knapp.

3. Nu har diagrammet du valt färgats baserat på cellfärgerna som visas nedan:

Färga diagrammet med en dataserie baserat på cellfärg

Färga diagrammet med flera dataserier baserat på cellfärg

Ladda ner och testa gratis Kutools för Excel nu!

Fler relativa diagramartiklar: