ten Funkcja MsgBox w Excel VBA może zwrócić wynik, podczas gdy zwykły MsgBox nie.
Sytuacja:
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
1. Najpierw deklarujemy zmienną o nazwie odpowiedź typu Integer.
Ciemna odpowiedź jako liczba całkowita
2. Używamy funkcji MsgBox, aby zainicjować zmienną odpowiedź danymi wejściowymi od użytkownika.
Funkcja MsgBox w przypadku używania nawiasów ma trzy argumenty. Pierwsza część jest używana do wiadomości w skrzynce wiadomości. Użyj drugiej części, aby określić, które przyciski i ikony mają pojawiać się w oknie komunikatu. Trzecia część jest wyświetlana na pasku tytułu okna wiadomości.
answer = MsgBox("Czy na pewno chcesz opróżnić arkusz?", vbYesNo + vbQuestion, "Opróżnij arkusz")
Uwaga: Umieść kursor na vbYesNo w Edytorze Visual Basic i kliknij F1, aby zobaczyć, jakich innych przycisków i ikon możesz użyć. Zamiast stałych vbYesNo i vbQuestion można również użyć odpowiednich wartości 4 i 32.
3. Jeśli użytkownik kliknie przycisk Tak, Excel VBA opróżni arkusz. Jeśli użytkownik kliknie przycisk Nie, nic się nie dzieje. Aby to osiągnąć, dodaj następujące wiersze kodu.
Jeśli odpowiedź = vbTak Wtedy
Komórki.WyczyśćZawartość
W przeciwnym razie
'nic nie robić
Zakończ, jeśli
4. Kliknij przycisk polecenia na arkuszu.
5. Kliknij Tak.
Wynik: