Як розфарбувати діаграму на основі кольору комірки в Excel?

Зазвичай, коли ви створюєте діаграму, кольором стовпця стовпця є за замовчуванням. Якщо вам потрібно відформатувати заповнений колір на кожному рядку на основі кольорів комірок, як показано на наступному знімку екрана, як ви можете це вирішити в Excel?

Розфарбуйте діаграму одним або декількома рядами даних на основі кольору комірки з кодами VBA

Розфарбуйте діаграму одним або декількома рядами даних на основі кольору комірки з дивовижною особливістю

Розфарбуйте діаграму одним або декількома рядами даних на основі кольору комірки з кодами VBA

Розфарбуйте діаграму одним рядом даних на основі кольору комірки

За допомогою наведеного нижче коду VBA ви можете швидко змінити колір діаграми, яка містить один ряд даних, виходячи із кольору оригінальних значень комірок. Будь ласка, зробіть так:

1. Спочатку створіть стовпчасту або стовпчасту діаграму, як показано на наведеному нижче знімку екрана (Виберіть дані та натисніть Insert > Вставити стовпчик або стовпчасту діаграму):

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний код у вікно модуля.

Код VBA: Кольорові діаграми з одним рядом даних на основі кольору комірки:

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

примітки: У наведеному вище коді, Графік 1 це назва діаграми, яку ви хочете використовувати, будь ласка, змініть її на свою.

4. Після вставки вищевказаного коду, натисніть F5 клавішу для запуску цього коду, і колір смужок діаграми змінено на основі вихідного кольору комірки, див. знімок екрана:

Розфарбуйте діаграму кількома рядами даних на основі кольору комірки

Якщо ваша діаграма містить декілька рядів даних, застосуйте такий код VBA:

1. Будь ласка, створіть стовпчасту або стовпчасту діаграму, яка містить кілька рядів даних, як показано на наступному знімку екрана:

2. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. Клацання Insert > Модуліта вставте наступний код у вікно Модуль.

Код VBA: Смужки кольорових діаграм з кількома рядами даних на основі кольору комірки:

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. Потім натисніть F5 для запуску цього коду, рядки діаграми одночасно заповнюються оригінальним кольором комірок, див. знімок екрана:

Примітки:

1. У наведеному вище коді Графік 1 це назва діаграми, яку ви хочете використовувати, будь ласка, змініть її на свою.

2. Цей код також можна застосувати до лінійної діаграми.

Розфарбуйте діаграму одним або декількома рядами даних на основі кольору комірки з дивовижною особливістю

Використовуючи наведені вище коди, кольори діаграми не завжди будуть узгоджуватися з кольором комірки, щоб вирішити цю проблему, тут я представив корисний інструмент - Змінити колір діаграми відповідно до кольору комірки of Kutools для Excel, за допомогою цієї зручної функції, ви можете швидко і легко розфарбувати діаграму на основі кольору клітинки.

після установки Kutools для Excel, будь ласка, зробіть так:

1. Спочатку вставте діаграму, яку ви хочете використовувати, а потім виберіть діаграму та натисніть Кутулс > Чарти > Інструменти діаграм > Змінити колір діаграми відповідно до кольору комірки, див. скріншот:

2. А потім, спливаюче вікно з’явиться, натисніть, будь ласка OK кнопки.

3. Тепер обрана вами діаграма забарвлена ​​на основі кольорів комірок, як показано на скріншотах нижче:

Розфарбуйте діаграму одним рядом даних на основі кольору комірки

Розфарбуйте діаграму кількома рядами даних на основі кольору комірки

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

Більше відносних статей діаграми: