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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin