Ši pamoka išmokys jus, kaip išvalyti masyvą VBA.
Išvalyti visą masyvą
Norėdami išvalyti visą masyvą, galite naudoti Ištrinti pareiškimą:
| 1 | Ištrinti arrExample |
Praktikoje:
| 123456789101112131415 | Sub ClearArray ()„Sukurkite statinį masyvąPritvirtinkite pavyzdį (nuo 1 iki 3) kaip eilutę„Apibrėžkite masyvo vertesarrExample (1) = "Shelly"arrExample (2) = "Styvas"arrExample (3) = "Neema"„Ištrinti visą masyvąIštrinti arrExample'Patikrinkite masyvo vertę„MsgBox“ pavyzdys (1)Pabaiga Sub |
Keisti dydį ir išvalyti masyvą
Jei jūsų masyvas yra dinamiškas (dinaminis masyvas yra masyvas, kurio dydį galima pakeisti, o ne statinio masyvo, kurio dydžio pakeisti negalima), galite naudoti „ReDim“ komanda norėdami pakeisti masyvo dydį, išvalydami visą reikšmių masyvą.
| 12 | „Ištrinti visą masyvąReDim arrExample (nuo 1 iki 4) |
Visas pavyzdys:
| 12345678910111213141516 | Sub ClearArray2 ()„Sukurkite dinaminį masyvąDim arrExample () kaip eilutė„ReDim“ pavyzdys (nuo 1 iki 3)„Apibrėžkite masyvo vertesarrExample (1) = "Shelly"arrExample (2) = "Styvas"arrExample (3) = "Neema"„Ištrinti visą masyvąReDim arrExample (nuo 1 iki 4)'Patikrinkite masyvo vertę„MsgBox“ pavyzdys (1)Pabaiga Sub |
Išvalyti masyvo dalį
Kaip minėta aukščiau, „ReDim“ komanda pakeis masyvo dydį, pašalindama visas masyvo vertes. Vietoj to galite naudoti „ReDim Preserve“ Norėdami pakeisti masyvo dydį, išsaugodami visas esamas vertes. Praktiškai tai gali būti naudojama norint greitai išvalyti masyvo dalį.
| 12 | „Ištrinti 3+ poziciją„ReDim Preserve arrExample“ (nuo 1 iki 2) |
Visas pavyzdys:
| 12345678910111213141516171819 | Sub ClearArray3 ()„Sukurkite dinaminį masyvąDim arrExample () kaip eilutė„ReDim“ pavyzdys (nuo 1 iki 3)„Apibrėžkite masyvo vertesarrExample (1) = "Shelly"arrExample (2) = "Styvas"arrExample (3) = "Neema"„Ištrinti 3+ poziciją„ReDim Preserve arrExample“ (nuo 1 iki 2)„Pakeiskite dydį į 3 pozicijas„ReDim Preserve arrExample“ (nuo 1 iki 3)'Patikrinkite masyvo vertę„MsgBox“ pavyzdys (3)Pabaiga Sub |
Keliaukite per visą masyvą - iš naujo nustatykite vertybes
Užuot išvalyę masyvo vertes naudodami „Erase“ arba „ReDim“, galite pereiti per visą masyvą ir iš naujo nustatyti kiekvieną vertę.
** nuoroda į kilpą **
