Vba: jak liczyć wiersze w zaznaczeniu


Do zliczenia liczby wierszy w zaznaczeniu za pomocą języka VBA można użyć następujących metod:

Metoda 1: Policz zaznaczone wiersze i wyświetl liczbę w oknie komunikatu

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

Ten konkretny przykład zlicza liczbę wierszy w bieżącym zaznaczeniu, a następnie wyświetla tę liczbę w oknie komunikatu.

Metoda 2: Policz zaznaczone wiersze i wyświetl liczbę w określonej komórce

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

Ten konkretny przykład zlicza liczbę wierszy w bieżącym zaznaczeniu, a następnie wyświetla tę liczbę w komórce E1 .

Poniższe przykłady pokazują, jak zastosować każdą metodę w praktyce.

Przykład 1: Policz zaznaczone wiersze i wyświetl liczbę w oknie komunikatu

Załóżmy, że w naszym arkuszu kalkulacyjnym wybieramy zakres komórek A1:C17 :

Możemy utworzyć następujące makro, aby policzyć liczbę wierszy w zaznaczeniu i wyświetlić wyniki w oknie komunikatu:

 SubCountRowsInSelection ()

MsgBox Selection.Rows.Count

End Sub

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

VBA zlicza wiersze w bieżącym zaznaczeniu

Okno komunikatu informuje nas, że w bieżącym zaznaczeniu znajduje się 17 wierszy.

Przykład 2: Policz zaznaczone wiersze i wyświetl liczbę w określonej komórce

Załóżmy, że w naszym arkuszu kalkulacyjnym wybieramy zakres komórek A4:D9 :

Możemy utworzyć następujące makro, aby policzyć liczbę wierszy w zaznaczeniu i wyświetlić wyniki w komórce E1 :

 SubCountRowsInSelection ()

Range("E1").Value = Selection.Rows.Count

End Sub

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

Komórka E1 informuje nas, że w bieżącym zaznaczeniu znajduje się 6 wierszy.

Dodatkowe zasoby

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

Jak liczyć wiersze w tabeli za pomocą VBA
Jak policzyć komórki z określonym tekstem za pomocą VBA
Jak policzyć unikalne wartości w zakresie za pomocą VBA

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *