Šiame straipsnyje mes išmoksime „MsgBox“ funkciją „Excel VBA“. Toliau pateikiami „msgbox vba“ mygtukų argumentų nustatymai:
| Pastovus | Vertė | apibūdinimas |
| vbOKTik | 0 | Rodyti tik mygtuką Gerai. |
| vbOKCancel | 1 | Rodyti mygtukus Gerai ir Atšaukti. |
| vbAbortRetryIgnore | 2 | Rodyti mygtukus Abort, Retry ir Ignore. |
| vbTaipAtšaukti | 3 | Rodyti mygtukus Taip, Ne ir Atšaukti. |
| vbTaip ne | 4 | Rodyti mygtukus Taip ir Ne. |
| vbRetryCancel | 5 | Rodyti mygtukus Bandyti iš naujo ir Atšaukti. |
| vbKritinis | 16 | Rodyti kritinio pranešimo piktogramą. |
| vbKlausimas | 32 | Rodyti įspėjimo užklausos piktogramą. |
| vbSušukimas | 48 | Rodyti įspėjamojo pranešimo piktogramą. |
| vbInformacija | 64 | Rodyti informacijos pranešimo piktogramą. |
| vbDefaultButton1 | 0 | Pirmasis mygtukas yra numatytasis. |
| vbDefaultButton2 | 256 | Antrasis mygtukas yra numatytasis. |
| vbNumatytasis mygtukas3 | 512 | Trečiasis mygtukas yra numatytasis. |
| vbNumatytasis mygtukas4 | 768 | Ketvirtasis mygtukas yra numatytasis. |
| vbApplicationModal | 0 | Taikymo būdas; prieš tęsdamas darbą dabartinėje programoje vartotojas turi atsakyti į pranešimų laukelį. |
| vbSystemModal | 4096 | Modalinė sistema; visos programos yra sustabdytos, kol vartotojas atsakys į pranešimų laukelį. |
| vbMsgBoxHelpButton | 16384 | Prie pranešimų laukelio prideda pagalbos mygtuką |
| VbMsgBoxSetForeground | 65536 | Nurodo pranešimų langelio langą kaip priekinio plano langą |
| „vbMsgBoxRight“ | 524288 | Tekstas sulygiuotas dešinėje |
| vbMsgBoxRtlReading | 1048576 | Nurodo, kad tekstas hebrajų ir arabų sistemose turėtų būti rodomas kaip skaitinys iš dešinės į kairę |
Pažiūrėkime, kaip „vba“ pranešimų laukelis gali padėti vartotojui ištrinti visą dabartinio darbalapio langelių turinį.
Toliau pateikiamas duomenų momentinis vaizdas:
Turime atlikti šiuos veiksmus:
- Spustelėkite skirtuką Kūrėjas
- Kodo grupėje pasirinkite „Visual Basic“
- Įterpkime komandinį mygtuką
- Į dabartinį darbalapio modulį įveskite šį kodą:-
Pasirinkimas aiškus
Privati antrinė komandaButton1_Click ()
Neryškus atsakymas kaip sveikasis skaičius
answer = MsgBox ("Ar norite ištrinti visas dabartinio lapo ląsteles?", vbYesNo + vbQuestion, "Ištrinti visus langelius")
Jei atsakymas = vbTaip tada
Ląstelės. Aiškus turinys
Kitas
'nieko nedaryk
Pabaiga Jei
Pabaiga Sub
- Kai spustelėsime komandų mygtuką, pasirodys ši eilutė
- Spustelėkite Taip, kad ištrintumėte visas ląsteles.
- Rezultatas bus toks
Tokiu būdu mes galime ištrinti visas ląsteles naudodami komandų mygtuką „Excel VBA“.
Atsisiuntimo pranešimų dėžutė „Excel VBA“