/ / "Excel" VBA "If Then" ataskaita

"Excel VBA If Then Statement"

Jei Tada pareiškimas | Kitas pareiškimas

Naudoti Jei Tada pareiškimas in Excel VBA vykdyti kodo eilutes, jei įvykdyta konkreti sąlyga.

Jei Tada pareiškimas

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:

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

If score >= 60 Then result = "pass"

Range("B1").Value = result

Paaiškinimas: jei balas yra didesnis arba lygus 60, Excel VBA grąžina praeiti.

Rezultatas spustelėjus komandą mygtuką ant lapo:

"Excel VBA If Then Statement"

Pastaba: jei balas yra mažesnis nei 60, "Excel VBA" pateikia tuščio kintamojo rezultato vertę į langelį B1.

Kitas pareiškimas

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:

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

Paaiškinimas: jei balas yra didesnis arba lygus 60, "Excel VBA" grąžina praeiti, kitaip "Excel VBA" sugrįš nepavyks.

Rezultatas spustelėjus komandą mygtuką ant lapo:

Excel VBA Else pareiškimas

Pastaba: tik tada, kai turite po vieną kodo eilutę po Tolesnio ir jokio kito teiginio, leidžiama tiesiai į kodinę eilutę įdėti po "Tada" ir praleisti (išbraukti). "Baigti" (pirmasis pavyzdys). Priešingu atveju paleiskite naują eilutę po žodžių Tada ir kt. Ir pasibaigsite "End If" (antrasis pavyzdys).

Taip pat perskaitykite: