En Tutorial for Excel VBA meldingsbokser

January 4

Vise riktig meldingsboksen til brukerne er avgjørende når du trenger å kjøre kode basert på deres svar. VBA har et utvalg av meldingsbokser med knappe valg for å møte behovene til søknaden din. Hvis du trenger å vise en melding til brukeren og ikke trenger å iverksette tiltak basert på svar, bruk en meldingsboks med en "OK" -knappen. Bruk meldingsbokser med knappe alternativer som "Ja" eller "Nei" når du trenger å utføre en annen del av koden for hver knapp.

Bruksanvisning

1 Klikk på "Utvikler" og klikk "Visual Basic" for å starte VB Editor vinduet. Klikk på "Insert" -menyen og "Module" å sette inn en ny kode modul.

2 Opprett en ny sub prosedyre og en Integer variabel ved å legge til følgende kode:

Private Sub meldingsbokser ()

Dim returnVal As Integer

3 Vise en meldingsboks med en "OK" -knappen:

MsgBox "Message med OK-knappen", vbOKOnly, "OK"

4 Legg til følgende kode for å vise en meldingsboks med en "OK" og en "Avbryt" knappen:

returnVal = MsgBox ( "Meldings med OK og Avbryt", vbOKCancel, "OK & Avbryt")

5 Skriv inn følgende kode for å finne ut hvilken knapp ble klikket og vise resultatet gjennom Immediate vinduet:

Hvis (returnVal = 1) Deretter

Debug.Print "OK button was clicked"

Ellers

Debug.Print "Cancel button was clicked"

Slutt om

6 Legg inn koden for å vise en meldingsboks med knappene "Abort", "Prøv på nytt" og "Ignorer:"

returnVal = MsgBox ( "Meldings med Abort, Retry, og Ignorer knapper", vbAbortRetryIgnore, "AbortRetryIgnore")

7 Finn ut hvilken knapp ble trykket og vise resultater gjennom det gjeldende vinduet ved å legge til følgende kode:

Hvis (returnVal = 3) Så

Debug.Print "Abort button was clicked"

ElseIf (returnVal = 4) Deretter

Debug.Print "Retry button was clicked"

Ellers

Debug.Print "Ignore button was clicked"

Slutt om

8 Legg et "Ja" og "Nei" -knappen meldingsboksen:

returnVal = MsgBox ( "Meldings med Ja- og Nei-knapper", vbYesNo, "Yes & No")

9 Bestem knappen klikkes av brukeren ved å legge til følgende kode:

Hvis (returnVal = 6) Deretter

Debug.Print "Yes button was clicked"

Ellers

Debug.Print "No button was clicked"

Slutt om

10 Avslutt prosedyren ved å legge til "End Sub" som siste linje med kode. Trykk "Ctrl" og "G" for å vise Immediate vinduet og trykk "F5" for å kjøre prosedyren.