Šajā rakstā mēs uzzināsim funkciju MsgBox programmā Excel VBA. Tālāk ir norādītas pogas argumentu iestatījumi msgbox vba:
| Pastāvīga | Vērtība | Apraksts |
| vbOKTikai | 0 | Parādīt tikai pogu OK. |
| vbOKCancel | 1 | Parādīt pogas Labi un Atcelt. |
| vbAbortRetryIgnore | 2 | Parādiet pogas Abort, Retry un Ignore. |
| vbJāNoAtcelt | 3 | Parādīt pogas Jā, Nē un Atcelt. |
| vbJāNē | 4 | Parādiet pogas Jā un Nē. |
| vbRetryCancel | 5 | Parādīt pogas Mēģināt vēlreiz un Atcelt. |
| vbKritiski | 16 | Parādiet kritisko ziņojumu ikonu. |
| vbJautājums | 32 | Parādīt brīdinājuma vaicājuma ikonu. |
| vbIzsaukums | 48 | Parādīt brīdinājuma ziņojuma ikonu. |
| vbInformācija | 64 | Parādīt informācijas ziņojuma ikonu. |
| vbDefaultButton1 | 0 | Pirmā poga ir noklusējuma. |
| vbDefaultButton2 | 256 | Otrā poga ir noklusējuma. |
| vbDefaultButton3 | 512 | Trešā poga ir noklusējuma. |
| vbDefaultButton4 | 768 | Ceturtā poga ir noklusējuma. |
| vbApplicationModal | 0 | Lietošanas veids; lietotājam ir jāatbild uz ziņojumu lodziņu, pirms turpināt darbu pašreizējā lietojumprogrammā. |
| vbSystemModal | 4096 | Sistēmas modāls; visas lietojumprogrammas tiek apturētas, līdz lietotājs atbild uz ziņojumu lodziņu. |
| vbMsgBoxHelpButton | 16384 | Ziņojumu lodziņam pievieno pogu Palīdzība |
| VbMsgBoxSetForeground | 65536 | Norāda ziņojumu lodziņa logu kā priekšplāna logu |
| vbMsgBoxRight | 524288 | Teksts ir līdzināts pa labi |
| vbMsgBoxRtlReading | 1048576 | Norāda, ka teksts ebreju un arābu sistēmās jāparādās kā lasījums no labās uz kreiso |
Apskatīsim, kā vba ziņojumu lodziņš var palīdzēt lietotājam izdzēst visu pašreizējās darblapas šūnu saturu.
Tālāk ir sniegts datu momentuzņēmums:
Mums jāveic šādas darbības:
- Noklikšķiniet uz cilnes Izstrādātājs
- Kodu grupā atlasiet Visual Basic
- Ievietojam komandu pogu
- Pašreizējā darblapas modulī ievadiet šādu kodu:-
Skaidrs variants
Privāta apakškomandaButton1_Click ()
Blāva atbilde Kā vesels skaitlis
atbilde = MsgBox ("Vai vēlaties dzēst visas pašreizējās lapas šūnas?", vbJāNē + vbQuestion, "Dzēst visas šūnas")
Ja atbilde = vbJā Tad
Šūnas. Skaidrs saturs
Citādi
'neko nedarīt
Beigas Ja
Beigt apakš
- Noklikšķinot uz pogas Komanda, parādīsies šāda uzvedne
- Noklikšķiniet uz pogas Jā, lai izdzēstu visas šūnas.
- Rezultāts būs šāds
Tādā veidā mēs varam izdzēst visas šūnas, izmantojot komandu pogu programmā Excel VBA.
Lejupielādes ziņojumu lodziņš programmā Excel VBA