The „MsgBox“ funkcija į Excel VBA gali grąžinti rezultatą, o paprastas „MsgBox“ negali.
Situacija:
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirma, mes deklaruojame kintamąjį, vadinamą „Integer“ tipo atsakymu.
Neryškus atsakymas kaip sveikasis skaičius
2. Mes naudojame funkciją „MsgBox“, kad inicijuotume kintamąjį atsakymą su vartotojo įvestimi.
Funkcija „MsgBox“, naudojant skliaustus, turi tris argumentus. Pirmoji dalis naudojama pranešimui pranešimų laukelyje. Naudodami antrąją dalį nurodykite, kuriuos mygtukus ir piktogramas norite rodyti pranešimų laukelyje. Trečioji dalis rodoma pranešimų laukelio pavadinimo juostoje.
atsakymas = „MsgBox“ („Ar tikrai norite ištuštinti lapą?“, vbYesNo + vbQuestion, „Tuščias lapas“)
Pastaba: Užveskite žymeklį ant „vbYesNo“ „Visual Basic“ redaktoriuje ir spustelėkite F1, kad pamatytumėte, kuriuos kitus mygtukus ir piktogramas galite naudoti. Vietoj konstantų vbYesNo ir vbQuestion taip pat galite naudoti atitinkamas 4 ir 32 reikšmes.
3. Jei vartotojas spustelėja mygtuką Taip, „Excel VBA“ ištuština lapą. Jei vartotojas spustelės mygtuką „Ne“, nieko neįvyks. Norėdami tai padaryti, pridėkite šias kodo eilutes.
Jei atsakymas = vbTaip tada
Ląstelės. Aiškus turinys
Kitas
'nieko nedaryk
Pabaiga Jei
4. Spustelėkite komandų mygtuką lape.
5. Spustelėkite Taip.
Rezultatas:
