Come colorare un grafico in base al colore delle celle in Excel?

Normalmente, quando crei un grafico, il colore delle barre delle colonne è quello predefinito. Se hai bisogno di formattare il colore di riempimento di ogni barra in base ai colori delle celle come mostrato nello screenshot seguente, come potresti risolverlo in Excel?

Colora il grafico con una o più serie di dati in base al colore delle celle utilizzando codici VBA

Colora il grafico con una o più serie di dati in base al colore delle celle con una funzionalità straordinaria

Colora il grafico con una o più serie di dati in base al colore delle celle utilizzando codici VBA

Colora il grafico con una serie di dati in base al colore delle celle

Con il seguente codice VBA, puoi rapidamente cambiare il colore del grafico che contiene una serie di dati in base al colore dei valori originali delle celle, procedi come segue:

1. Prima di tutto, crea un grafico a barre o a colonne come mostrato nello screenshot seguente (Seleziona i dati e clicca su Inserisci > Inserisci Grafico a Colonne o Barre):

2. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Colora le barre del grafico con una serie di dati in base al colore delle celle:

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

Nota: Nel codice sopra, Grafico 1 è il nome del grafico che desideri utilizzare, cambialo con il tuo.

4. Dopo aver incollato il codice sopra, premi il tasto F5 per eseguire questo codice, e il colore delle barre del grafico sarà cambiato in base al colore originale delle celle, vedi screenshot:

Colora il grafico con più serie di dati in base al colore delle celle

Se il tuo grafico ha più serie di dati, applica il seguente codice VBA:

1. Crea il grafico a barre o a colonne che contiene più serie di dati come mostrato nello screenshot seguente:

2. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: Colora le barre del grafico con più serie di dati in base al colore delle celle:

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. Quindi premi il tasto F5 per eseguire questo codice, le barre del grafico verranno riempite immediatamente con il colore delle celle originali, vedi screenshot:

Note:

1. Nel codice sopra, Grafico 1 è il nome del grafico che vuoi utilizzare, cambialo con il tuo.

2. Questo codice può essere applicato anche a un grafico a linee.

Colora il grafico con una o più serie di dati in base al colore delle celle con una funzionalità straordinaria

Utilizzando i codici sopra, i colori del grafico non corrisponderanno sempre al colore delle celle. Per risolvere questo problema, qui ti presento uno strumento utile - Cambia Colore Grafico in Base al Colore della Cella di Kutools per Excel, con questa pratica funzionalità, puoi colorare il grafico in base al colore delle celle rapidamente e facilmente.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Prima di tutto, inserisci il grafico che vuoi utilizzare, quindi seleziona il grafico, poi clicca su Kutools > Grafici > Strumenti Grafico > Cambia Colore Grafico in Base al Colore della Cella, vedi screenshot:

2. Successivamente, apparirà una finestra di dialogo, clicca sul pulsante OK.

3. Ora, il grafico che hai selezionato è stato colorato in base ai colori delle celle come mostrato negli screenshot seguenti:

Colora il grafico con una serie di dati in base al colore delle celle

Colora il grafico con più serie di dati in base al colore delle celle

Scarica e prova gratuitamente Kutools per Excel Ora!

Altri articoli relativi ai grafici: