Tento tutoriál vás naučí, jak vymazat pole ve VBA.
Vymazat celé pole
Chcete -li vymazat celé pole, můžete použít Prohlášení o vymazání:
1 | Vymazat arest Příklad |
V praxi:
123456789101112131415 | Sub ClearArray ()„Vytvořte statické poleDim arrPříklad (1 až 3) jako řetězec„Definujte hodnoty polearrExample (1) = "Shelly"arrExample (2) = "Steve"arrExample (3) = "Neema"„Vymazat celé poleVymazat arest Příklad`` Zkontrolujte hodnotu poleMsgBox arrExample (1)End Sub |
Změňte velikost a vymažte pole
Pokud je vaše pole dynamické (dynamické pole je pole, jehož velikost lze změnit, na rozdíl od statického pole, jehož velikost nelze změnit), můžete použít Příkaz ReDim pro změnu velikosti pole vymazáním celého pole hodnot.
12 | „Vymazat celé polePříklad ReDim (1 až 4) |
Úplný příklad:
12345678910111213141516 | Dílčí ClearArray2 ()„Vytvořte dynamické poleDim arrAxample () jako řetězecPříklad ReDim (1 až 3)„Definujte hodnoty polearrExample (1) = "Shelly"arrExample (2) = "Steve"arrExample (3) = "Neema"„Vymazat celé polePříklad ReDim (1 až 4)`` Zkontrolujte hodnotu poleMsgBox arrExample (1)End Sub |
Vymazat část pole
Jak bylo uvedeno výše, příkaz ReDim změní velikost pole a vymaže z něj všechny hodnoty. Místo toho můžete použít Zachovat ReDim pro změnu velikosti pole se zachováním všech existujících hodnot. V praxi to lze použít k rychlému vymazání části pole.
12 | 'Vymazat pozici 3+ReDim Zachovat doraz Příklad (1 až 2) |
Úplný příklad:
12345678910111213141516171819 | Sub ClearArray3 ()„Vytvořte dynamické poleDim arrAxample () jako řetězecPříklad ReDim (1 až 3)„Definujte hodnoty polearrExample (1) = "Shelly"arrExample (2) = "Steve"arrExample (3) = "Neema"'Vymazat pozici 3+ReDim Zachovat doraz Příklad (1 až 2)„Změnit velikost na 3 poziceReDim Zachovat doraz Příklad (1 až 3)`` Zkontrolujte hodnotu poleMsgBox arrExample (3)End Sub |
Smyčka skrz celé pole - resetování hodnot
Namísto vymazání hodnot pole pomocí Erase nebo ReDim byste mohli procházet celým polem a resetovat každou hodnotu.
** odkaz na smyčku **