EXCEL VBA IF…Then…Else..ElseIfの使い方

IF…Then…Elseの使い方

IF (条件式)　Then
　　　★条件式に一致する場合（処理）
　　Else
　　　▲条件式に一致しない場合（処理）
End　IF

IF　A = 10 Then
      A = A + 10
    Else
      A = A + 20
End If

IF A >= 70 Then
　　　　Msgbox”合格”
    Else
　　　　Msgbox”不合格”
End If

Sub iftest()

    Dim A As Long
    
    A = inputBox("数値を入力してください") '数値を入力します。
    
        If A >= 70 Then
            MsgBox "合格です。"    '入力した値に対して70以上は合格
        Else
            MsgBox "不合格です。"  '入力した値が70未満が不合格
        End If
    
End Sub

Sub Ifthen02()

Dim A As Long
    
    A = InputBox("数値を入力してください") '数値を入力します。
    
        If A >= 70 Then            'IF文①
            MsgBox "合格です。"    '入力した値に対して70以上は合格
        End If
        
        If A < 70 Then             'IF文②
            MsgBox "不合格です。"  '入力した値が70未満が不合格
        End If
    
End Sub

IF..Then..ElseIFの使い方　（複数条件）

Sub Elseif01()

    Dim temp As Long
    
    temp = InputBox("現在の気温を入力して下さい")
    
        If 35 < temp And temp <= 40 Then       '条件式：気温が36～40まで
            MsgBox "超暑いです！"
        
        ElseIf 30 < temp And temp <= 35 Then   '条件式：気温が31～35まで
            MsgBox "暑いです"
        
        ElseIf 20 < temp And temp <= 30 Then   '条件式：気温が21～30まで
            MsgBox "ちょうど良い気温です。"
        
        ElseIf 10 < temp And temp <= 20 Then   '条件式：気温が11～20まで
            MsgBox "やや寒いです。"
        
        ElseIf 0 <= temp And temp <= 10 Then    '条件式：気温が0～10まで
            MsgBox "寒いです。"
            
        Else
            MsgBox "気温は 0～40の間で数字を入力して下さい"
        
        End If
    
End Sub