Šajā rakstā mēs sniedzam soli pa solim masīva izmēra atrašanu, izmantojot VBA kodu.
Kā atrast masīva izmēru, izmantojot VBA kodu?
Veiciet darbības, lai atrastu masīva izmēru, izmantojot Excel VBA kodu.
- 1. solis: Sāksim vispirms ar pamata, paziņojiet mainīgo VBA kā datu datu variantu.
Kods:
Sub masīvs_izmērs () Dim MyArray kā variants End Sub
- 2. solis: šim mainīgajam izmantojiet funkciju ARRAY un piešķiriet dažas vērtības, kā parādīts zemāk.
Kods:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Beigas Sub
- 3. solis: Labi, masīva nosaukumam “MyArray” esam piešķīruši dažas vērtības.
Pieņemsim, ka mums ir jāraksta cilpa, lai šīs masīva vērtības saglabātu šūnās, tad mums jāizlemj, cik reizes cilpa ir jāpalaiž. Tas ir atkarīgs no masīva vērtību skaita.
Labi, tagad aplūkojiet masīva nosaukumam “MyArray” piešķirto vērtību skaitu, masīvam kopumā ir piešķirtas 7 vērtības, tāpēc tagad mēs zinām, cik reizes cilpa ir jāpalaiž, lai masīva vērtības saglabātu šūnās .
- 4. solis: paziņojiet citu mainīgo kā veselu skaitli, lai VBA ierakstītu FOR.
Kods:
Sub masīvs_izmērs () Dim MyArray kā variants MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k kā vesels skaitlis k = 1 līdz 7 Nākamais k Beigu apakšsadaļa
- 5. solis: tur mēs ejam, mēs esam atvēruši FOR cilni, sākot no 1 līdz 7, cilpa iekšpusē ierakstiet CELLS īpašumu, lai saglabātu, kā parādīts zemāk.
Kods:
Sub masīvs_izmērs () Dim MyArray kā variants MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k kā vesels skaitlis k = 1 līdz 7 Šūnas (k, 1). Vērtība = MyArray (k) Nākamais k Beigas Sub
- 6. solis: Labi, tagad izpildiet koda rindiņu pa rindai, nospiežot F8 funkciju taustiņu. Pirmo reizi nospiežot taustiņu F8, tas sāk makro.
- 7. solis: Tagad nospiediet F8, lai pārietu uz masīva vērtības piešķiršanas līniju.
- 8. solis: Pašlaik masīva nosaukumam “MyArray” nav vērtību, nospiediet F8, un visas minētās vērtības tiks piešķirtas masīva mainīgajam.
- 9. solis: Tagad cilpa sāks darboties un 2 reizes nospiediet taustiņu F8 un redzēsim, kādu vērtību mēs iegūstam šūnā A1.
- Hmm … Turieties, mūsu pirmā vērtība masīva mainīgajā ir “Jan”, bet rezultātu esam ieguvuši kā otro vērtību “Feb”, kad joprojām darbojas pirmā vērtību cilpa.
- 10. solis: Tas ir tāpēc, ka, ja jūsu masīva vērtību skaitīšana sākas no nulles, nevis no 1, tāpēc mums sākuma cilpa ir jāiekļauj kā nulle.
- 11. solis: Kad cilpas sākuma stāvoklis ir samazinājies par vienu līdzīgu galu, arī tas jāsamazina par 1, tāpēc izveidojiet beigas kā 6, nevis 7.
- 12. solis: Kad cilpa sākums un beigas ir izlēmuši vēl vienu kniebienu, kas mums jādara, ti, īpašumā CELLS mēs kā dinamisko šūnu atlasītāju esam izmantojuši mainīgo “k”, taču, tā kā mūsu cilpa sākas no nulles, neviena šūna sākas ar nulli , tāpēc mainīgajam “k” pievienojiet plus 1.
Kods:
Sub masīvs_izmērs () Dim MyArray kā variants MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k kā vesels skaitlis k = 0 līdz 6 Šūnas (k + 1, 1). Vērtība = MyArray (k) Nākamais k Beigas Sub
- 13. solis: Tātad, palaižot cilpu pirmo reizi, “k” vērtība ir nulle, un, tā kā mēs esam pievienojuši plus 1, “k” vērtība būs 1, tāpēc tas attiecas uz šūnu A1.
- 14. solis: Tagad palaidiet kodu, un visas masīva vērtības tiks saglabātas šūnās.
Tomēr šajā gadījumā mēs esam izlēmuši cilpas sākuma un beigu izmēru manuāli, bet masīva lielumu var viegli noteikt, izmantojot LBOUND & UBOUND funkcijas.
Automātiski atrast masīva izmēru
- 1. solis: kad mēs esam iekļāvuši cilpa sākuma un beigu punktu iepriekš, mēs esam manuāli saskaitījuši masīva vērtību skaitu, bet, lai sāktu masīvu, izmantojiet funkciju LBOUND un šai pārejai izmantojiet mainīgā nosaukumu “MyArray”.
- 2. solis: Un, lai noteiktu pēdējo masīva izmēru, izmantojiet funkciju UBOUND un ievadiet masīva nosaukumu “MyArray”.
Kods:
Apakšgrupas_izmērs () Dim MyArray kā variants MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer for k = Lboubd (MyArray) ) Uz UBound (MyArray) šūnām (k + 1, 1). Vērtība = MyArray (k) Nākamais k End Sub
- 3. solis: Labi tagad sāciet rindu pēc līnijas koda un nospiediet taustiņu F8, līdz tas sasniedz cilpas sākuma punktu.
- 4. solis: Tagad vispirms novietojiet kursoru uz “LBound (MyArray)” un skatiet, ko tas saka.
- 5. solis: sākuma punkta numurs, kas ir nulles, tagad novietojiet kursoru uz “UBound (MyArray)” un skatiet, ko tas saka.
Tajā teikts, ka masīva izmērs ir 6, tāpēc, tāpat kā tas, kā mēs esam minējuši sākuma un beigu manuāli, UBOUND un LBOUND automātiski izvēlas numurus mums.
