Metin kutusu rengini Excel'deki değere göre nasıl değiştirebilirim?
Excel'de, hücre değerine göre arka plan rengini değiştirmek için Koşullu Biçimlendirme işlevini uygulayabiliriz, ancak bu makalede, metin kutusundaki hücre değerine veya değerine göre metin kutusu renginin nasıl değiştirileceğinden bahsedeceğim.
VBA kodu ile hücre değerine göre metin kutusu rengini değiştirin
VBA kodu ile metin kutusundaki değere göre metin kutusu rengini değiştirin
VBA kodu ile hücre değerine göre metin kutusu rengini değiştirin
Diyelim ki A1'deki hücre değeri B1'deki hücre değerinden büyükse metin kutusunun kırmızı renkle doldurulmasını, aksine metin kutusunun sarı renkle doldurulmasını istiyorum. Lütfen bu işi aşağıdaki adımlarla gerçekleştirin:
1. Tıklayarak bir metin kutusu ekleyin Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrolü)ve ardından bir metin kutusu çizin, ekran görüntüsüne bakın:
2. Ardından metin kutusunu sağ tıklayın ve Kodu Görüntüle bağlam menüsünden Uygulamalar için Microsoft Visual Basic penceresini açın ve ardından orijinal kodu aşağıdaki VBA koduyla boş modüle değiştirin:
VBA kodu: Metin kutusu rengini hücre değerlerine göre değiştirin:
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, Metin Kutusu1 eklediğiniz metin kutusu adıdır, A1 ve B1 metin kutusu rengini değiştirmek istediğiniz iki hücredir, lütfen bunları ihtiyacınıza göre değiştirin.
3. Ardından kod penceresini kaydedip kapatın ve Tasarım moduŞimdi, A1 hücresi B1'den büyükse, metin kutusuna metin yazdığınızda kırmızı renkle doldurulacak ve A1, B1'den küçükse metin kutusuna değer girerken sarı renkle doldurulacak, ekran görüntüsüne bakın:
VBA kodu ile metin kutusundaki değere göre metin kutusu rengini değiştirin
Metin kutusunun 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 dolgulu rengi kırmızı, değer 11 ile 20 arasındaysa metin kutusu rengi yeşil, eğer diğer değerler, metin kutusu rengi sarıdır. Bu görevin üstesinden gelmek için lütfen aşağıdaki VBA kodunu uygulayın.
1. Bir metin kutusu ekledikten sonra, sağ tıklayın ve Kodu Görüntüle bağlam menüsünden Uygulamalar için Microsoft Visual Basic penceresini açın ve ardından orijinal kodu aşağıdaki VBA koduyla boş modüle değiştirin:
VBA kodu: Metin kutusundaki değere göre metin kutusu rengini değiştirin:
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, Metin Kutusu1 eklediğiniz metin kutusunun adıdır ve kod içindeki değerleri ve arka plan rengini kendi başınıza değiştirebilirsiniz.
2. Ardından kod penceresini kaydedip kapatın ve Tasarım Modu, şimdi, metin kutusuna 1 ile 10 arasında bir değer girerseniz, arka plan rengi kırmızı, 11 ile 20 arasındaki değer, metin kutusu arka plan rengi yeşil, diğer değerler, gösterilen ekran görüntüsü gibi sarı olur:
İlgili yazılar:
Metin kutusuna resim nasıl eklenir?
Bir metin kutusunda varsayılan bir değer nasıl ayarlanır?
Metin kutusuna yalnızca sayıların girilmesine nasıl izin verilir?
Metin kutusunda yazım denetimi nasıl uygulanır?
En İyi Ofis Üretkenlik Araçları
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...
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!
