Slik bruker du MsgBox-funksjonen i Excel 2016 VBA - dummies

Du er sikkert kjent med VBA MsgBox-funksjonen. MsgBox-funksjonen, som godtar argumentene vist nedenfor, er nyttig for å vise informasjon og få enkel brukerinngang. Det er i stand til å få brukerinngang fordi det er en funksjon. En funksjon, som du sikkert vet, returnerer en verdi. I tilfelle av MsgBox-funksjonen bruker den en dialogboks for å få verdien som den returnerer. Fortsett å lese for å se nøyaktig hvordan det fungerer.

Argument	Hva det påvirker
Spør	Teksten Excel vises i meldingsboksen
Knapper	Et nummer som angir hvilke knapper (sammen med hvilket ikon) vises i meldingsboksen (valgfritt)
Tittel	Teksten som vises i tittellinjen i meldingskassen (valgfritt)

Her er en forenklet versjon av syntaksen til MsgBox-funksjonen: <

MsgBox (ledig [knapper] [tittel])

Vise en enkel meldingskasse

Du kan bruke MsgBox-funksjonen på to måter:

For å bare vise en melding til brukeren:

• I dette tilfellet bryr du deg ikke om resultatet som returneres av funksjonen. For å få svar fra brukeren:

• I dette tilfellet bryr du deg om resultatet som returneres av funksjonen. Resultatet avhenger av knappen som brukeren klikker på.

  Hvis du bruker MsgBox-funksjonen, må du ikke inkludere parenteser rundt argumentene. Følgende eksempel viser bare en melding og returnerer ikke et resultat. Når meldingen vises, stopper koden til brukeren klikker OK.

Sub MsgBoxDemo () MsgBox "Klikk OK for å begynne å skrive ut. "Ark (" Resultater "). PrintOut End Sub

Se nedenfor for å se hvordan denne meldingsboksen ser ut. I dette tilfellet starter utskrift når brukeren klikker OK. Legg merke til at det ikke er mulig å avbryte utskriften? Fortsett å lese for å finne ut hvordan du kan fikse det.

En enkel meldingskasse.

Få svar fra en meldingsboks

Hvis du viser en meldingsboks som har mer enn bare en OK-knapp, vil du sikkert vite hvilken knapp brukeren klikker på. Du har lykke til. MsgBox-funksjonen kan returnere en verdi som representerer hvilken knapp som er klikket. Du kan tilordne resultatet av MsgBox-funksjonen til en variabel.

I følgende kode brukes noen innebygde konstanter som gjør det enkelt å arbeide med verdiene returnert av MsgBox:

Sub GetAnswer () Dim Ans As Long Ans = MsgBox ("Start utskrift?", VbYesNo) Velg Case Ans Case vbYes ActiveSheet. PrintOut Case vbNo MsgBox "Utskrift avbrutt" Slutt Velg End Sub

Konstant

Verdi	Hva gjør det	vbOKOnly
0	Viser kun OK-knappen.	vbOKCancel
1	Viser OK og Avbryt knapper.	vbAbortRetryIgnore
2	Viser Avbryt, Prøv på nytt og Ignorer knapper.	vbYesNoCancel
3	Viser Ja, Nei, og Avbryt knapper.	vbYesNo
4	Viser Ja og Nei knapper.	vbRetryCancel
5	Viser Retry og Cancel knapper.	vbCritical
16	Viser ikonet for kritisk melding.	vbQuestion
32	Viser ikon for advarselssøk.	vbExclamation
48	Viser advarselsmeldingsikonet.	vbInformation
64	Viser informasjonsmeldingikon.	vbDefaultButton1
0	Første knapp er standard.	vbDefaultButton2
256	Andre knapp er standard.	vbDefaultButton3
512	Tredje knappen er standard.	vbDefaultButton4
768	Fjerde knappen er standard.	Se hvordan det ser ut. Når du utfører denne prosedyren, er ans-variabelen tilordnet en verdi av enten vbYes eller vbNo, avhengig av hvilken knapp brukeren klikker på. Select Case-setningen bruker ans-verdien til å bestemme hvilken handling koden skal utføre.

En enkel meldingskasse, med to knapper.

Du kan også bruke MsgBox-funksjonsresultatet uten å bruke en variabel, som følgende eksempel viser:

Sub GetAnswer2 () Hvis MsgBox ("Start utskrift?", VbYesNo) = vbYes Then '… [kode hvis Ja er klikket] … Else '… [kode hvis Ja ikke er klikket] … Slutt hvis sluttdel