Spisie treści
Ten samouczek pokaże, jak wypełnić tablicę zakresem komórek.
Przypisz zakres do tablicy
Możemy łatwo wypełnić tablicę A Variant zakresem komórek.
Przypisz wartość z jednej kolumny
W tym przykładzie przejdziemy w pętlę przez Range("A1:A10"), przypisując wartości komórek do tablicy:
| 12345678910111213 | Podrzędna tablica wartości testowychSingle()'Zadeklaruj tablicę jako tablicę wariantowąDim arRng() jako wariant'Zadeklaruj liczbę całkowitą do przechowywania liczby wierszyDim iRw jako liczba całkowita'Przypisz zakres do zmiennej tablicowejArRng = Zakres("A1:A10")„przewijaj rzędy od 1 do 10”Dla iRw = 1 To UBound(arRng)'pokaż wynik w bezpośrednim oknieDebug.Print arRng(iRw , 1)Następny iRwNapis końcowy |
ten UBound służy do ustawienia górnego ograniczenia tablicy (np. 10), aby pętla wiedziała, że ma zapętlić się 10 razy.
tenDebug.Drukuj funkcja pokaże wartość zawartą w tablicy w bezpośrednim oknie.
Przypisz wartość z wielu kolumn
| 123456789101112131415161718 | Podrzędna tablica wartości testowychWiele()'Zadeklaruj tablicę jako tablicę wariantowąDim arRng() jako wariant'Zadeklaruj liczbę całkowitą do przechowywania liczby wierszyDim iRw jako liczba całkowita'Zadeklaruj liczbę całkowitą do przechowywania liczby kolumnDim iCol jako liczba całkowita'Przypisz zakres do zmiennej tablicowejArRng = Zakres("A1:C10")„przewijaj rzędy od 1 do 10”Dla iRw = 1 To UBound(arRng,1)'teraz - w pierwszym rzędzie przejdź przez 3 kolumnyDla iCol = 1 do UBound(arRng,2)'pokaż wynik w bezpośrednim oknieDebug.Print arRng(iRw, iCol)Następny iColNastępny iRwNapis końcowy |
W powyższym kodzie wypełniliśmy tablicę wartościami z zakresu ("A1:C10").
ten UBound jest ponownie używany - ale tym razem jest potrzebny dwukrotnie - raz do pętli przez wiersze, a następnie ponownie do pętli przez kolumny.
ten Debug.Drukuj funkcja pokaże wartość zawartą w tablicy w bezpośrednim oknie.
