ElseIf ile Çoklu Şart Zincirleri

Zincirleme Şartlar

Şartlar art arda geliyorsa ElseIf ile uzatabiliriz. Program yukarıdan aşağı ilk doğru şartı bulur ve çıkar.

VBA Kodu:

Sub HarfNotu()
    Dim puan As Integer: puan = 85
    If puan >= 90 Then
        MsgBox "AA"
    ElseIf puan >= 80 Then
        MsgBox "BA"
    Else
        MsgBox "FF"
    End If
End Sub

Ne Göreceksiniz? Puan 85 olduğu için ilk şarta (90) uymayacak, ikinci şarta takılıp ekrana "BA" yazdıracaktır.