Vba'da counta fonksiyonu nasıl kullanılır (örneklerle)

Belirli bir aralıktaki boş olmayan hücrelerin sayısını saymak için VBA’daki CountA yöntemini kullanabilirsiniz.

Bu yöntemi pratikte kullanmanın yaygın bir yolu:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

Bu özel örnek, A1:A10 aralığındaki boş olmayan hücrelerin sayısını sayar ve sonucu C1 hücresinde görüntüler.

Bunun yerine bir mesaj kutusundaki boş olmayan hücrelerin sayısını görüntülemek istiyorsanız aşağıdaki sözdizimini kullanabilirsiniz:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

Aşağıdaki örnekler, bu yöntemlerin her birinin pratikte Excel’deki aşağıdaki değer sütunuyla nasıl kullanılacağını gösterir:

Örnek 1: Aralıktaki boş olmayan hücreleri sayın ve sonuçları hücrede görüntüleyin

A1:A10 aralığındaki boş olmayan hücrelerin sayısını hesaplamak ve sonuçları belirli bir hücrede görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCountARange ()
    Range(" C1 ") = WorksheetFunction.CountA(Range(" A1:A10 "))
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

C1 hücresinin 7 değerini içerdiğine dikkat edin.

Bu bize A1:A10 aralığında 7 adet boş olmayan hücre olduğunu söyler.

Örnek 2: Aralıktaki boş olmayan hücreleri sayın ve sonuçları mesaj kutusunda görüntüleyin

Bunun yerine A1:A10 aralığındaki boş olmayan hücrelerin sayısını saymak ve sonuçları bir mesaj kutusunda görüntülemek istediğimizi varsayalım.

Bunun için aşağıdaki makroyu oluşturabiliriz:

 SubCountARange ()
    'Create variable to hold results of CountA
    Dim counta As Single
    
    'Calculate number of non-empty cells in range
    counta = WorksheetFunction.CountA(Range(" A1:A10 "))
    
    'Display the result
    MsgBox " Number of Non-Empty Cells in Range: " & counta 
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Mesaj kutusu bize A1:A10 aralığında 7 adet boş olmayan hücre bulunduğunu söylüyor.

Bunun yerine tüm sütundaki boş olmayan hücrelerin sayısını saymak istiyorsanız bunun yerine A:A yazabileceğinizi unutmayın.

Bu, A sütununun tamamındaki boş olmayan hücrelerin sayısını hesaplayacaktır.

Not : VBA CountA yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: EĞER ORTALAMA ve EĞER ORTALAMA işlevleri nasıl yazılır
VBA: ETOPLA ve ETOPLA işlevleri nasıl yazılır
VBA: COUNTIF ve COUNTIFS işlevleri nasıl yazılır?