Funcția MsgBox în Excel VBA poate returna un rezultat în timp ce un simplu MsgBox nu poate.
Situatie:
Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
1. În primul rând, declarăm o variabilă numită răspuns de tip întreg.
Răspuns slab Ca întreg
2. Folosim funcția MsgBox pentru a inițializa răspunsul variabil cu intrarea de la utilizator.
Funcția MsgBox, atunci când se utilizează paranteze, are trei argumente. Prima parte este utilizată pentru mesajul din caseta de mesaje. Utilizați a doua parte pentru a specifica ce butoane și pictograme doriți să apară în caseta de mesaj. A treia parte este afișată în bara de titlu a casetei de mesaje.
answer = MsgBox („Sigur doriți să goliți foaia?”, vbDa Nu + vbQuestion, „Foaia goală”)
Notă: Plasați cursorul pe vbYesNo în Visual Basic Editor și faceți clic pe F1 pentru a vedea ce alte butoane și pictograme puteți utiliza. În loc de constante vbYesNo și vbQuestion, puteți utiliza și valorile corespunzătoare 4 și 32.
3. Dacă utilizatorul face clic pe butonul Da, Excel VBA goleste foaia. Dacă utilizatorul dă clic pe butonul Nu, nu se întâmplă nimic. Adăugați următoarele linii de cod pentru a realiza acest lucru.
Dacă răspuns = vbDa atunci
Celule.ClearContents
Altfel
'nu face nimic
End If
4. Faceți clic pe butonul de comandă de pe foaie.
5. Faceți clic pe Da.
Rezultat:
