Tässä artikkelissa opimme Excel VBA: n MsgBox -toiminnon, Seuraavat ovat msgbox vba: n argumenttiasetukset:
| Jatkuva | Arvo | Kuvaus |
| vbOKVain | 0 | Näytä vain OK -painike. |
| vbOKCancel | 1 | Näytä OK- ja Peruuta -painikkeet. |
| vbAbortRetryIgnore | 2 | Näytä Keskeytä-, Yritä uudelleen- ja Ohita -painikkeet. |
| vbKylläEi Peruuta | 3 | Näytä Kyllä, Ei ja Peruuta -painikkeet. |
| vbKylläEi | 4 | Näytä Kyllä ja Ei -painikkeet. |
| vbRetryCancel | 5 | Näytä Uudelleenyritys- ja Peruuta -painikkeet. |
| vbKriittinen | 16 | Näytä kriittisen viestin kuvake. |
| vbKysymys | 32 | Näytä varoituskysely -kuvake. |
| vb Huutomerkki | 48 | Näytä varoitusviestikuvake. |
| vbTiedot | 64 | Näytä tiedotusviestikuvake. |
| vbOletuspainike 1 | 0 | Ensimmäinen painike on oletusarvo. |
| vbOletuspainike2 | 256 | Toinen painike on oletusarvo. |
| vbOletuspainike 3 | 512 | Kolmas painike on oletusarvo. |
| vbOletuspainike 4 | 768 | Neljäs painike on oletusarvo. |
| vbApplicationModal | 0 | Sovellusmodaali; käyttäjän on vastattava viestilaatikkoon ennen kuin jatkaa työskentelyä nykyisessä sovelluksessa. |
| vbSystemModal | 4096 | Modaalijärjestelmä; kaikki sovellukset on jäädytetty, kunnes käyttäjä vastaa viestilaatikkoon. |
| vbMsgBoxHelpButton | 16384 | Lisää Ohje -painikkeen viestiruutuun |
| VbMsgBoxSetForeground | 65536 | Määrittää viestiruudun ikkunan etualan ikkunaksi |
| vbMsgBoxRight | 524288 | Teksti on tasattu oikein |
| vbMsgBoxRtlReading | 1048576 | Määrittää, että tekstin pitäisi näkyä oikealta vasemmalle lukemana heprealaisissa ja arabialaisissa järjestelmissä |
Katsotaanpa, miten vba -viestiruutu voi auttaa käyttäjää poistamaan kaiken nykyisen laskentataulukon solujen sisällön.
Seuraavassa on tilannekuva tiedoista:
Meidän on noudatettava seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Lisäämme komentopainikkeen
- Kirjoita seuraava koodi nykyiseen laskentataulukkomoduuliin:-
Vaihtoehto Selkeä
Yksityinen alikomentoButton1_Click ()
Hämärä vastaus kokonaislukuna
answer = MsgBox ("Haluatko poistaa kaikki nykyisen taulukon solut?", vbYesNo + vbQuestion, "Poista kaikki solut")
Jos vastaus = vbKyllä
Solut, selkeä sisältö
Muu
'Älä tee mitään
Loppu Jos
End Sub
- Kun napsautamme Komento -painiketta, seuraava kehote tulee näkyviin
- Poista kaikki solut napsauttamalla Kyllä -painiketta.
- Tulos tulee olemaan seuraava
Tällä tavalla voimme poistaa kaikki solut Excel VBA: n komentopainikkeella.
Lataa-viestilaatikko Excel VBA: ssa