Ju ndoshta jeni njohur me funksionin VBA MsgBox. Funksioni MsgBox, i cili pranon argumentet e paraqitura më poshtë, është i dobishëm për shfaqjen e informacionit dhe marrjen e të dhënave të thjeshta të përdoruesit. Është në gjendje të marrë të dhëna nga përdoruesi sepse është një funksion. Një funksion, siç ndoshta e dini, kthen një vlerë. Në rastin e funksionit MsgBox, ai përdor një kuti dialogu për të marrë vlerën që kthen. Vazhdoni të lexoni për të parë saktësisht se si funksionon.
Argumenti |
Çfarë Ndikon |
Prompt |
Teksti Excel shfaqet në kutinë e mesazheve |
Butonat |
Një numër që specifikon se cilët butona (së bashku me çfarë ikone)
shfaqen në kutinë e mesazheve (opsionale) |
Titulli |
Teksti që shfaqet në shiritin e titullit të kutisë së mesazheve
(opsionale) |
Këtu është një version i thjeshtuar i sintaksës së funksionit MsgBox:
MsgBox (prompt[, butonat][, titull])
Shfaqja e një kutie të thjeshtë mesazhi
Ju mund ta përdorni funksionin MsgBox në dy mënyra:
-
Thjesht për t'i shfaqur një mesazh përdoruesit: Në këtë rast, nuk ju intereson rezultati i kthyer nga funksioni.
-
Për të marrë një përgjigje nga përdoruesi: Në këtë rast, ju kujdeseni për rezultatin e kthyer nga funksioni. Rezultati varet nga butoni që përdoruesi klikon.
Nëse përdorni funksionin MsgBox në vetvete, mos përfshini kllapa rreth argumenteve. Shembulli i mëposhtëm thjesht shfaq një mesazh dhe nuk kthen rezultat. Kur shfaqet mesazhi, kodi ndalon derisa përdoruesi të klikon OK.
Nën MsgBoxDemo()
MsgBox "Kliko OK për të filluar printimin."
Fletë (“Rezultatet”).PrintOut
Fundi Nën
Shikoni më poshtë për të parë se si duket kjo kuti mesazhi. Në këtë rast, printimi fillon kur përdoruesi klikon OK. A vini re se nuk ka asnjë mënyrë për të anuluar printimin? Vazhdoni të lexoni për të zbuluar se si ta rregulloni atë.
Një kuti e thjeshtë mesazhesh.
Marrja e një përgjigje nga një kuti mesazhi
Nëse shfaqni një kuti mesazhi që ka më shumë se thjesht një buton OK, ndoshta do të dëshironi të dini se cilin buton klikon përdoruesi. Ju jeni me fat. Funksioni MsgBox mund të kthejë një vlerë që përfaqëson se cili buton është klikuar. Ju mund të caktoni rezultatin e funksionit MsgBox në një ndryshore.
Në kodin e mëposhtëm, përdoren disa konstante të integruara që e bëjnë të lehtë punën me vlerat e kthyera nga MsgBox:
Nën GetAnswer()
Dim Ans Sa Long
Ans = MsgBox (“Filloni të printoni?”, vbPo Jo)
Zgjidhni Rastin Përgjigje
Rasti vbPo
ActiveSheet.PrintOut
Rasti vbNr
MsgBox "Printimi u anulua"
Fund Zgjidh
Fundi Nën
Konstante |
Vlera |
Çfarë bën |
Vetëm vbOK |
0 |
Shfaq vetëm butonin OK. |
vbOKAnulo |
1 |
Shfaq butonat OK dhe Anulo. |
vbAbortRetryIgnore |
2 |
Shfaq butonat "Aborto", "Riprovo" dhe "Injoro". |
vbPo JoAnulo |
3 |
Shfaq butonat Po, Jo dhe Anulo. |
vbPo Jo |
4 |
Shfaq butonat Po dhe Jo. |
vbRetryAnulo |
5 |
Shfaq butonat Riprovo dhe Anulo. |
vbKritike |
16 |
Shfaq ikonën e mesazhit kritik. |
vbPyetje |
32 |
Shfaq ikonën e pyetjes paralajmëruese. |
vbThirrje |
48 |
Shfaq ikonën e mesazhit paralajmërues. |
vbInformacion |
64 |
Shfaq ikonën e mesazhit të informacionit. |
vbDefaultButton1 |
0 |
Butoni i parë është i paracaktuar. |
vbDefaultButton2 |
256 |
Butoni i dytë është i paracaktuar. |
vbDefaultButton3 |
512 |
Butoni i tretë është i paracaktuar. |
vbDefaultButton4 |
768 |
Butoni i katërt është i paracaktuar. |
Shikoni se si duket. Kur ekzekutoni këtë procedurë, ndryshores Ans i caktohet një vlerë ose vbYes ose vbNo, në varësi të cilit buton klikon përdoruesi. Deklarata Select Case përdor vlerën Ans për të përcaktuar se cilin veprim duhet të kryejë kodi.
Një kuti e thjeshtë mesazhesh, me dy butona.
Ju gjithashtu mund të përdorni rezultatin e funksionit MsgBox pa përdorur një ndryshore, siç tregon shembulli i mëposhtëm:
Nën GetAnswer2()
Nëse MsgBox (“Filloni të printoni?”, vbPo Jo) = vbPo Atëherë
' ...[kodi nëse klikohet Po]…
Përndryshe
' ...[kodi nëse nuk është klikuar Po]…
Fundi Nëse
Fundi Nën