Como colorir um gráfico com base na cor da célula no Excel?

Normalmente, ao criar um gráfico, a cor da barra da coluna é a padrão. Se você precisar formatar a cor de preenchimento em cada barra com base nas cores das células, como mostra a captura de tela a seguir, como você resolveria isso no Excel?

Colorir o gráfico com uma ou várias séries de dados com base na cor da célula usando códigos VBA

Colorir o gráfico com uma ou várias séries de dados com base na cor da célula com um recurso incrível

Colorir o gráfico com uma ou várias séries de dados com base na cor da célula usando códigos VBA

Colorir o gráfico com uma série de dados com base na cor da célula

Com o seguinte código VBA, você pode alterar rapidamente a cor do gráfico que contém uma série de dados com base na cor dos valores das células originais; siga estas instruções:

1. Primeiro, crie um gráfico de barras ou colunas como mostra a captura de tela a seguir (Selecione os dados e clique em Inserir > Inserir Gráfico de Coluna ou Barra):

2. Pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Colorir barras do gráfico com uma série de dados com base na cor da célula:

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

Observação: No código acima, Gráfico 1 é o nome do gráfico que você deseja usar; altere-o para o seu próprio.

4. Após colar o código acima, pressione a tecla F5 para executá-lo, e a cor das barras do gráfico será alterada com base na cor original da célula; veja a captura de tela:

Colorir o gráfico com várias séries de dados com base na cor da célula

Se o seu gráfico tiver várias séries de dados, aplique o seguinte código VBA:

1. Por favor, crie o gráfico de barras ou colunas que contém várias séries de dados como mostra a captura de tela a seguir:

2. Pressione as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.

Código VBA: Colorir barras do gráfico com várias séries de dados com base na cor da célula:

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. Em seguida, pressione a tecla F5 para executar este código, e as barras do gráfico serão preenchidas com a cor das células originais imediatamente; veja a captura de tela:

Observações:

1. No código acima, Gráfico 1 é o nome do gráfico que você deseja usar; altere-o para o seu próprio.

2. Este código também pode ser aplicado a um gráfico de linhas.

Colorir o gráfico com uma ou várias séries de dados com base na cor da célula com um recurso incrível

Ao usar os códigos acima, as cores do gráfico nem sempre corresponderão à cor da célula. Para resolver esse problema, aqui eu apresentarei uma ferramenta útil - Alterar Cor do Gráfico com Base na Cor da Célula do Kutools para Excel. Com esse recurso prático, você pode colorir o gráfico com base na cor da célula rapidamente e facilmente.

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Primeiro, insira o gráfico que você deseja usar, selecione o gráfico e clique em Kutools > Gráficos > Ferramentas de Gráfico > Alterar Cor do Gráfico com Base na Cor da Célula; veja a captura de tela:

2. Em seguida, uma caixa de prompt será exibida; clique no botão OK.

3. Agora, o gráfico selecionado foi colorido com base nas cores das células, como mostram as capturas de tela abaixo:

Colorir o gráfico com uma série de dados com base na cor da célula

Colorir o gráfico com várias séries de dados com base na cor da célula

Baixe e experimente gratuitamente o Kutools para Excel agora!

Mais artigos relacionados a gráficos: