Instrukcja If Then | Inne oświadczenie
Użyj Stwierdzenie If Then w Excel VBA do wykonania linii kodu, jeśli zostanie spełniony określony warunek.
Jeśli to oświadczenie
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
Wynik Dim As Integer, wynik As String
wynik = Zakres("A1").Wartość
Jeśli wynik >= 60, to wynik = „zaliczono”
Zakres("B1").Wartość = wynik
Wyjaśnienie: jeśli wynik jest większy lub równy 60, Excel VBA zwraca pass.
Wynik po kliknięciu przycisku polecenia na arkuszu:
Uwaga: jeśli wynik jest mniejszy niż 60, Excel VBA umieszcza wartość pustego wyniku zmiennej w komórce B1.
Inne oświadczenie
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
Wynik Dim As Integer, wynik As String
wynik = Zakres("A1").Wartość
Jeśli wynik >= 60 Wtedy
wynik = "zaliczenie"
W przeciwnym razie
wynik = "niepowodzenie"
Zakończ, jeśli
Zakres("B1").Wartość = wynik
Wyjaśnienie: jeśli wynik jest większy lub równy 60, Excel VBA zwraca zaliczenie, w przeciwnym razie Excel VBA zwraca niepowodzenie.
Wynik po kliknięciu przycisku polecenia na arkuszu:
Uwaga: tylko jeśli masz jedną linię kodu po instrukcji Then i nie Else, dozwolone jest umieszczenie linii kodu bezpośrednio po instrukcji Then i pominięcie (pominięcie) End If (pierwszy przykład). W przeciwnym razie zacznij nowy wiersz po słowach Then i Else i zakończ na End If (drugi przykład).
