Visual Basic Projects

Microsoft Visual Basic je programovací jazyk , ktorý slúži na rozšírenie funkčnosti aplikácie Microsoft Word a Excel . Kódovanie jazyka Visual Basic projekty , ktoré vykonávajú základné úlohy Excelu vás naučí , ako využívať Visual Basic pre zvýšenie produktivity Excel . Vytvorte dát

Tento projekt sčíta čísla v rozsahu nad aktívnou bunkou , zadaním čiastky v aktívnej bunke . Ak chcete začať tento projekt , vytvoriť dáta pre neho - čísla sa sčítajú . V hárku programu Excel , zadajte akýchkoľvek päť čísel v stĺpci . Vyberte prvú prázdnu bunku pod stĺpcom čísel .

, Vytvorte Visual Basic program , ktorý spočíta tie čísla .
Zadajte kód vo vývojovom prostredí

Zadajte Visual Basic integrované vývojové prostredie ( IDE ) stlačením Alt - F11 . V okne Kód zadajte nasledujúce funkcie :

Sub Macro1 ( )

Dim s Ako StringDim o Ako RangeDim s Ako dosahu

Set o = ActiveCell.Offset ( -1 ) Sada p = o.End ( xlUp ) Set q = rozsah ( o , p )

s = " = priemer ( " & q.Address & " ) "

ActiveCell.Formula = s

End Sub

Tento kód programu je ekvivalentná ručne zadaním nasledujúci text v bunke vybranej skôr : " = sum ( ) , " kde odkazuje do stĺpca čísel , ktoré ste zadali .

Spustiť makro návratom do hárku programu Excel , výber Developer > makrá , výber Macro1 , a stlačením tlačidla Spustiť . Váš makro spočíta stĺpec čísel , vstupom výsledok v súčasnosti aktivované bunky . ( Ak nevidíte kartu Vývojár , nevystavujte ho pomocou tlačidla Office v hornej časti aplikácie Excel ľavého rohu , výber Možnosti programu Excel , a " Zobraziť kartu Vývojár na páse kariet. " )

Project Two : . Použite formulár

Druhý projekt nadväzuje na prvý tým , že umožňuje užívateľovi svojho programu výberu funkcií

Znova zadajte Visual Basic IDE a zvoľte Vložiť > UserForm . Pretiahnite nasledujúce ovládacie prvky do formulára z panela : listbox a tlačidlá . Stlačením klávesu F7 sa vrátite do zobrazenia kódu a vyberte UserForm z ľavého rozbaľovacieho zoznamu v hornej časti okna kódu a inicializácia z pravého rozbaľovacieho zoznamu . IDE vytvorí funkcia Sub UserForm_Initialize ( ) . V tejto funkcii , zadajte tento kód , ktorý sa pridá k listbox názvy funkcií , používateľ vyberie z :

ListBox1.AddItem " súčet " ListBox1.AddItem " priemerný "

použite ľavý a pravý rozbaľovacích okno kód je opäť výber CommandButton1 z ľavého rozbaľovacieho zoznamu , a kliknite na tlačidlo na pravej rozbaľovacieho zoznamu . IDE vytvorí prázdnu funkciu CommandButton1_Click ( ) . Zadajte nasledujúci kód v tejto funkcii , ktorá sa bude volať pôvodné Macro1 ste napísal s funkciou , ktoré užívateľ vyberie z listbox :

Macro1 ( ListBox1.Value )

Upraviť Macro1 prijať argument : Kliknite pravým tlačidlom myši na " Macro1 " text a vyberte Definícia prejdite na definíciu Macro1 . Zmeňte riadok " Sub Macro1 ( ) " čítať " Sub Macro1 ( funkcia As String ) "

Teraz , keď ste pridali argumentu , upravovať Macro1 používať : Zmeňte príkaz s = " = priemer ( " & q.Address & " ) " sa nahrádza takto :

s = " = " & funkcie a " ( " & q.Address & " ) "
Napíšte funkcie , ktoré Načíta formulár

Zadajte túto novú funkciu pod Macro1 :

Sub Macro2 ( ) UserForm1.ShowEnd Sub

Späť na Excel ( alt- F11 ) a umiestnite kurzor pod stĺpcom čísel . Zobraziť UserForm voľbou pre vývojárov > makrá a vyberiete Macro2 a na príkaz Spustiť . Akonáhle sa zobrazí formulár , vybrať buď súčet alebo priemer funkciu a stlačte tlačidlo . Váš program bude zadajte vzorec do listu . Vzorec zhrnuté údaje zo stĺpca nad aktívnou bunkou .

• Predchádzajúca strana: Cvičenie pre pridanie Visual Basic tabuľky programu Word 
• Ďalšia strana: Microsoft Visual Basic Projects