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