Excel'de hücre rengine göre grafiği nasıl renklendirirsiniz?

Normalde, bir grafik oluşturduğunuzda sütun çubuğunun rengi varsayılandır. Aşağıdaki ekran görüntüsünde gösterildiği gibi her bir çubuğu hücre renklerine göre biçimlendirmeniz gerekiyorsa, bunu Excel'de nasıl çözebilirsiniz?

VBA kodları ile hücre rengine göre tek veya birden fazla veri serisi içeren grafiği renklendirin

Harika bir özellik ile hücre rengine göre tek veya birden fazla veri serisi içeren grafiği renklendirin

VBA kodları ile hücre rengine göre tek veya birden fazla veri serisi içeren grafiği renklendirin

Hücre rengine göre tek veri serisi içeren grafiği renklendirin

Aşağıdaki VBA kodu ile orijinal hücre değerlerinin rengine göre tek veri serisi içeren grafiğin rengini hızlıca değiştirebilirsiniz, lütfen şu adımları izleyin:

1. İlk olarak, aşağıdaki ekran görüntüsünde gösterildiği gibi bir çubuk veya sütun grafiği oluşturun (Veri seçin ve Ekle > Sütun veya Çubuk Grafiği Ekle'ye tıklayın):

2. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

3. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre rengine göre tek veri serisi içeren grafik çubuklarını renklendirin:

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

Not: Yukarıdaki kodda, Grafik 1 kullanmak istediğiniz grafik adıdır, lütfen bunu kendi grafik adınızla değiştirin.

4. Yukarıdaki kodu yapıştırdıktan sonra, lütfen bu kodu çalıştırmak için F5 tuşuna basın ve grafik çubuklarının rengi orijinal hücre rengine göre değişecektir, aşağıdaki ekran görüntüsüne bakın:

Hücre rengine göre birden fazla veri serisi içeren grafiği renklendirin

Grafikte birden fazla veri serisi varsa, lütfen aşağıdaki VBA kodunu uygulayın:

1. Lütfen aşağıdaki ekran görüntüsünde gösterildiği gibi birden fazla veri serisi içeren çubuk veya sütun grafiği oluşturun:

2. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

3. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Hücre rengine göre birden fazla veri serisi içeren grafik çubuklarını renklendirin:

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. Ardından bu kodu çalıştırmak için F5 tuşuna basın, grafik çubukları hemen orijinal hücre renkleriyle doldurulacaktır, aşağıdaki ekran görüntüsüne bakın:

Notlar:

1. Yukarıdaki kodda, Grafik 1 kullanmak istediğiniz grafik adıdır, lütfen bunu kendi grafik adınızla değiştirin.

2. Bu kod ayrıca çizgi grafiğine de uygulanabilir.

Harika bir özellik ile hücre rengine göre tek veya birden fazla veri serisi içeren grafiği renklendirin

Yukarıdaki kodları kullanarak, grafik renkleri her zaman hücre rengiyle eşleşmeyecektir. Bu sorunu çözmek için burada size faydalı bir araç tanıtacağım - Kutools for Excel'in Hücre Rengine Göre Grafik Rengini Değiştir özelliği. Bu kullanışlı özellik ile hücre rengine göre grafiği hızlı ve kolay bir şekilde renklendirebilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:

1. İlk olarak, kullanmak istediğiniz grafiği ekleyin ve ardından grafiği seçin, ardından Kutools > Grafikler > Grafik Araçları > Hücre Rengine Göre Grafik Rengini Değiştir'e tıklayın, aşağıdaki ekran görüntüsüne bakın:

2. Ardından, bir uyarı kutusu açılacak, lütfen Tamam düğmesine tıklayın.

3. Şimdi, seçtiğiniz grafik aşağıdaki ekran görüntülerinde gösterildiği gibi hücre renklerine göre renklendirilmiştir:

Hücre rengine göre tek veri serisi içeren grafiği renklendirin

Hücre rengine göre birden fazla veri serisi içeren grafiği renklendirin

Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!

Daha fazla ilgili grafik makalesi: