Sub 値が指定範囲以上なのか判定する() 判定対象 = Range("A1") If 判定対象 >= 10 Then MsgBox "10以上です" Else MsgBox "10未満です" End If End Sub