Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Ak ste niekedy zaznamenal makro , ste už pomocou VBA . Visual Basic Editor prekladá vaše stlačenia klávesov na príkazy VBA . Výsledný kód je neefektívne , ale to vám pomôže zoznámiť s VBA syntax a príkazy . 
 2 
 V aplikácii Excel , nahrávať jednoduché makro . V balíku Office XP , vyberte makro , Záznam nového makra z ponuky Nástroje . ( V aplikácii Excel 2007 , príkazy sú na karte Vývojár . ) Zmeňte názov makra alebo ponechajte predvolené nastavenie a stlačte tlačidlo OK . 
 3 
 S Macro Recorder prevádzky , typu " Hello World " v bunke A1 . Použiť tučné , kurzíva a podčiarknuté , a zmeniť farbu písma na červenú . Poklepaním na oddeľovač stĺpca v riadku záhlavia , medzi stĺpcoch A a B , zmeniť veľkosť šírku bunky na jeho obsah . 
 4 
 Vypnite záznam makra výberom príkazov Nástroje , Makro , Zastaviť záznam . 
 5 
 Otestujte makro aby sa ubezpečil , zobrazí sa správa . 
 Skontrolujte nahrané kód 
 6 
 Pravým - kliknite na záložku Hárok1 a vyberte možnosť Zobraziť kód , alebo stlačte Alt - F11 , otvorte editor jazyka Visual Basic , a dvakrát kliknite na modul 1. Váš kód makra bude vyzerať nejako takto : . 
 
 Sub Macro1 ( ) 
 
 ActiveCell.FormulaR1C1 = " Hello World " Range ( " A1 " ) SelectSelection.Font.Bold = TrueSelection.Font . kurzíva = TrueSelection.Font.Underline = xlUnderlineStyleSingleColumns . ( " : " ) EntireColumn.AutoFitSelection.Font.ColorIndex = 3 
 
 End Sub 
 7 
 Všimnite si , že makro začína " Sub " a končí " End Sub " . Každý podprogram VBA začína a končí týmto spôsobom . 
 8 
 nájsť známe kľúčové slová . Vzhľadom k tomu , viete , čo to makro robí , môžete zistiť , že " Selection.Font.Bold = true " zmení výber na tučným písmom . Môžete tiež rozpoznať príkazy pre zmenu veľkosti stĺpca a zmeniť farbu . 
 9 
 Vráťte sa späť do programu Excel a pokúsite nahrávať pár jednoduchých makier , zakaždým , keď skúma kód v editore VB . 
 
 Nastavenie VB Editor 
 10 
 Spustenie VB editora stlačením Alt - F11 . 
 11 
 Kliknite na každú položku menu v hornej zoznámiť sa s dostupnými možnosťami . 
 12 
 Nastaviť prostredí s možnosťou z ponuky Zobraziť . Minimálne , pridajte okná Vlastnosti a Project Explorer . Môžete ukotviť je na ľavej strane obrazovky kliknutím pravým tlačidlom myši a voľbou " ukotvitelných . " 
 13 
 Skúste funkciu kontextovej nápovedy kedykoľvek stlačením klávesu F1 . 
 
 
 navrhnúť formulár 
 14 
 Z ponuky Vložiť vyberte príkaz Vložiť UserForm . UserForm je váš návrh plátno . 
 15 
 Ak UserForm nie je pop - up , prejdite do editora projektu a double - kliknite na " formuláre " , potom dvakrát kliknite na UserForm1 . 
 
 16 
 Akonáhle sa zobrazí UserForm , budete tiež vidieť panel nástrojov, ktorý obsahuje ovládacie prvky , ktoré budete používať pri vytváraní formulárov . Napríklad , môžete zahrnúť tlačidlá , textové polia , rozbaľovacie zoznamy a štítky . Presuňte kurzor nad sebou vidieť názvy . 
 17 
 Pridať niektoré ovládacie prvky do formulára . Ak chcete pridať textové pole , nájdete ho v Tool Box , kliknite na neho , a potom presuňte kurzor na používateľské formuláre a nakreslite obdĺžnik na formulári . Uvidíte tvar , ktorý vyzerá podobne ako okná . To je miesto , kde sa užívateľ vstúpi do jeho vstupu . 
 18 
 Place ďalšie ovládacie prvky na formulári . Experiment s veľkosťou a preskupiť . Pre niektoré ovládacie prvky pre prácu , musí byť naprogramované . Napríklad , tlačidlo " OK " potrebuje spojený sled činností . Ďalšie ovládacie prvky , ako napríklad etikety , zvyčajne stačí len málo , ak vôbec , programovanie 
 Program Message Box 
 19 
 " MsgBox " je prednastavený , . Nebudete musieť navrhnúť formulár . Ale budete potrebovať nejaký kód . Môžete naprogramovať " Áno " , " Nie " , " OK " a " Cancel " tlačidla , konfigurovať rýchle , a ďalšie . 
 20 
 správou upozorní užívateľa , že súbor sa zatvorí bez úspory , keď klikne na " Áno . " Ak sa klikne na " Nie " , bude súbor uložiť pred zatvorením . Ak sa zvolí " Zrušiť " , súbor nebude blízko. 
 21 
 Spustenie VB editora . V ponuke Vložiť vložte modul , potom v Prieskumníkovi Project dvakrát kliknite na nový modul . Okno kód otvoria . 
 22 
 Zadajte nasledujúce rutinu . ( Nezadávajte text v zátvorke , ktoré nasledujú . ) Sub MsgBoxTest ( ) [ Podprogramy vždy začínať Sub a končí End Sub ] myTitle = " Upozornenie " [ Priradí hodnotu " myTitle . " Pri použití " myTitle " neskôr , je to rovnaké , ako pri písaní " Upozornenie " . ] MyMsg = " Zavrieť bez uloženia ? Budú stratia všetky zmeny . " [ Priradí hodnotu " MyMsg . " ] Response = MsgBox ( myMsg , vbExclamation + vbYesNoCancel , myTitle ) [ Definuje správou . To bude obsahovať " myMsg , " varovný výkričník , a Áno , Nie a Zrušiť , a záhlavie bude čítať " Pozor , " pretože to je hodnota " myTitle . " ] Select Case odozvy [ Select Case priradí akcie na rôznych . voľby ] Case Is = vbYes [ Ak používateľ klikne na tlačidlo Áno ] ActiveWorkbook.Close SaveChanges : . = false [ Zavrieť bez uloženia ] Prípad je = vbNo [ Ak používateľ klikne na tlačidlo Nie ] ActiveWorkbook.Close SaveChanges : = TRUE [ Uložiť a zavrieť . ] Case Is = vbCancel [ Ak používateľ klikne na tlačidlo Zrušiť ] Exit Sub [ Ukončite podprogram . Nerob nič . ] End Select [ Týmto končí Select Case vyhlásenie . ] End Sub [ Ukončí podprogram ] 
 23 
 vyberte príkaz Spustiť , Spustiť Sub /User formulára z menu . Vaša správa sa zobrazí okno , ktoré ste teraz úspešne napísal fungujúci VBA rutinu 
 .
              
Copyright © počítačové znalosti Všetky práva vyhradené