Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4996 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【53199】InputBoxについて れおにゃん 07/12/19(水) 20:20 質問[未読]
【53200】Re:InputBoxについて りん 07/12/19(水) 20:28 回答[未読]
【53201】Re:InputBoxについて れおにゃん 07/12/19(水) 20:52 お礼[未読]
【53199】InputBoxについて
質問  れおにゃん  - 07/12/19(水) 20:20 -
引用なし
パスワード
   InputBoxでキャンセルボタンを押下したときと
未入力でOKボタンを押下した場合、
どちらもNULL("")が返ってきてしまいます。
If文で処理を別にしたいのですが、
同じ値が返ってしてしまうため判別が出来ません。

キャンセルボタン(入力値は任意)押下時と
空欄→OKボタン押下時を
区別するにはどのようにしたらよろしいのでしょうか？
【53200】Re:InputBoxについて
回答  りん E-MAIL  - 07/12/19(水) 20:28 -
引用なし
パスワード
   れおにゃん さん、こんばんわ。

>キャンセルボタン(入力値は任意)押下時と
>空欄→OKボタン押下時を
>区別するにはどのようにしたらよろしいのでしょうか？

InputBoxメソッドを使ってみてください。
Sub test()
　 Dim resp As Variant
　 resp = Application.InputBox("InputBox", "Title", "")
　 If TypeName(resp) = "Boolean" Then
　　　MsgBox "Cancel", vbExclamation
　 Else
　　　MsgBox resp, vbInformation
　 End If
End Sub

こんな感じです。
【53201】Re:InputBoxについて
お礼  れおにゃん  - 07/12/19(水) 20:52 -
引用なし
パスワード
   りんさん初めまして。
うまくいきました。
初歩的な質問に親切に回答して頂きまして
本当にありがとうございました。

▼りん さん：
>れおにゃん さん、こんばんわ。
>
>>キャンセルボタン(入力値は任意)押下時と
>>空欄→OKボタン押下時を
>>区別するにはどのようにしたらよろしいのでしょうか？
>
>InputBoxメソッドを使ってみてください。
>Sub test()
>　 Dim resp As Variant
>　 resp = Application.InputBox("InputBox", "Title", "")
>　 If TypeName(resp) = "Boolean" Then
>　　　MsgBox "Cancel", vbExclamation
>　 Else
>　　　MsgBox resp, vbInformation
>　 End If
>End Sub
>
>こんな感じです。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4996 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free