/ / Excel VBA'da Tüm Sütun ile Döngü

Excel VBA'da Tüm Sütun ile Döngü

Aşağıda bir programa bakacağız Excel VBA o ilk sütunun tamamı boyunca döngüler ve belirli bir değerden daha düşük olan tüm değerleri renklendirir.

Excel VBA'da Tüm Sütun ile Döngü

Excel VBA'da Tüm Sütun ile Döngü

Ç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 bir i değişkenini bildirin. Uzun değişkenler, Tamsayı değişkenlerinden daha büyük kapasiteye sahip oldukları için burada uzun bir değişken türü kullanıyoruz.

Dim i As Long

2. Ardından, A sütunundaki tüm hücrelerin yazı tipi rengini siyah olarak değiştiren kod satırını ekleyin.

Columns(1).Font.Color = vbBlack

3. Döngüyü ekleyin.

For i = 1 To Rows.Count

Next i

Not: Çalışma sayfaları, Excel 2003'te 65.536 satıra ve Excel 2007 veya sonraki sürümlerinde 1.048.576 satıra kadar olabilir. Hangi sürümü kullanıyor olursanız olun, yukarıdaki kod satırı tüm satırlar arasında dolaşır (indirilebilir Excel dosyası Excel 97-2003 biçimindedir).

4. Ardından, D2 hücresine girilen değerden daha düşük olan tüm değerleri renklendiririz. Boş hücreler göz ardı edilir. Döngü için aşağıdaki kod satırlarını ekleyin.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
    Cells(i, 1).Font.Color = vbRed
End If

Sayfadaki komut düğmesine tıkladığınızda sonuç (bu biraz zaman alabilir):

Tüm Sütun Sonucu ile Döngü

Tüm Sütun Sonucu ile Döngü

Ayrıca oku: