Visual Basic for Applications - UNREGISTERED VERSION

3.4. Tablice:
Definicja tablicy znajduje się w zakładce „Słownik pojęć”. Tutaj dodamy jedynie, że w programach komputerowych tablice dzielą się na statyczne (o określonym rozmiarze) oraz dynamiczne (tablice zmieniające rozmiar). Z przyczyn technicznych na zajęciach będziemy przeprowadzali operacje jedynie na tablicach statycznych.

- Deklarowanie tablicy jednowymiarowej:
Dim nazwaTablicy (1 To rozmiar) As Typ

np.
Dim tablica (1 To 20) As Double

- Odwoływanie się do tablicy:
zmienna = tablica (4)

- Deklarowanie tablicy dwuwymiarowej:
Dim nazwaTablicy (1 To rozmiar1, 1 To rozmiar2) As Typ

np.
Dim tablica (1 To 20, 1 To 20) As Integer

- Odwoływanie się do elementów tablicy wygląda analogicznie jak dla tablicy jednowymiarowej:
zmienna = tablica (4, 3)

Największym plusem tablic jest to, że mogą przechowywać duże ilości danych i można je łatwo przetwarzać w pętli. Pod spodem przykład „wyzerowania tablicy”.

For i = 1 To 20
 tablica (i) = 0
Next i

Wczytywanie elementów i wypisywanie elementów tablicy do arkusza wygląda bardzo podobnie do wypisywania zwykłych zmiennych. Jeżeli chcemy tablicę wypisać, bądź wpisać elementy w pętli, dodajemy jedynie człon „Offset”, który mówi nam o przesunięciu komórki, do której wypisujemy (z której czytamy) kolejne elementy:

Worksheets("Arkusz").Range("komórka").Offset(wiersz, kolumna)

Ważne, aby zapamiętać, że przesunięcie zaczyna się od 0, a więc po napisaniu poniższego programu:

Sub wypisywanie()

Dim tablica(1 To 15) As Integer

For i = 1 To 15
   tablica(i) = i
Next i

For i = 1 To 15
   Worksheets("Sheet1").Range("A1").Offset(i - 1, 0) = tablica(i)
Next i

End Sub

otrzymamy następujący wynik: