Ana içeriğe atla

Excel'deki hücre rengine göre grafik nasıl renklendirilir?

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

VBA kodlarıyla hücre rengine göre grafiği bir veya birden fazla veri serisiyle renklendirin

Şaşırtıcı bir özelliğe sahip hücre rengine göre grafiği bir veya birden fazla veri serisiyle renklendirin


VBA kodlarıyla hücre rengine göre grafiği bir veya birden fazla veri serisiyle renklendirin

Tabloyu hücre rengine göre tek veri serisiyle renklendirin

Aşağıdaki VBA kodu ile, orijinal hücre değerleri rengine göre bir veri serisi içeren grafiğin rengini hızlı bir şekilde değiştirebilirsiniz, lütfen şu şekilde yapın:

1. İlk olarak, aşağıda gösterilen ekran görüntüsü gibi bir çubuk veya sütun grafiği oluşturun (Verileri seçin ve Ekle > Sütun veya Çubuk Grafik Ekle):

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Hücre rengine göre bir veri serisine sahip renk tablosu çubukları:

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 kendi başınıza değiştirin.

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


Hücre rengine göre grafiği birden çok veri serisiyle renklendirin

Grafiğiniz birden çok veri serisine sahipse, lütfen aşağıdaki VBA kodunu uygulayın:

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

2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

3. tıklayın Ekle > modülve aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Hücre rengine göre birden çok veri serisine sahip renk tablosu çubukları:

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, grafik çubukları aynı anda orijinal hücre rengiyle doldurulur, ekran görüntüsüne bakın:

Notlar:

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

2. Bu kod bir çizgi grafiğine de uygulanabilir.


Şaşırtıcı bir özelliğe sahip hücre rengine göre grafiği bir veya birden fazla veri serisiyle renklendirin

Yukarıdaki kodları kullanarak, grafiğin renkleri her zaman hücre rengiyle eşleşmeyecektir, bu sorunu çözmek için burada yararlı bir araç sunacağım - Grafik Rengini Hücre Rengine Göre Değiştirin of Kutools for ExcelBu kullanışlı özellik sayesinde, hücre rengine göre grafiği hızlı ve kolay bir şekilde renklendirebilirsiniz.

Not: Bunu uygulamak için Grafik Rengini Hücre Rengine Göre Değiştirinöncelikle Kutools for Excelve ardından özelliği hızlı ve kolay bir şekilde uygulayın.

Kurduktan sonra Kutools for Excellütfen şunu yapın:

1. Öncelikle, lütfen kullanmak istediğiniz grafiği ekleyin ve ardından grafiği seçin, ardından Kutools > Grafikler > Grafik Araçları > Grafik Rengini Hücre Rengine Göre Değiştirin, ekran görüntüsüne bakın:

2. Ve sonra bir komut kutusu açılır, lütfen tıklayın OK düğmesine basın.

3. Şimdi, seçtiğiniz grafik, aşağıda gösterilen ekran görüntüleri gibi hücre renklerine göre renklendirildi:

Tabloyu hücre rengine göre tek veri serisiyle renklendirin

Hücre rengine göre grafiği birden çok veri serisiyle renklendirin

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


Daha göreli grafik makaleleri:

  • Excel'de Başka Bir Çubuk Grafiği Kaplayarak Bir Çubuk Grafik Oluşturma
  • İki veri serisi ile kümelenmiş bir çubuk veya sütun grafiği oluşturduğumuzda, iki veri serisi çubuğu yan yana gösterilecektir. Ancak bazen, iki veri serisini daha net bir şekilde karşılaştırmak için üst üste binen veya örtüşen çubuk grafiği kullanmamız gerekir. Bu yazımda Excel'de örtüşen bir çubuk grafiğin nasıl oluşturulacağından bahsedeceğim.
  • Bir Grafik Formatını Excel'de Diğerlerine Kopyala
  • Çalışma sayfanızda birden çok farklı grafik türü olduğunu varsayarsak, ihtiyacınıza göre bir grafiği biçimlendirdiniz ve şimdi bu grafik biçimlendirmesini diğer grafiklere uygulamak istiyorsunuz. Elbette, diğerlerini tek tek manuel olarak biçimlendirebilirsiniz, ancak bu çok zaman kaybedecektir, Excel'de bir grafik biçimini diğerlerine kopyalamanın hızlı veya kullanışlı yolları var mı?
  • Bir Grafikte Maksimum Ve Minimum Veri Noktalarını Vurgulayın
  • Aşağıdaki ekran görüntüsü gibi, farklı renklerle en yüksek veya en küçük veri noktalarını vurgulamak istediğiniz bir sütun grafiğiniz varsa. En yüksek ve en küçük değerleri nasıl belirleyebilir ve ardından grafikteki veri noktalarını hızlıca vurgulayabilirsiniz?
  • Excel'de Adım Grafiği Oluşturun
  • Düzensiz aralıklarla gerçekleşen değişiklikleri göstermek için bir adım grafiği kullanılır, bu bir çizgi grafiğinin genişletilmiş bir versiyonudur. Ancak, bunu Excel'de oluşturmanın doğrudan bir yolu yoktur. Bu yazımda, Excel çalışma sayfasında adım adım nasıl adım çizelgesi oluşturulacağından bahsedeceğim.
  • Excel'de İlerleme Çubuğu Grafiği Oluşturun
  • Excel'de ilerleme çubuğu grafiği, aşağıda gösterilen ekran görüntüsü gibi bir hedefe doğru ilerlemeyi izlemenize yardımcı olabilir. Ancak, Excel çalışma sayfasında nasıl bir ilerleme çubuğu grafiği oluşturabilirsiniz?

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
For more than 1 Chart:



Sub CellColorsToChart()'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long, Y As Long
Dim xRowsOrCols As Long, xSCount As Long Dim xRg As Range, xCell As Range
On Error Resume Next

For Y = 1 To 100Set xChart = ActiveSheet.ChartObjects("Chart "&Y).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 WithNext
Next
End Sub

This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
This comment was minimized by the moderator on the site
It is ok. But... why simply not going to "Format Legend Entry" option in every data series in the chart, and go "Fill" and make it the color you want. I mean... all is ok, but a VBA code for this simple task is kinda overkill. But thanks. Appreciate you share it.
This comment was minimized by the moderator on the site
i cant make it work :( is this supposed to work on a stacked bar chart? Thanks
This comment was minimized by the moderator on the site
This was an awesome start, but the colors of the chart and the cells don't always match. Any idea why?
This comment was minimized by the moderator on the site
Thank you for the codes! How would you add a conditional format when the format is already established?
This comment was minimized by the moderator on the site
Thank you for these codes! This was exactly what I've been looking for with one detail not quite fitting. When I ran the code, the bar graphs colored in correctly but not legend which stayed unchanged. Is there a variation to the code that would include the legend? Or is there a way to match the Legend to the changes in the chart without a code?
This comment was minimized by the moderator on the site
If i have more charts in my sheet? do you have another code?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations