Excel'de değere göre metin kutusu rengini nasıl değiştirirsiniz?

Excel'de, hücre değerine göre arka plan rengini değiştirmek için Koşullu Biçimlendirme fonksiyonunu kullanabiliriz. Ancak bu makalede, hücre değerine veya metin kutusundaki değere göre metin kutusu rengini nasıl değiştireceğimden bahsedeceğim.

VBA kodu ile hücre değerine göre metin kutusu rengini değiştirme

VBA kodu ile metin kutusundaki değere göre metin kutusu rengini değiştirme

VBA kodu ile hücre değerine göre metin kutusu rengini değiştirme

Diyelim ki, A1 hücresindeki değer B1 hücresindeki değerden büyükse, metin kutusunun kırmızı renkle doldurulmasını istiyorum; aksi takdirde, metin kutusu sarı renkle doldurulmalıdır. Lütfen bu işi aşağıdaki adımlarla gerçekleştirin:

1. Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrolü) öğesine tıklayarak bir metin kutusu ekleyin ve ardından bir metin kutusu çiziniz, aşağıdaki ekran görüntüsüne bakınız:

2. Ardından metin kutusuna sağ tıklayın ve bağlam menüsünden Kodu Görüntüle'yi seçerek Microsoft Visual Basic for Applications penceresini açın ve ardından aşağıdaki VBA kodunu boş modüle yerleştirerek orijinal kodu değiştirin:

VBA kodu: Hücre değerlerine göre metin kutusu rengini değiştirme:

Private Sub TextBox1_Change()
    If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
        Me.TextBox1.BackColor = vbRed
    Else
        Me.TextBox1.BackColor = vbYellow
    End If
End Sub

Not: Yukarıdaki kodda, TextBox1 eklediğiniz metin kutusunun adıdır, A1 ve B1 ise metin kutusu rengini değiştirmek istediğiniz iki hücredir, lütfen bunları ihtiyaçlarınıza göre değiştirin.

3. Ardından kod penceresini kaydedip kapatın ve Tasarım modundan çıkın, şimdi eğer A1 hücresi B1'den büyükse, metin kutusuna metin yazdığınızda kırmızı renkle dolacaktır, ve eğer A1 B1'den küçükse, metin kutusuna değer girdiğinizde sarı renkle dolacaktır, aşağıdaki ekran görüntüsüne bakınız:

VBA kodu ile metin kutusundaki değere göre metin kutusu rengini değiştirme

Eğer metin kutusu rengini metin kutusundaki değere göre değiştirmek istiyorsanız, örneğin, metin kutusundaki değer 1 ile 10 arasında olduğunda metin kutusunun dolgu rengi kırmızı, değer 11 ile 20 arasında olduğunda metin kutusu rengi yeşil, diğer değerlerde ise metin kutusu rengi sarı olacaktır. Bu görevle başa çıkmak için lütfen aşağıdaki VBA kodunu uygulayın.

1. Bir metin kutusu ekledikten sonra, sağ tıklayın ve bağlam menüsünden Kodu Görüntüle'yi seçerek Microsoft Visual Basic for Applications penceresini açın ve ardından aşağıdaki VBA kodunu boş modüle yerleştirerek orijinal kodu değiştirin:

VBA kodu: Metin kutusundaki değere göre metin kutusu rengini değiştirme:

Private Sub TextBox1_Change()
    On Error Resume Next
    Select Case TextBox1.Value
        Case 1 To 10:
            TextBox1.BackColor = vbRed
        Case 11 To 20:
            TextBox1.BackColor = vbGreen
        Case Else:
            TextBox1.BackColor = vbYellow
    End Select
End Sub

Not: Yukarıdaki kodda, Textbox1 eklediğiniz metin kutusunun adıdır ve kod içindeki değerleri ve arka plan rengini kendi ihtiyaçlarınıza göre değiştirebilirsiniz.

2. Ardından kod penceresini kaydedip kapatın ve Tasarım Modundan çıkın, şimdi metin kutusuna 1 ile 10 arasındaki bir değer girerseniz, arka plan rengi kırmızı olacak, 11 ile 20 arasındaki bir değer girerseniz, metin kutusu arka plan rengi yeşil olacak, diğer değerlerde ise sarı olacaktır, aşağıdaki ekran görüntüsünde gösterildiği gibi:

İlgili makaleler:

Metin kutusuna nasıl resim eklenir?

Metin kutusunda varsayılan bir değer nasıl ayarlanır?

Metin kutusunda yalnızca sayıların girilmesine nasıl izin verilir?

Metin kutusunda yazım denetimi nasıl uygulanır?