10000以上30000未満の表現の仕方

質問

単純なことかもしれませんが、表題の表現方法がわかりません。
10000以上30000未満の場合、変数Aに1を
30000以上100000未満の場合、変数Aに2を
代入したいのですが、If ～ Then の間にどのように比較演算子を入れればうまくいくのでしょうか。
コードを教えていただければ助かります。

回答No.2

imogasi

IF THENは回答済みなので、Case文で
Sub test01()
p01:
n = InputBox("n=")
Select Case n
Case Is >= 100000
MsgBox "3"
Case Is >= 30000
A = 2
MsgBox "2"
Case Is >= 10000
A = 1
MsgBox "1"
Case Else
MsgBox "0"
End Select
GoTo p01
End Sub

回答No.1

MovingWalk

こんな感じでどうですか？

if 10000<=X and X<30000 then
A=1
else if 30000<=X and X<100000 then
A=2
endif

お礼

エラーになりましたが、修正して解決しました。
有り難うございました。