Jak badać komórki za pomocą makra
Czy chcesz ocenić komórki i określić, ile komórek jest wypełnionych w zakresie, a ile nie? Poniższy rysunek przedstawia przykład:
Znacznik A1: B7 zawiera kilka pustych komórek i kilka wypełnionych komórek. Jeśli chcesz ocenić to w makrze, możesz użyć następującego kodu programu:
Liczba podrzędnych wypełnionych komórek ()
Dim numer tak długo
Dim Number2 Tak długo
Przyciemnij obszar jako zakres
Przyciemnij jako ciąg
Ustaw obszar = Wybór
Liczba = Aplikacja.CountA (obszar)
Liczba2 = powierzchnia.Komórki.Liczba - liczba
a = MsgBox ("W bieżącym zaznaczeniu są" _
& Liczba & "komórki wypełnione i" & liczba2 _
& "Komórki puste.", VbOKOnly, "oceniaj komórki")
Napis końcowy
Makro ustawia funkcję CountA aby policzyć liczbę niepustych komórek w zakresie. Wynik zapisuje zmienną numer. Aby określić liczbę wypełnionych komórek, ta wartość jest odejmowana od całkowitej liczby zbadanych komórek. Makro zapisuje tę wartość w Numer 2.
Po uruchomieniu kod programu określa liczbę wypełnionych i pustych komórek w aktywnym oznaczeniu i wyświetla wynik w oknie:
Jeśli chcesz przetwarzać wybrany zakres, a nie bieżący wybór, dostosuj przypisanie wartości do zmiennej powierzchnia w. Jest używany w makrze z właściwością Wybór połączony. Jeśli zamiast tego chcesz samodzielnie zdefiniować zakres, zastąp ustawić-Przypisanie do zmiennej powierzchnia poprzez wyrażenie w następującej formie:
Ustaw zakres = Zakres („A1: B5”)
Specyfikacja zakresu zawsze odnosi się do aktywnego arkusza. Jeśli chcesz zająć się innym arkuszem, umieść przed ZasięgPoleć odniesienia do metod Zeszyty ćwiczeń oraz Pościel naprawiony.
