Þú ert líklega kunnugur VBA MsgBox aðgerðinni. MsgBox aðgerðin, sem samþykkir rökin sem sýnd eru hér að neðan, er gagnleg til að birta upplýsingar og fá einfalt notendainntak. Það er fær um að fá notendainntak vegna þess að það er aðgerð. Fall, eins og þú veist líklega, skilar gildi. Þegar um er að ræða MsgBox aðgerðina notar hún valmynd til að fá gildið sem það skilar. Haltu áfram að lesa til að sjá nákvæmlega hvernig það virkar.
Rök |
Hvað það hefur áhrif |
Hvetja |
Textinn Excel birtist í skilaboðareitnum |
Hnappar |
Tala sem tilgreinir hvaða hnappar (ásamt hvaða tákni)
birtast í skilaboðareitnum (valfrjálst) |
Titill |
Textinn sem birtist á titilstiku skilaboðareitsins
(valfrjálst) |
Hér er einfölduð útgáfa af setningafræði MsgBox fallsins:
MsgBox(kvaðning[, hnappar][, titill])
Sýnir einfaldan skilaboðakassa
Þú getur notað MsgBox aðgerðina á tvo vegu:
-
Til að einfaldlega sýna notanda skilaboð: Í þessu tilfelli er þér sama um niðurstöðuna sem aðgerðin skilar.
-
Til að fá svar frá notandanum: Í þessu tilfelli er þér sama um niðurstöðuna sem aðgerðin skilar. Niðurstaðan fer eftir hnappinum sem notandinn smellir á.
Ef þú notar MsgBox fallið eitt og sér skaltu ekki setja sviga utan um rökin. Eftirfarandi dæmi sýnir einfaldlega skilaboð og skilar ekki niðurstöðu. Þegar skilaboðin birtast hættir kóðinn þar til notandinn smellir á OK.
Undir MsgBoxDemo()
MsgBox "Smelltu á OK til að hefja prentun."
Sheets ("Niðurstöður"). PrintOut
End Sub
Skoðaðu hér að neðan til að sjá hvernig þessi skilaboðakassi lítur út. Í þessu tilviki hefst prentun þegar notandinn smellir á Í lagi. Tekurðu eftir því að það er engin leið að hætta við prentunina? Haltu áfram að lesa til að komast að því hvernig á að laga það.
Einfaldur skilaboðakassi.
Að fá svar úr skilaboðakassi
Ef þú birtir skilaboðareit sem hefur meira en bara OK hnappinn, muntu líklega vilja vita hvaða hnapp notandinn smellir á. Þú ert heppinn. MsgBox aðgerðin getur skilað gildi sem táknar hvaða hnapp er smellt á. Þú getur úthlutað niðurstöðu MsgBox fallsins við breytu.
Í eftirfarandi kóða eru nokkrir innbyggðir fastar notaðir sem gera það auðvelt að vinna með gildin sem MsgBox skilar:
Undir GetAnswer()
Dim Ans As Long
Ans = MsgBox(“Byrja prentun?”, vbYesNo)
Veldu Case Ans
Mál vbJá
ActiveSheet.PrintOut
Mál vb.nr
MsgBox „Hætt við prentun“
Endurval
End Sub
Stöðugt |
Gildi |
Hvað það gerir |
vbOKAðeins |
0 |
Sýnir aðeins OK hnappinn. |
vbOKHætta við |
1 |
Sýnir Í lagi og Hætta við hnappa. |
vbAbortRetryIgnore |
2 |
Sýnir Hætta við, Reyna aftur og Hunsa hnappa. |
vbJáNeiHætta við |
3 |
Sýnir Já, Nei og Hætta við hnappana. |
vbJáNei |
4 |
Sýnir Já og Nei hnappa. |
vbRetryCancel |
5 |
Sýnir hnappana Reyna aftur og Hætta við. |
vbCritical |
16 |
Sýnir tákn fyrir mikilvæg skilaboð. |
vb Spurning |
32 |
Sýnir viðvörunarfyrirspurnartákn. |
vb Upphrópun |
48 |
Sýnir tákn fyrir viðvörun. |
vbUpplýsingar |
64 |
Sýnir tákn fyrir upplýsingaskilaboð. |
vbDefaultButton1 |
0 |
Fyrsti hnappurinn er sjálfgefinn. |
vbDefaultButton2 |
256 |
Annar hnappur er sjálfgefinn. |
vbDefaultButton3 |
512 |
Þriðji hnappurinn er sjálfgefinn. |
vbDefaultButton4 |
768 |
Fjórði hnappurinn er sjálfgefinn. |
Athugaðu hvernig það lítur út. Þegar þú framkvæmir þessa aðferð er Ans breytunni úthlutað gildi annaðhvort vbYes eða vbNo, eftir því hvaða hnapp notandinn smellir á. Select Case setningin notar Ans gildið til að ákvarða hvaða aðgerð kóðinn ætti að framkvæma.
Einfaldur skilaboðakassi, með tveimur hnöppum.
Þú getur líka notað MsgBox fall niðurstöðuna án þess að nota breytu, eins og eftirfarandi dæmi sýnir:
Undir GetAnswer2()
Ef MsgBox(“Byrjaðu að prenta?”, vbYesNo) = vbYes Þá
' ...[kóði ef smellt er á Já]...
Annar
' ...[kóði ef ekki er smellt á Já]...
End If
End Sub