Aşağıda bir programa bakacağız Excel VBA'sı o tüm ilk sütun boyunca döngüler ve belirli bir değerin altındaki tüm değerleri renklendirir.
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
1. İlk olarak, Long türünde i adında bir değişken tanımlayın. Burada Long türünde bir değişken kullanıyoruz çünkü Long değişkenleri Tamsayı değişkenlerinden daha büyük kapasiteye sahip.
Dim kadar uzun
2. Ardından, A sütunundaki tüm hücrelerin yazı tipi rengini siyaha çeviren kod satırını ekleyin.
Sütunlar(1).Font.Color = vbBlack
3. Döngüyü ekleyin.
i = 1 To Rows.Count için
sonraki ben
Not: Excel 2007 veya sonraki sürümlerde çalışma sayfalarında en fazla 1.048.576 satır olabilir. Hangi sürümü kullanırsanız kullanın, yukarıdaki kod satırı tüm satırlar arasında dolaşır.
4. Ardından, D2 hücresine girilen değerden daha düşük olan tüm değerleri renklendiriyoruz. Boş hücreler yoksayılır. Aşağıdaki kod satırlarını döngüye ekleyin.
Eğer Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) O zaman
Hücreler(i, 1).Font.Color = vbRed
Bitir
Sayfadaki komut düğmesine tıkladığınızda sonuç (bu biraz zaman alabilir):
