VBA ile bir duruma göre bir Excel hücre rengi nasıl ayarlanır?

Son Güncelleme: Ağustos 2021; Microsoft Excel 365, 2019, 2016.

Bugünün Excel Otomasyonu için VBA eğitiminde, hücre değerine dayalı olarak bir hücrenin rengini programlı olarak nasıl değiştirebileceğimizi öğreneceğiz.

Bu tekniği, örneğin basit bir durum panosu geliştirirken kullanabiliriz.

Kurmak

Henüz Excel'de geliştirme yapmıyorsanız, Excel Makrolarına giriş kılavuzumuza bakmanızı öneririz . Özellikle, bazı basit kodlar yazmak için kullanacağınız için Microsoft Excel Şeridi'nizde Geliştirici sekmesinin mevcut olduğundan emin olmanız gerekir.

• Microsoft Excel'i açın. Bu öğreticide sağlanan kodun Excel 2007 ve sonrasında çalışması beklendiğini unutmayın.
• Boş bir çalışma sayfasına aşağıdaki tabloyu ekleyin:

• Şimdi devam edin ve şuna basarak adlandırılmış bir Aralık tanımlayın: Formüller >> Adı Tanımla

• Tamam'a basın

Cell.Interior.Color ile hücre iç rengini değere göre değiştirme

• Şeritteki Geliştirici girişine basın.
• Geliştirici VBA düzenleyicinizi açmak için Visual Basic veya Alt+F11 tuşlarına basın.
• Ardından, kodunuzu çalıştırmak istediğiniz Çalışma Sayfasını vurgulayın. Alternatif olarak, VBA kodunuzu içeren bir modül seçin.
• Devam edin ve bu kodu yapıştırın. Örneğimizde, bir hücre aralığının iç rengini kırmızı, sarı ve yeşil renklere karşılık gelen belirli hücre RGB değerlerine değiştireceğiz.
• Spesifik olarak Excel VBA yöntemini Cell.Interior.Color kullanıyoruz ve ilgili RGB değerini veya renk indeksini iletiyoruz.

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• F5 veya Run >> Run Sub / UserForm tuşlarına basarak kodunuzu çalıştırın.
• Durum panosunun aşağıda gösterildiği gibi doldurulduğunu fark edeceksiniz:

• Kodunuzu kaydedin ve VBA düzenleyicinizi kapatın.