Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na " New " príkaz v ponuke " Súbor " je vytvoriť nový zošit .
2
Zadajte zoznam čísel , písmen alebo vzorcov v sérii po sebe idúcich riadkov v akejkoľvek tabuľky v zošite . Napríklad typ " jablko " , " oranžová " a " hruška " v bunkách A1 až A3 aktuálnej tabuľky . Program VBA budete písať sa zobrazia jednotlivé položky v tomto zozname .
3
Kliknite myšou na hornej položku v zozname , presuňte dole na zozname je poslednou položkou a uvoľnenie myš . Táto akcia vyberie zoznam .
4
Kliknite na kartu " Vývojár " , potom kliknite na tlačidlo " Visual Basic " pre vstup do programovacieho prostredia VBA .
5
Vložiť nasledujúci programový kód do centrálneho okna životného prostredia je . Tento program číta obsah každej bunky v zozname pomocou Cells vlastnosť objektu výber , ktorý predstavuje aktuálne vybrané bunky . Funkcia MsgBox zobrazí obsah bunky v dialógovom okne malej .
Public Sub readlist ( )
Dim i
i = 1 až Selection.Rows.Count
OknoSeZprávou Selection.Cells ( i , 1 )
Next i
End Sub
6
kliknite na ľubovoľný príkaz v programe , kliknite na tlačidlo " príkaz " menu v " Run " pre spustenie programu . Program zobrazí okno so správou pre každú položku ste zadali v kroku 2.
Word
7
Zadajte zoznam slov , každý na samostatnom riadku , kliknite na tlačidlo myši na hornej slovo .
8
Ťahajte dole do najspodnejšej slovo a uvoľnite tlačidlo myši a vyberte všetky slová v zozname.
9
Kliknite na " tlačidlo Developer " kartu je " Visual Basic " pre vstup do programovacieho prostredia VBA .
10
vložte nasledujúci program v centre okne životné prostredie je . Tento program číta "Odsek " vlastnosť " Selection " objekt , ktorý je držiteľom zoznam , ktorý ste vybrali . " MsgBox " sa zobrazí obsah každého odseku .
Public Sub readlist ( )
Dim i
i = 1 až Selection.Paragraphs.Count
MsgBox Selection.Paragraphs ( i ) . Range.Text
Next i
End Sub
11
Kliknite na jednu z výkazov programu , potom stlačte " F5 " spustiť program . VBA bude čítať každú položku v zozname a ohlásiť túto položku pre vás .