VBAのinputboxで何もいれずに[OK]を押した時エラーになります

質問

よろしくお願い致します。
EXCELのVBAで「inputbox」を使ってセルを選択させたいと考えております。

下記のコードだと「キャンセル」や「×」で閉じられた時はmsgbox「キャンセル」が出てExit subするのですが、何も入力しないで「OK」を押した場合がどうしてもエラー（入力した数式は正しくありません）になります。

いろいろ調べて試したのですがどうしてもできず困っています。
どなたか教えてください。

Sub test()
Dim myAns As Range
On Error Resume Next
Set myAns = Application.InputBox(Prompt:="セルを選択してください。", Title:="セル選択", Type:=8)
On Error GoTo 0

If myAns Is Nothing Then
MsgBox "キャンセル"
Exit Sub
ElseIf myAns = "" Then
MsgBox "最低１つは選択してください"
Exit Sub
Else
MsgBox myAns.Address(0, 0)
End If
End sub

回答No.2

nda23 · ベストアンサー

テキスト形式で受け取っては？

Dim myAns As Range
Dim Txt
Txt = Application.InputBox(～, Type:=2)
If Txt = False Then
　　MsgBox "キャンセル"
　　Exit Sub
End If
If Txt = "" Then
　　MsgBox "最低１つは選択してください"
　　Exit Sub
End If
Dim Ecode As Long
On Error Resume Next
Set myAns = Range(Txt)
Ecode = Err.Number
On Error GoTo 0
If Ecode <> vbNormal Then
　　MsgBox "セルの指定が間違っています"
　　Exit Sub
End If
MsgBox myAns.Address(0, 0)

お礼

さっそくの回答ありがとうございます。

できました～～～！
ずーと解決できずに悩んでいたので本当にうれしいです。
感謝です。
ありがとうございました。

回答No.1

nda23

InputBoxのType:=8はそういう仕様なんです。
セルを選択する書式を入れるか、止めるかしかないのです。
空欄でOKとは何を意味していますか？何を期待しているんですか？
単に「止める」ならキャンセルボタンがあるので、用は足りていると
思いますが・・・

お礼

さっそく回答いただきありがとうございます。

>InputBoxのType:=8はそういう仕様なんです。
そうなんですか・・・残念です。

>空欄でOKとは何を意味していますか？何を期待しているんですか？
私が使うのでなく、複数で使うため、そのようにしてしまう人がいるかと思い、せめてメッセージでも出せたらなと思った次第です。
すいません。

「入力した数式は正しくありません」のエラーメッセージが出ればわかるかもしれませんね。