Kaip greitai parodyti mažą dialogo langą
Ar norėtumėte į savo VBA programą įtraukti trumpą, interaktyvią informaciją vartotojui? Nebūtinai turite sukurti sudėtingą dialogo langą (UserForm).
Atliekant mažas užduotis, galite iškviesti iš anksto nustatytą pranešimo langą naudodami funkciją „MsgBox“ (santrumpa reiškia „Pranešimų dėžutė“).
Komandą vadinate tokia forma:
Grąžinimo vertė = „MsgBox“ (lango tekstas, lango tipas, lango pavadinimas)
Naudodami lango teksto parametrą perduodate tekstą, kurį norite rodyti lange, pavyzdžiui, tekstą „Šis tekstas pasirodo pranešimo lange“. Įveskite tekstą kabutėse.
Lango tipo parametras nurodo „Excel“, kaip turėtų atrodyti langas. Tam yra iš anksto nustatytos konstantos. Svarbiausios konstantos yra šios:
vbOKTik: Rodomas tik mygtukas „Gerai“
vbOKCancel: Rodo OK ir Cancel mygtukus.
vbRetryIgnoreCancel: Rodo mygtukus „Bandyti iš naujo“, „Ignoruoti“ ir „Atšaukti“.
Naudodami lango pavadinimo parametrą perduodate tekstą, kuris rodomas lango antraštėje. Šią vertę taip pat įrašykite kabutėse. Pavyzdys yra frazė „Tai lango pavadinimas“.
Šioje programos eilutėje parodytas „MsgBox“ funkcijos naudojimas naudojant pavyzdį:
Rodyti antrinį langą
a = MsgBox ("Šis tekstas pasirodo pranešimų lange", vbokcancel, "Tai lango pavadinimas")
Pabaiga Sub
Jei „Excel“ vykdo komandą, gausite langą iš šio paveikslėlio:
Naudodami grąžos vertės kintamąjį, programos pavyzdžio atveju, naudodami kintamąjį „a“, galite paklausti, kurį mygtuką vartotojas naudoja uždaryti langą. Galimos grąžinimo vertės yra atitinkamų mygtukų vbOk, vbCancel, vbRetry, vbIgnore.