Omówiliśmy już, czym są zmienne i stałe, w naszym samouczku Typy danych VBA - Zmienne i stałe. Przyjrzymy się teraz obiektowi zakresu w VBA i sposobowi deklarowania zmiennej jako obiektu zakresu. Obiekt zakresu służy do oznaczania komórek lub wielu komórek w VBA. Dlatego bardzo przydatne jest użycie w kodzie.
Kliknij tutaj, aby uzyskać więcej informacji o zakresach i komórkach VBA.
Obiekt zakresu VBA
Możesz użyć obiektu zakresu, aby odwołać się do pojedynczej komórki. Na przykład, jeśli chcesz odwołać się do komórki A1 w kodzie VBA, możesz użyć obiektu zakresu VBA, jak pokazano w poniższym kodzie:
1234 | Podrzędne odwołanie do jednej komórki za pomocą obiektu zakresu()Zakres("A1").Wartość = 89Zakres("A1").Czcionka.Pogrubienie = PrawdaNapis końcowy |
Kiedy naciśniesz run lub F5 na klawiaturze, aby uruchomić kod, otrzymasz następujący wynik w arkuszu roboczym:
Możesz użyć obiektu zakresu, aby odwoływać się do wielu komórek lub zakresów. Na przykład, jeśli chcesz odnieść się do zakresu komórek (A1: C1) w kodzie VBA, możesz użyć obiektu zakresu VBA, jak pokazano w poniższym kodzie:
123456 | Podrzędne odwołanie do wielu komórek za pomocą obiektu zakresu()Zakres("A1:C1").Wartość = "ABC"Range("A1:C1").Borders(xlEdgeBottom).LineStyle = xlDoubleNapis końcowy |
Kiedy naciśniesz run lub F5 na klawiaturze, aby uruchomić kod, otrzymasz następujący wynik w arkuszu roboczym:
Deklarowanie zmiennej jako zakresu
Podczas deklarowania zmiennej jako zakresu będziesz musiał użyć słów kluczowych Dim i Set. Poniższy kod pokazuje, jak zadeklarować zmienną jako zakres.
123456789101112 | Sub DeklarowanieAndSettingARange()Dim rng As RangeUstaw rng = Zakres("A10:B10")rng.Value = "Automatyzacja Excela"rng.Font.Pogrubienie = Prawdarng.Wybierzrng.Columns.AutoFitNapis końcowy |
Wynik to:
Wybieranie określonych wierszy w obiekcie zakresu
Możesz wybrać określone wiersze w swoim obiekcie zakresu. Poniższy kod pokazuje, jak to zrobić:
12345678 | Podrzędne wybieranie określonych wierszy w zakresie obiektu()Dim rng As RangeUstaw rng = Zakres("A1:C3")rng.Wiersze(3).WybierzNapis końcowy |
Wynik to:
Wybieranie określonych kolumn w obiekcie zakresu
Możesz wybrać określone kolumny w swoim obiekcie zakresu. Poniższy kod pokazuje, jak to zrobić:
12345678 | Wybór podrzędny określonych kolumn w obiekcie zakresowym()Dim rng As RangeUstaw rng = Zakres("A1:C3")rng.Kolumny(3).WybierzNapis końcowy |