Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Podržte kláves a stlačte tlačidlo " Alt " tlačidlo " F11 " do nového pracovného hárka v programe Excel . Pozrite sa na editore jazyka Visual Basic , a keď vidíte tabuľku na obrazovke miesto , zvoľte " Nástroje " , vyberte " makro " , potom vyberte " Editor jazyka Visual Basic . "
2
Kliknite na " Vložiť " a vyberte možnosť " Module " . Zadajte nasledujúci kód , keď vidíte blikajúci kurzor pod slovom " ( General ) " :
Sub SimpleLoop ( )
Dim Aj ako IntegerWorksheets ( " Hárok1 " ) ActivateRange ( " A1 . . " ) Zvoľte
" Komentár : Tu je dodávaný slučky
i = 1 až 100ActiveCell.Value = IActiveCell.Offset ( 1 , 0 ) ActivateNext aj
. "
komentár : Loop končí na vyššie uvedenom vyhlásení
End Sub
3
Skontrolujte kód starostlivo za chyby - dva znaky sa za slovo " SimpleLoop " sú zátvorky . Uistite sa , že váš kód je presne ako vyššie uvedený kód
4
Spustite program : . " . Run Sub /UserForm " Zvoľte " Spustiť " , potom vyberte
5
Potvrdiť výsledky programu kliknutím na zelené " X " v pravom hornom rohu obrazovky . Všimnite si , že program napísaný čísla od 1 do 100 v prvých 100 buniek na obrazovke .
Zmena programu
6
podržte kláves a stlačte tlačidlo " Alt " " F11 " . Zmeňte svoj program , aby sa 100 rýchle výpočty a ukladať výsledok : Presuňte kurzor na riadok , ktorý číta , " ActiveCell.Value = I" . Zmeňte ju takto :
ActiveCell.Value = 1,05 ^ ( I)
7
Spustite program . Kliknite na zelenú " X " znova a uistite sa , že program z 100 výpočty a uložili v tabuľke . Ručné výpočet 1,05 umocnené na 2 pochopiť výpočet .
8
Clear obrazovky podržaním klávesy " Ctrl " a stlačením tlačidla " A. " Uvoľnite obe tlačidlá a kliknúť na " Zmaž "
9
zmeniť svoj program , napísať správu 200x : " . F11 " Držte kláves " Alt " a stlačte Presuňte kurzor na číslo " 100 " a nahradiť ju " 200 " . Presunutie kurzora o jeden riadok nadol a nahradiť " I" s " Milujem výpočtovej ! " Riadok kódu by mal vyzerať takto :
ActiveCell.Value = " Milujem výpočtovej ! "
10
Spustite program znovu . Kliknite na zelenú " X " znova a uistite sa , že program napísal " Milujem výpočtovej ! " 200 krát .
Copyright © počítačové znalosti Všetky práva vyhradené