W tym artykule nauczymy się funkcji MsgBox w Excel VBA, Poniżej znajdują się ustawienia argumentów przycisków msgbox vba:
| Stały | Wartość | Opis |
| vbOKTylko | 0 | Wyświetl tylko przycisk OK. |
| vbOKAnuluj | 1 | Wyświetl przyciski OK i Anuluj. |
| vbAbortRetryIgnoruj | 2 | Wyświetl przyciski Przerwij, Ponów i Ignoruj. |
| vbTakNieAnuluj | 3 | Wyświetl przyciski Tak, Nie i Anuluj. |
| vbTakNie | 4 | Wyświetl przyciski Tak i Nie. |
| vbRetryAnuluj | 5 | Wyświetl przyciski Ponów i Anuluj. |
| vbKrytyczny | 16 | Wyświetl ikonę wiadomości krytycznej. |
| vbPytanie | 32 | Wyświetl ikonę zapytania ostrzegawczego. |
| vbWykrzyknik | 48 | Wyświetl ikonę komunikatu ostrzegawczego. |
| vbInformacje | 64 | Wyświetl ikonę wiadomości informacyjnej. |
| vbDefaultButton1 | 0 | Pierwszy przycisk jest domyślny. |
| vbDefaultButton2 | 256 | Drugi przycisk jest domyślny. |
| vbDefaultButton3 | 512 | Trzeci przycisk jest domyślny. |
| vbDefaultButton4 | 768 | Czwarty przycisk jest domyślny. |
| vbApplicationModal | 0 | Tryb aplikacji; użytkownik musi odpowiedzieć na okno komunikatu przed kontynuowaniem pracy w bieżącej aplikacji. |
| vbSystemModal | 4096 | system modalny; wszystkie aplikacje są zawieszone, dopóki użytkownik nie odpowie na okno komunikatu. |
| Przycisk pomocy vbMsgBox | 16384 | Dodaje przycisk Pomoc do okna wiadomości |
| VbMsgBoxSetPierwszy plan | 65536 | Określa okno okna wiadomości jako okno pierwszego planu |
| vbMsgBoxRight | 524288 | Tekst jest wyrównany do prawej |
| vbMsgBoxRtlReading | 1048576 | Określa, że tekst powinien być czytany od prawej do lewej w systemach hebrajskim i arabskim |
Zobaczmy, jak okno komunikatu vba może pomóc użytkownikowi w usunięciu całej zawartości komórek w bieżącym arkuszu.
Poniżej znajduje się migawka danych:
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Wstawmy przycisk polecenia
- Wprowadź następujący kod w bieżącym module arkusza roboczego:-
Opcja Wyraźna
Prywatna Sub CommandButton1_Click()
Ciemna odpowiedź jako liczba całkowita
answer = MsgBox("Czy chcesz usunąć wszystkie komórki w bieżącym arkuszu?", vbYesNo + vbQuestion, "Usuń wszystkie komórki")
Jeśli odpowiedź = vbTak Wtedy
Komórki.WyczyśćZawartość
W przeciwnym razie
'nic nie robić
Zakończ, jeśli
Napis końcowy
- Gdy klikniemy przycisk Polecenie, pojawi się następujący monit
- Kliknij przycisk Tak, aby usunąć wszystkie komórki.
- Wynik będzie następujący
W ten sposób możemy usunąć wszystkie komórki za pomocą przycisku polecenia w Excel VBA.
Pobierz-Pole wiadomości w Excel VBA