În acest articol, vom învăța funcția MsgBox în Excel VBA, Următoarele sunt setările argumentului butoanelor msgbox vba:
| Constant | Valoare | Descriere |
| vbOKDoar | 0 | Afișați numai butonul OK. |
| vbOKAnulați | 1 | Afișați butoanele OK și Cancel. |
| vbAbortRetryIgnore | 2 | Afișați butoanele de anulare, reîncercare și ignorare. |
| vbYesNoCancel | 3 | Afișați butoanele Da, Nu și Anulare. |
| vbDa Nu | 4 | Afișați butoanele Da și Nu. |
| vbRetryCancel | 5 | Afișați butoanele Reîncercați și Anulați. |
| vbCritic | 16 | Afișați pictograma Mesaj critic. |
| vbÎntrebare | 32 | Afișați pictograma interogare de avertizare. |
| vbExclamation | 48 | Afișați pictograma mesaj de avertizare. |
| vbInformații | 64 | Afișați pictograma Mesaj informații. |
| vbDefaultButton1 | 0 | Primul buton este implicit. |
| vbDefaultButton2 | 256 | Al doilea buton este implicit. |
| vbDefaultButton3 | 512 | Al treilea buton este implicit. |
| vbDefaultButton4 | 768 | Al patrulea buton este implicit. |
| vbApplicationModal | 0 | Modalitate de aplicare; utilizatorul trebuie să răspundă la caseta de mesaj înainte de a continua lucrul în aplicația curentă. |
| vbSystemModal | 4096 | Sistem modal; toate aplicațiile sunt suspendate până când utilizatorul răspunde la caseta de mesaje. |
| vbMsgBoxHelpButton | 16384 | Adaugă butonul Ajutor în caseta de mesaje |
| VbMsgBoxSetForeground | 65536 | Specifică fereastra casetei de mesaj ca fereastră din prim-plan |
| vbMsgBoxRight | 524288 | Textul este aliniat la dreapta |
| vbMsgBoxRtlReading | 1048576 | Specifică ca textul să apară drept citire de la dreapta la stânga pe sistemele ebraice și arabe |
Să vedem cum caseta de mesaje vba poate ajuta utilizatorul să șteargă tot conținutul celulelor din foaia de lucru curentă.
Urmează instantaneul datelor:
Trebuie să urmăm pașii de mai jos:
- Faceți clic pe fila Dezvoltator
- Din grupul de coduri, selectați Visual Basic
- Să introducem un buton de comandă
- Introduceți următorul cod în modulul de foaie de lucru curent: -
Opțiune explicită
Private Sub CommandButton1_Click ()
Răspuns slab Ca întreg
answer = MsgBox („Doriți să ștergeți toate celulele din foaia curentă?”, vbDaNu + vbIntrebare, „Ștergeți toate celulele”)
Dacă răspuns = vbDa atunci
Celule.ClearContents
Altfel
'nu face nimic
End If
Sfârșitul Sub
- Când facem clic pe butonul Comandă, va apărea următoarea solicitare
- Faceți clic pe butonul Da pentru a șterge toate celulele.
- Rezultatul va fi după cum urmează
În acest fel, putem șterge toate celulele folosind butonul de comandă din Excel VBA.
Descărcare-Casetă de mesaje în Excel VBA