Ten samouczek pokaże, jak tworzyć i pracować z tablicami wariantów.
Typ wariantu tablicy
Tablica jest typem zmiennej. Podobnie jak w przypadku innych zmiennych, tablice są deklarowane przy użyciu instrukcji Dim dla tablicy na poziomie modułu lub procedury lub instrukcji Public dla tablicy poziomu globalnego.
Tablica wariantów to tablica zadeklarowana jako posiadająca typ danych wariantu. Warianty typów danych mogą przechowywać wartości dowolnego typu: tekst, liczby, daty, godzinę lub obiekty.
Zalety tablicy wariantów
Tablice wariantów są wyjątkowe, ponieważ są łatwiejsze w obsłudze niż typowe tablice.
- Łatwiej je zadeklarować.
- Nie musisz się martwić, jaki typ danych jest wprowadzany do tablicy (np. czy komórka zawiera tekst lub liczby).
- Możesz wypełnić tablicę funkcją Array (jeśli rozmiar tablicy nie jest zdefiniowany podczas zadeklarowania).
- Nie musisz używać instrukcji REDIM, aby zmienić rozmiar / ponownie wypełnić tablicę (jeśli rozmiar tablicy nie jest zdefiniowany podczas zadeklarowania).
Deklarowanie tablicy wariantów
Aby zadeklarować tablicę wariantów, możesz napisać tę prostą instrukcję
| 1 | Dim nazwy zmiennych() |
Jest to uważane za dynamiczny tablica wariantów.
Zauważ, że nie musisz określać typu danych (zakłada się, że jest to wariant) lub rozmiar tablicy.
Przypisz wartości do tablicy wariantów
Tablice wariantów mogą zawierać dowolny typ wartości: tekst, liczby, daty, czas lub obiekty.
Aby przypisać wartości do tablicy wariantów, możesz użyć funkcji Array:
| 12 | 'wypełnij tablicęvarNames() = Array("Fred", "Wilma", "Barney", "Betty") |
Ta metoda może być dla Ciebie łatwiejsza niż przy użyciu metody standardowej:
| 12345 | 'wypełnij każdy elementvarNames(0) = "Fred"varNames(1) = "Wilma"varNames(2) = "Barney"varNames(3) = "Betty" |
Zmień rozmiar tablicy wariantów
Tablice wariantów dynamicznych mogą zmieniać rozmiar w czasie wykonywania. Nie musisz używać typowego Redim lub Redim Zachowaj instrukcje wymagane do zmiany rozmiaru standardowych tablic.
Przykład tablicy wariantów
Łącząc to wszystko razem, ta procedura wypełni i ponownie zapełni tablicę wariantów:
| 123456789101112 | Podrzędna tablica testowa()'deklaruj zmienną'Dim varNames() jako wariant'wypełnij tablicęvarNames() = Array("Fred", "Wilma", "Barney", "Betty")„zwróć wartości”Dołącz do MsgBox (nazwy zmiennych, ",")'wypełnij ponownie tablicęnazwy zmiennych() = tablica (400, 500)„zwróć nowe wartości”Dołącz do MsgBox (nazwy zmiennych, ",")Napis końcowy |
Zaludniliśmy nazwy zmiennych tablica z 4 nazwami, a następnie z 2 liczbami. Okna komunikatów pojawią się w następujący sposób.
