Výukový program pre Excel VBA schránok

Zobrazujem správne správou pre užívateľa je dôležité , ak potrebujete spustiť kód na základe ich odpovedí . VBA je výber okien správ s tlačidlom voľby , aby vyhovovali potrebám vašej aplikácie . Ak potrebujete zobraziť správu užívateľovi a nemusíte prijať opatrenia na základe odpovedí , použite okno správy s tlačidlom " OK " . Použite boxy správ s možnosťou tlačidiel , ako je " Áno " alebo " Nie " , ak potrebujete spustiť inú časť kódu pre každé tlačidlo . Pokyny dovolená 1

Kliknite na kartu " Vývojár " a kliknite na " Visual Basic " pre spustenie okna VB Editor . . Kliknite na menu " Vložiť " a " modul " vložiť nový kód modulu
2

Vytvoriť nový čiastkové postup a jeden celočíselné premenné pridaním nasledujúceho kódu :

Private Sub MessageBox ( )

Dim returnVal As Integer
3

Zobrazí sa okno so správou s tlačidlom " OK " :

MsgBox " správ s tlačidlom OK " , vbOKOnly , " OK "
4

Pridajte nasledujúci kód sa zobrazí okno s " OK " a " Storno " tlačidlo : klipart

returnVal = MsgBox ( " Správa sa tlačidla OK a Zrušiť " , vbOKCancel , " OK & Cancel " )
5

Zadajte nasledujúci kód určiť , ktoré tlačidlo používateľ klikol a zobrazenie výsledku pomocou okna Immediate :

( returnVal = 1 ) Potom

Debug.Print " tlačidlo OK klepli "

Else

Debug.Print " tlačidlo Storno klepli "

konca ak
6

Pridajte kódu sa zobrazí okno s tlačidlami " Abort " , " Opakovať " a " Ignorovať "

returnVal = MsgBox ( " Správa s Abort , Retry , a Ignorovať tlačidlá " , vbAbortRetryIgnore , " AbortRetryIgnore " )
7

Určte , ktoré tlačidlo bolo stlačené a zobrazenie výsledkov pomocou okna Immediate pridaním nasledujúceho kódu :

( returnVal = 3 ) Potom

Debug.Print " Prerušiť tlačidlo klepli "

ElseIf ( returnVal = 4 ) Potom

Debug.Print " Skúsiť znova tlačidlo bolo kliknuté "

Else

Debug.Print " Ignorovať tlačidlo klepli "

End If
8

Pridať " Áno " a " Nie " tlačidlo okno so správou :

returnVal = MsgBox ( " Správa sa tlačidlá Áno a nie " , vbYesNo , " Áno a nie " )
9

Určte kliknutí na tlačidlo užívateľom pridaním nasledujúceho kódu :

( returnVal = 6 ) Potom

Debug.Print " Áno tlačidla klepli "

Else

Debug.Print " No tlačidla klepli "

End If
10

ukončite postup pridaním " End Sub " ako posledný riadok kódu . Stlačte tlačidlo " Ctrl " a " G " sa zobrazí v okamžitom okne a stlačte klávesu " F5 " pre spustenie procedúry .

• Predchádzajúca strana: Ako upozorniť na oblasti na osi X v programe Excel 2007 
• Ďalšia strana: Ako používať Excel pre lineárnych rovníc