Jedna z najczęściej używanych funkcji w VBA to okno wiadomości lub lepiej znane jako MsgBox. Te wiadomości są dla wysłać informacje do użytkownika końcowego lub po prostu coś pokazać lub wezwać go do działania. Użyj funkcji MsjBox, aby dostosować wszystkie wiadomości wysyłane do użytkowników końcowych aplikacji Biuro ten
MsgBox jest zwykle używany, gdy: prosta odpowiedź wymagany jest użytkownik, taki jak Akceptuj lub Anuluj. Są łatwe do wykonania i całkowicie edytowalne, różne dla każdej akcji.
Jak używać MsgBox do dostosowywania wiadomości do użytkownika?
Pierwszą rzeczą, którą musisz wiedzieć o MsgBox jest to, że: są tworzone przy użyciu kodu projektu ten Kod jest umieszczony wewnątrz obiektu i ma określoną składnię. Na szczęście pisanie jest dość proste i nie potrzebujesz już żadnych umiejętności programistycznych.
Składnia MsgBox
MsgBox (tekst [, przycisk (i)] [, tytuł] [, plik pomocy, kontekst])
- Wiadomość (monit): to tekst zawierający wiadomość, którą chcesz przekazać użytkownikowi końcowemu.
- Tytuł: jest opcjonalny i pasuje do tekstu powiązanego z nazwą wiadomości. Pomocne może być podanie użytkownikowi linku prowadzącego do linku do wiadomości.
- Guziki: Jest to również opcjonalne i jeśli nie jest ustawione, przycisk Akceptuj będzie wyświetlany domyślnie. Niektóre ze stałych, które możesz skonfigurować dla przycisków to:
- Plik pomocy: to ciąg tekstowy, który zawiera lokalizację pliku pomocy powiązanego z wiadomością. Jest to opcjonalne, ale po zamontowaniu należy określić pudełko.
- Nagrywać: wartość liczbowa przypisana do tematu pomocy. Link do pliku pomocy.
Argument MsgBox
Istnieje kilka sposobów przypisania wartości do argumentu MsgBox. Prostym sposobem na to jest użycie stałej nazwy:
Private Sub CommandButton1_Click ()
text = „Czy chcesz zamknąć system?” „Wiadomość do użytkownika”
style = vb Yes No + vbCritical + vbDefaultButton2 typy typów przycisków
title = „MsgBox Test Message” 'tytuł wiadomości
help = „DEMO.HLP” 'określ plik pomocy
Ctxt = 1000 'Określa motyw środowiska.
Answer = MsgBox (Tekst, Styl, Tytuł, Pomoc, Ctxt) 'MsgBox wysłany do
If Answer = vbYes Then Jeśli użytkownik wybierze Yes
lbltexto.Caption = Podjęto działanie „Doskonałe”
W przeciwnym razie „Jeśli użytkownik nie wybierze”
lbltexto.Caption = Wiadomość tekstowa „Nic się nie dzieje”, która pojawia się, gdy użytkownik mówi „nie”
Wreszcie tak
Wreszcie sub
Poprzednie hasło przypisuje funkcję MsgBox do przycisku na formularzu ten Gdy użytkownik kliknie przycisk, pojawi się komunikat z pytaniem, czy chce wyjść z systemu za pomocą dwóch przycisków akcji (Tak i Nie), ikony wiadomości krytycznej.
Jeśli użytkownik odpowie, że na etykiecie pojawi się słowo „Doskonały”, a odpowiedź brzmi „Nie”, pojawi się komunikat „Nic się nie dzieje”.
Innym sposobem wyświetlenia argumentu MsgBox jest: wprowadź wartość każdej stałej lub dodaj wartości argumentów. Poprzednia forma jest prostsza, ponieważ pozwala na interpretację kodu gołym okiem.
Zwróć wartości z MsgBox
Ważne jest, aby określić, jaki rodzaj wartości jest powiązany z odpowiedzią użytkownika, a także nazwę stałej. W zależności od uzyskanej wartości a konkretne działanie może mieć wpływ ten Poniższy rysunek przedstawia wartości uzyskane po naciśnięciu przycisku MsgBox ten
Przykłady MsgBox
Tylko pierwszy argument (wiadomość do użytkownika) jest obowiązkowy, pozostałe są modyfikowalne i opcjonalne.
1. Wyślij prostą wiadomość do użytkownika
Subskrypcja prywatna btnbienvenida_Click ()
MsgBox „Witaj użytkowniku, witaj w systemie”
Wreszcie sub
Gdy wykonywana jest akcja przycisku, a wiadomość powitalna jest wysłana do użytkownika przycisk Akceptuj, który jest wyświetlany domyślnie.
2. Wyślij wiadomość do użytkownika za pomocą przycisków
Subskrypcja prywatna btncontinuar_Click ()
MsgBox „Czy chcesz kontynuować?”, VbYesNo + vbExclamation, „Kontynuuj system”
Wreszcie sub
Ten kod jest bardziej szczegółowy, gdy wiadomość jest prezentowana użytkownikowi, Przyciski „Tak” i „Nie” , ikonę wykrzyknika i tytuł „Kontynuuj system” są nagradzani ten