Excel'de metin kutusu rengini değere göre nasıl değiştirebilirsiniz?
Excel'de hücre değerine göre arka plan rengini değiştirmek için Koşullu Biçimlendirme özelliğini kullanabilirsiniz; ancak bu makalede, metin kutusunun rengini hücre değerine veya metin kutusundaki içeriğe göre nasıl değiştireceğinizi öğreneceksiniz.
Hücre değerine göre metin kutusu rengini VBA koduyla değiştirme
Metin kutusundaki değere göre metin kutusu rengini VBA koduyla değiştirme
Hücre değerine göre metin kutusu rengini VBA koduyla değiştirme
Diyelim ki A1 hücresindeki değer B1 hücresindeki değerden büyükse, metin kutusunu kırmızıya boyamak; aksi takdirde ise sarıya boyamak istiyorsunuz. Lütfen bu işlemi aşağıdaki adımları izleyerek gerçekleştirin:
1. Bir metin kutusu eklemek için Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimi) seçeneğine tıklayarak bir metin kutusu çizin; ekran görüntüsüne bakın:
2. Ardından metin kutusuna sağ tıklayıp bağlam menüsünden Kodu Görüntüle seçeneğini seçerek Microsoft Visual Basic for Applications penceresini açın ve aşağıdaki VBA kodunu boş bir modüle girerek 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ı ihtiyacınıza göre güncelleyin.
3. Ardından kod penceresini Kaydet ve Kapat, Tasarım modundan çıkın. Artık A1 hücresi B1’den büyükse, metin kutusuna yazdığınızda kırmızıya; A1, B1’den küçükse ise metin kutusuna girdiğiniz değer sarıya dönecektir. Ekran görüntüsüne bakın:
Metin kutusundaki değere göre metin kutusu rengini VBA koduyla değiştirme
Metin kutusu rengini içindeki değere göre değiştirmek istiyorsanız — örneğin değer 1 ile 10 arasındaysa doldurma rengi kırmızı, 11 ile 20 arasındaysa yeşil, diğer tüm değerler için sarı olsun — bu görevi gerçekleştirmek üzere lütfen aşağıdaki VBA kodunu kullanın.
1. Metin kutusu ekledikten sonra, üzerine sağ tıklayıp bağlam menüsünden Kodu Görüntüle seçeneğini seçerek Microsoft Visual Basic for Applications penceresini açın ve ardından boş modüle aşağıdaki VBA kodunu girip 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; kod içindeki değerleri ve Arka Plan Rengi, kendi ihtiyaçlarınıza göre değiştirebilirsiniz.
2. Ardından kod penceresini Kaydet ve Kapat, ardından Tasarım Modu'ndan çıkın. Artık metin kutusuna 1 ile 10 arasında bir değer girdiğinizde arka plan rengi kırmızıya; 11 ile 20 arasında bir değer girdiğinizde yeşile; diğer tüm değerlerde ise aşağıdaki ekran görüntüsünde gösterildiği gibi sarıya dönecektir:
<
İlgili makaleler:
Metin kutusuna resim nasıl eklenir?
Metin kutusuna varsayılan değer nasıl atanır?
Metin kutusuna yalnızca sayı girişine nasıl izin verilir?
Metin kutusunda imla denetimi nasıl yapılır?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar