Tweet

Pole ve VBA Excel

Úvodem co je pole

Pole je indexovaná skupina nějakých dat. Tato skupina se chová jako by šlo o jednu proměnou, která má několik položek. Na jednotlivé položky se poté odkazuje pomocí indexu.

Pole se začíná standartně indexovat od nuly 0. Je pravda, že tohle lze změnit, ale nedoporučuji to. Udělá to více škody než užitku.

Pole - příklad jedna

Máme pole o deseti položkách můžeme jej deklarovat (Poznámka: Nezapomeňte - začíná se počítat od nuly)

Dim MojePole (9) As Boolean

nebo

Dim MojePole (0 To 9) As Boolean

oba zápisy jsou vícemeně identické záleží co komu vyhovuje.

Pole - příklad 2

Máme seznam faktur za roky 2009 - 2011, můžeme si indexování pole posunout.

Dim FakturyPole (2009 To 2011) As Double

Pole - příklad 3

Dinamické pole pokud neznáme přesně počet prvků. Například potřebuji načíst seznam listů.

Dim ListPole () As Double

Posunutí indexování

Potřebujeme-li indexovat pole od jedničky doporučuji použít kód

Dim MojePole (1 To 10) As String

Je pravda že existuje i jiná možnost v posunutí indexování

Option Base 1

Tohle uvádím jen na doplnění v případě, že se s tímto zápisem setkáte u konkurenčních VBA programů. Osobně tohle nedoporučuji.

Odkazování na pole

Odkazování na pole je jednoduché. Předpokladáme z příkladu 3 vkládaní jmen listu do našeho pole.

ListPole(i) = ....

Kde i je index

Vícerozměrná pole

Pole o pevné velikosti (Integer) o 10 řádcích a 10 sloupcích:

Dim MojePole(9, 9) As Integer

nebo:

Dim MojePole(0 To 9, 0 To 9) As Integer

Poznámka: V jazyku Visual Basic lze deklarovat pole až o 60 rozměrech. Osobně si nedokážu představit jak s polem o 60-ti rozměrech pracovat a případně v něm hledat chybu.

Platnost polí

Podobně jako konstanty lze pomocí příkazů Dim, Static, Private, nebo Public nastavit platnost.

Závěrem

Základy na k práci s poli jsem probral, na případné dotazy jsou komentáře.

Článek byl aktualizován: 01.11.2014 14:37

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře