VBAでInputBoxの再入力をさせるには？

エクセルのVBAでInputBoxの間違えた入力をしてしまった時エラーが出てしまいます。

間違えた入力をした際、エラーではなく、再入力をさせるように促す処理をするにはどうしたらいいですか？

再入力システムにしたいのですが、できずに困っています。
わかる方がいましたら、教えていただけないでしょうか？
よろしくお願いいたします。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2011/10/21 15:09

#1です。

Sub test01()
p1:
x = InputBox("数字を入力")
If x = "" Then Exit Sub
If Not IsNumeric(x) Then
MsgBox "数字ではありません。再入力 "
GoTo p1
End If
If x > 10 Then '条件を書く
MsgBox "10以下を入力　再入力"
GoTo p1
End If
MsgBox x
'処理
End Sub

No.3 回答者： hallo-2007 回答日時： 2011/10/21 19:20

>再入力をさせるように促す処理をするにはどうしたらいいですか？

再入力よりも数値しか入力できない。
全角で数字を入力しても変換してくれると便利ですよね。
http://itpro.nikkeibp.co.jp/article/COLUMN/20070 …
が参考になると思います。
inputBoxではなく
Application.InputBox　を使います。

No.1 回答者： imogasi 回答日時： 2011/10/21 09:21

標準モジュールで

Sub test01()
p1:
x = InputBox("数字を入力")
If x > 10 Then '条件を書く
MsgBox "10以下を入力"
GoTo p1
End If
MsgBox x
'処理
End Sub
のようなことか。
ーーー
Goto文がイヤなら
Sub test02()
Do
x = InputBox("数字を入力")
Loop Until x <= 10
MsgBox x '確認
'処理
End Sub
Gotoを使わないコードは（後者）は、ほかに色々ある。

この回答へのお礼

ありがとうございます。
integer型にstring型を入れた場合のエラーはどう訂正すればよいですか？

お礼日時：2011/10/21 14:43