Ja jūsu masīva lielums palielinās un jūs nevēlaties noteikt masīva lielumu, varat izmantot ReDim atslēgvārds. Excel VBA pēc tam automātiski maina masīva lielumu.
Pievienojiet dažus skaitļus A slejai.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam masīvam nosauktos skaitļus. Deklarējiet arī divus Integer tipa mainīgos. Viens nosaukts izmērs un viens ar nosaukumu i.
Blāvi skaitļi () Kā vesels skaitlis, lielums kā vesels skaitlis, i kā vesels skaitlis
Piezīme: masīvam vēl nav izmēra. skaitļi, izmērs un es šeit tiek izvēlēti nejauši, varat izmantot jebkurus vārdus. Atcerieties atsaukties uz šiem nosaukumiem pārējā koda daļā.
2. Tālāk mēs nosakām masīva lielumu un saglabājam to mainīgā lielumā. Šim nolūkam varat izmantot darblapas funkciju CountA. Pievienojiet šādu koda rindiņu:
size = WorksheetFunction.CountA (darblapas (1). kolonnas (1))
3. Tagad mēs zinām masīva lielumu un varam to mainīt. Pievienojiet šādu koda rindiņu:
ReDim numuri (izmērs)
4. Tālāk mēs inicializējam katru masīva elementu. Mēs izmantojam cilpu.
Attiecībā uz i = 1 līdz izmēram
skaitļi (i) = šūnas (i, 1). Vērtība
Tālāk i
5. Mēs parādām masīva pēdējo elementu, izmantojot MsgBox.
MsgBox numuri (izmērs)
6. Izejiet no Visual Basic Editor un noklikšķiniet uz komandas pogas lapā.
Rezultāts:
7. Tagad, lai skaidri saprastu, kāpēc to sauc par dinamisku masīvu, pievienojiet skaitli A slejai.
8. Vēlreiz noklikšķiniet uz komandas pogas.
Secinājums: Excel VBA ir automātiski mainījis šī dinamiskā masīva lielumu.
9. Izmantojot ReDim atslēgvārdu, jūs izdzēšat visus esošos datus, kas pašlaik tiek glabāti masīvā. Piemēram, iepriekš izveidotajam kodam pievienojiet šādas koda rindiņas:
ReDim numuri (3)
MsgBox numuri (1)
Rezultāts:
Masīvs ir tukšs.
10. Ja vēlaties saglabāt datus esošajā masīvā, kad tos maināt, izmantojiet atslēgvārdu Saglabāt.
ReDim saglabāšanas numuri (3)
MsgBox numuri (1)
Rezultāts:
