エクセルマクロでinputboxメソッドゼロ入力

エクセル２００７です。
以下のマクロで、inputboxメソッドで質問させると、キャンセルボタンを押すと、うまいぐあいに止まります。
しかし、０を押しても、止まってしまいます。本当は、Ｃ２にゼロと表示させたいのです。

Sub 練習()
Dim myR
myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1)
If myR = False Then Exit Sub
Range("C2").Value = myR
End Sub

No.2 ベストアンサー 回答者： cj_mover 回答日時： 2013/10/25 10:39

こんにちは。

Sub 練習()
　　Dim myR
　　myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1)
　　If VarType(myR) = vbBoolean Then Exit Sub
　　Range("C2").Value = myR
End Sub

Application.InputBox メソッドの場合は、
戻り値のデータ型で判別します。

この回答へのお礼

ありがとうございました。
望んでいたとおりになりました。心から御礼申し上げます。

お礼日時：2013/10/25 11:12

No.1 回答者： tom04 回答日時： 2013/10/25 10:33

こんにちは！

＞If myR = False Then Exit Sub
の部分を
＞If myR = "" Then Exit Sub
としてみてはどうでしょうか？
FALSE＝0　のコトですので、
何も変化なくマクロが終わってしまいます。

尚、質問のコードではインプットボックスタイプを
＞Type:=1
とされていらっしゃるので、

数値の場合がTRUE・文字列の場合はFALSEとなります。
というコトは
＞If myR = True Then Exit Sub
としても大丈夫だと思います。m(_ _)m

この回答へのお礼

ありがとうございました。

Sub 練習()
Dim myR
myR = Application.InputBox(prompt:="数量を入力しなさい", Type:=1)
If myR = "" Then Exit Sub
Range("C2").Value = myR
End Sub
にしたら、０を入力したらちゃんと０が出ましたが、キャンセルボタンを押すと、Ｃ２にfalseがでました。
falseが出るのは、うーむです。

お礼日時：2013/10/25 11:10