Jak korzystać z funkcji counta w vba (z przykładami)

Możesz użyć metody CountA w VBA, aby policzyć liczbę niepustych komórek w określonym zakresie.

Oto powszechny sposób wykorzystania tej metody w praktyce:

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

W tym konkretnym przykładzie zlicza się liczbę niepustych komórek w zakresie A1:A10 i wyświetla wynik w komórce C1 .

Jeśli zamiast tego chcesz wyświetlić liczbę niepustych komórek w oknie komunikatu, możesz użyć następującej składni:

 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

Poniższe przykłady pokazują, jak w praktyce zastosować każdą z tych metod z następującą kolumną wartości w Excelu:

Przykład 1: Policz niepuste komórki w zakresie i wyświetl wyniki w komórce

Załóżmy, że chcemy obliczyć liczbę niepustych komórek w zakresie A1:A10 i wyświetlić wyniki w określonej komórce.

W tym celu możemy utworzyć następujące makro:

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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważ, że komórka C1 zawiera wartość 7 .

To mówi nam, że w zakresie A1:A10 znajduje się 7 niepustych komórek.

Przykład 2: Zlicz niepuste komórki w zakresie i wyświetl wyniki w oknie komunikatu

Załóżmy, że zamiast tego chcemy policzyć liczbę niepustych komórek w zakresie A1:A10 i wyświetlić wyniki w oknie komunikatu.

W tym celu możemy utworzyć następujące makro:

 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

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Okno komunikatu informuje nas, że w zakresie A1:A10 znajduje się 7 niepustych komórek.

Pamiętaj, że jeśli zamiast tego chcesz policzyć liczbę niepustych komórek w całej kolumnie, możesz zamiast tego wpisać A:A .

Spowoduje to obliczenie liczby niepustych komórek w całej kolumnie A.

Uwaga : Pełną dokumentację metody VBA CountA znajdziesz tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak pisać funkcje ŚREDNIA.JEŻELI i ŚREDNIA.JEŻELI
VBA: Jak pisać funkcje SUMIF i SUMIFS
VBA: Jak pisać funkcje COUNTIFS i COUNTIFS