重要なお知らせ

「教えて! goo」は2025年9月17日(水)をもちまして、サービスを終了いたします。詳細はこちら＞

【GOLF me！】初月無料お試し

OKを押してもキャンセルを押しても、反応しない

解決済

  • 質問者：DHEWOZQGHJW
  • 質問日時：
  • 回答数：1件

このコード、どこが間違ってるか教えてもらえますか？

Sub test()
Dim ret As Variant

ret = InputBox("タイトルを入力してください。")

If TypeName(ret) = "Boolean" Then
MsgBox "キャンセルが選択されました"
End If

End Sub

これで、キャンセルボタンを押しても、メッセージボックスが表示されません。
間違えてる部分がわかりません。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

A 回答 (1件)

No.1ベストアンサー

  • 回答者： nicotinism
  • 回答日時：

Sub test2()


Dim ret As Variant

ret = InputBox("タイトルを入力してください。")
Debug.Print TypeName(ret) '←これを追加してイミディエイトウィンドウに何が出力されるか確認！
If TypeName(ret) = "Boolean" Then
'MsgBox "キャンセルが選択されました"
End If

End Sub

こちらもご覧あれ。
http://oshiete.goo.ne.jp/qa/7909190.html
    • good
    • 0
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2013/03/24 09:45

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報