Döngü VBA'yı kullanarak renge özel aralığı otomatik olarak doldurmak istiyorsanız. Bu makalede, VBA'da belirli bir koşulu karşılayan for döngüsünü öğreneceksiniz.
Buradaki fikir, A1: A20 aralığı herhangi bir metin veya sayı içeriyorsa, o zaman döngü için excel boş hücreleri otomatik olarak dolduracaktır.
A sütunundaki verilerin anlık görüntüsü aşağıdadır:
Rengi boş hücrelere otomatik olarak doldurmak için aşağıdaki adımları izlememiz gerekir:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Çalışma sayfası modülüne aşağıdaki kodu girin
Alt VBAForLoop()
x = 1 ila 20 için
Hücreler(x, 1).Seç
Selection.Value = "" ise
Select.Interior ile
.Renk = 65535
İle bitmek
Bitir
Sonraki x
Alt Bitiş
- Kodu kopyaladıktan sonra makroyu kullanarak çalıştırmanız gerekir. ALT + F8 & makroyu seçin.
Bu şekilde, for döngüsünü kullanarak rengi otomatik olarak doldurmak için VBA'yı kullanabiliriz.
İndirme-Renk için vba ile Otomatik Doldurma nasıl yapılır