Excel VBA Pokud je prohlášení pokračováno

Použijte Pokud příkaz "Potom" v Excel VBA spouštět řádky kódu, pokud je splněna určitá podmínka.

Pokud je pak prohlášení

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then result = "pass"

Range("B1").Value = result

Vysvětlení: Pokud je skóre větší nebo rovné 60, Excel VBA vrátí průchod.

Výsledek po klepnutí na příkazové tlačítko na listu:

Excel VBA Pokud je prohlášení pokračováno

Poznámka: Pokud skóre je menší než 60, Excel VBA umístí hodnotu prázdného výsledku proměnné do buňky B1.

Jiný výrok

Umístěte na pracovní list příkazové tlačítko a přidejte následující řádky kódu:

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then
result = "pass"
Else
result = "fail"
End If

Range("B1").Value = result

Vysvětlení: Pokud skóre je větší nebo rovno 60, Excel VBA vrátí průchod, jinak vrátí Excel VBA selhání.

Výsledek po klepnutí na příkazové tlačítko na listu:

Poznámka: pouze v případě, že máte jednu řádku po příkazu Potom a žádný jiný příkaz, je povoleno umístit kódový řádek přímo po Potom a vynechat (ukončit) End If (první příklad). V opačném případě spusťte nový řádek po slovech Potom a Else a ukončete End If (druhý příklad).