Práce s poli pro programování VBA v Excelu 2016

Vícerozměrná pole

Pole vytvořená v předchozích příkladech jsou všechna jednorozměrná pole. Představte si jednorozměrná pole jako jeden řádek hodnot. Pole, která vytvoříte ve VBA, mohou mít až 60 dimenzí – ačkoli zřídka potřebujete více než dva nebo tři rozměry v poli. Následující příklad deklaruje pole 81 celých čísel se dvěma rozměry:

Dim MyArray (1 až 9, 1 až 9) jako celé číslo

Toto pole si můžete představit jako zabírající matici 9 x 9 – ideální pro ukládání všech čísel v sudoku.

Chcete-li odkazovat na konkrétní prvek v tomto poli, musíte zadat dvě čísla indexu (podobná jeho „řádku“ a jeho „sloupci“ v matici). Následující příklad ukazuje, jak můžete přiřadit hodnotu prvku v tomto poli:

MyArray (3, 4) = 125

Tento příkaz přiřadí hodnotu jednomu prvku v poli. Pokud uvažujete o poli z hlediska matice 9 x 9, přiřadíte 125 prvku umístěnému ve třetím řádku a čtvrtém sloupci matice.

Zde je návod, jak deklarovat trojrozměrné pole s 1 000 prvky:

Dim My3DArray (1 až 10, 1 až 10, 1 až 10) jako celé číslo

Trojrozměrné pole si můžete představit jako krychli. Vizualizace pole více než tří rozměrů je obtížnější.

Dynamická pole

Můžete také vytvářet dynamická pole. Dynamické pole nemá přednastavený počet prvků. Deklarujte dynamické pole s prázdnou sadou závorek:

Dim MyArray () As Integer

Než budete moci toto pole použít, musíte pomocí příkazu ReDim sdělit VBA, kolik prvků pole má. Obvykle se počet prvků v poli určuje, když je váš kód spuštěn. Příkaz ReDim můžete použít mnohokrát a měnit velikost pole tak často, jak je potřeba. Následující příklad ukazuje, jak změnit počet prvků v dynamickém poli. Předpokládá, že proměnná NumElements obsahuje hodnotu, kterou váš kód vypočítal.

ReDim MyArray (1 až NumElements)

Když změníte dimenzování pole pomocí ReDim, vymažete všechny hodnoty aktuálně uložené v prvcích pole. Pomocí klíčového slova Zachovat se můžete vyhnout zničení starých hodnot. Následující příklad ukazuje, jak můžete zachovat hodnoty pole při změně dimenzování pole:

ReDim Preserve MyArray (1 až NumElements)

Pokud má MyArray aktuálně deset prvků a provedete předchozí příkaz s NumElements rovným 12, prvních deset prvků zůstane nedotčeno a pole má místo pro dva další prvky (až do počtu obsaženého v proměnné NumElements). Pokud se však NumElements rovná 7, prvních sedm prvků zůstane zachováno, ale zbývající tři prvky budou ukončeny.