Pokud pak prohlášení | Jinak prohlášení
Použijte If Then prohlášení v Excel VBA spustit řádky kódu, pokud je splněna konkrétní podmínka.
Pokud pak prohlášení
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
Dim skóre jako celé číslo, výsledek jako řetězec
skóre = Rozsah („A1“). Hodnota
Pokud je skóre> = 60, pak výsledek = "prospěl"
Rozsah („B1“). Hodnota = výsledek
Vysvětlení: Pokud je skóre větší než nebo rovno 60, Excel VBA vrátí vyhovující.
Výsledek po kliknutí na příkazové tlačítko na listu:
Poznámka: pokud je skóre menší než 60, Excel VBA umístí hodnotu výsledku prázdné proměnné do buňky B1.
Jinak prohlášení
Umístěte na list příkazové tlačítko a přidejte následující řádky kódu:
Dim skóre jako celé číslo, výsledek jako řetězec
skóre = Rozsah („A1“). Hodnota
Pokud je skóre> = 60 Potom
výsledek = "projít"
Jiný
výsledek = "selhání"
Konec If
Rozsah („B1“). Hodnota = výsledek
Vysvětlení: pokud je skóre větší než nebo rovné 60, Excel VBA vrátí vyhovující, jinak vrátí Excel VBA selhání.
Výsledek po kliknutí na příkazové tlačítko na listu:
Poznámka: pouze pokud máte jeden řádek kódu po Then a žádný příkaz Else, je povoleno umístit řádek kódu přímo za Then a vynechat (vynechat) End If (první příklad). Jinak začněte nový řádek za slovy Then a Else a ukončete End If (druhý příklad).