VBAのOrで複数の条件を組み合わせる方法をわかりやすく解説

Sub CheckOrCondition()
    Dim userInput As String
    userInput = InputBox("値を入力してください（OK または Yes）")
    
    If userInput = "OK" Or userInput = "Yes" Then
        MsgBox "入力が有効です。", vbInformation, "Orの例"
    Else
        MsgBox "無効な入力です。"
    End If
End Sub

Sub CheckCellValue()
    Dim cellValue As String
    cellValue = Range("A1").Value
    
    If cellValue = "Apple" Or cellValue = "Banana" Then
        MsgBox "A1セルには果物が入力されています。", vbInformation, "セルチェック"
    End If
End Sub

Sub LoopWithOr()
    Dim i As Integer
    i = 1
    
    Do While i <= 10 Or i = 0
        Debug.Print "i の値: " & i
        i = i + 1
    Loop
End Sub

Sub BitwiseOrExample()
    Dim a As Integer, b As Integer, result As Integer
    a = 5  ' 5 = 00000101 (2進数)
    b = 3  ' 3 = 00000011 (2進数)
    
    result = a Or b ' ビット単位のOR演算
    
    MsgBox "ビット演算の結果: " & result, vbInformation, "Or演算"
End Sub

Sub SafeOrUsage()
    Dim num As Variant
    num = Null ' Null値を設定
    
    On Error Resume Next
    If num = 5 Or num = 10 Then
        MsgBox "条件を満たしました。"
    Else
        MsgBox "条件を満たしていません。"
    End If
    
    If Err.Number <> 0 Then
        MsgBox "エラー発生: " & Err.Description, vbExclamation, "エラー"
        Err.Clear
    End If
End Sub