Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Excel , otvorte novú tabuľku , podržte " Alt " a " F11 " zadať Editor jazyka Visual Basic . Vyberte " Vložiť " a " modul " a kliknite na novom module spustiť kopírovanie kódu.
2
typu v nasledujúcom kóde .
Sub TestArray ( ) " Komentáre začať s citátom sign'Activate list a ísť do buniek A1Worksheets ( " Hárok1 " ) ActivateApplication.Goto Referencie : .. = listy ( " Hárok1 " ) Range ( " A1 " )
" Setup 2 - rozmerné pole s 5 miest v prvom rozmere a 5 miest v druhom dimensionDim Vis ( 1 až 5 , 1 až 5 ) As Integer
" Začiatok vonkajšej slučky vnorené slučky structureFor i = 1 až 5
Štart vnútorné slučky vo vnorené slučky structureFor = 1 5'Store hodnotu v poli ( pre tento príklad , program , jednoducho počíta a ukladá ) Vis (I, ) = ( Aj * 5 ) + - 5'Put hodnotu poľa vo vašom tabuľkový procesor , takže môžete vidieť itActiveCell.Value = Vis (I, ) " Posunúť nadol o jednu bunku na spreadsheetActiveCell.Offset ( rowOffset : = 1 , columnOffset : = 0 ) . Activate'end vnútorné loopNext aActiveCell.Offset ( rowOffset : = -5 , columnOffset : . = 1 ) Activate'end vonkajšieho loopNext Iend Sub
3
Všimnite si , že ste definovali 2 - rozmerné pole v príkaze , " Dim Vis ( 1 K 5 , 1 až 5 ) As Integer . "
4
Poznámka vnorené slučky vytvorené s dvoma " For ... Next vyhlásenie . "
5
spustite program kliknutím na modrý trojuholník pod " Run " , a kliknite na zelenú " X " v ľavom hornom rohu sa vrátite do tabuľky a zobraziť výstup z programu . Prezrite si tabuľku a pochopiť , že 2 - rozmerné pole , ktoré má štruktúru 5x5 má 25 pamäťových miest . Uistite sa , že vaša tabuľka vyzerá niečo ako toto :
1 6 11 16 212 7 12 17 223 8 13 18 234 9 14 19 245 10 15 20 25