Ten samouczek pokaże Ci, jak używać właściwości Range.End w VBA.
Większość czynności wykonywanych ręcznie w skoroszycie lub arkuszu programu Excel można zautomatyzować w kodzie VBA.
Jeśli masz zakres niepustych komórek w programie Excel i naciśniesz Ctrl+strzałka w dół, kursor przesunie się do ostatniej niepustej komórki w kolumnie, w której się znajdujesz. Podobnie, jeśli naciśniesz Ctl+strzałka w górę, kursor przesunie się do pierwszej niepustej komórki. To samo dotyczy rzędu z użyciem Ctrl+strzałka w prawo lub Ctrl+strzałka w lewo aby przejść na początek lub koniec tego wiersza. Wszystkie te kombinacje klawiszy mogą być używane w kodzie VBA za pomocą Koniec funkcji.
Składnia właściwości końca zakresu
Właściwość Range.End umożliwia przejście do określonej komórki w bieżącym regionie, z którym pracujesz.
wyrażenie.Kończyć się (Kierunek)
wyrażenie jest adresem komórki (Zakres) komórki, od której chcesz zacząć, np.: Zakres(„A1”)
END jest właściwością kontrolowanego obiektu Range.
Kierunek to stała programu Excel, której możesz użyć. Dostępne są 4 opcje - xlDown, xlToLeft, xlToRight oraz xlUp.
Przejście do ostatniej celi
Poniższa procedura przeniesie Cię do ostatniej komórki w bieżącym regionie komórek, w których się znajdujesz.
| 1234 | Sub IdźDoOstatni()'przejdź do ostatniej komórki zajętej w bieżącym regionie komórekZakres("A1").End(xlDown).WybierzNapis końcowy |
Liczenie rzędów
Poniższa procedura umożliwia korzystanie z xlW dół stała z właściwością Koniec zakresu, aby zliczyć liczbę wierszy w bieżącym regionie.
| 12345678 | Sub IdźDoOstatniRowofRange()Dim rw As IntegerZakres ("A1"). Wybierz'pobierz ostatni wiersz w bieżącym regionierw = Zakres("A1").End(xlDown).Row„pokaż ile wierszy jest używanych”MsgBox "Ostatni wiersz użyty w tym zakresie to " & rwNapis końcowy |
Podczas gdy ten poniżej zliczy kolumny w zakresie za pomocą xlToRight stały.
| 12345678 | Sub IdźDoOstatniejCellofRange()Dim col As IntegerZakres ("A1"). Wybierz'pobierz ostatnią kolumnę w bieżącym regioniecol = Zakres("A1").End(xlToRight).Column'pokaż ile kolumn jest używanychMsgBox "Ostatnia kolumna użyta w tym zakresie to " & colNapis końcowy |
Tworzenie tablicy zakresu
Poniższa procedura pozwala nam rozpocząć od pierwszej komórki w zakresie komórek, a następnie użyć właściwości End(xlDown), aby znaleźć ostatnią komórkę w zakresie komórek. Następnie możemy ReDim naszą tablicę z całkowitą liczbą wierszy w zakresie, co pozwala nam na pętlę przez zakres komórek.
| 123456789101112131415161718 | Sub PopulateArray()'deklaruj tablicęDim strSuppliers() As String'deklaruj liczbę całkowitą, aby policzyć wiersze'Dim n jako liczba całkowita„policz wiersze”n = Range("B1", Range("B1").End(xlDown)).Rows.Count'zainicjuj i zapełnij tablicęReDim strKlienci(n)'deklaruj liczbę całkowitą dla pętliDim i jako liczba całkowita'wypełnij tablicęDla i = 0 To nstrCustomers(i) = Range("B1").Offset(i, 0).ValueDalej ja'pokaż okno wiadomości z wartościami tablicyDołącz do MsgBox (strCustomers, vbCrLf)Napis końcowy |
Po uruchomieniu tej procedury zwróci następujący komunikat.
