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é