Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5984 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【47929】MsgBoxの使い方 Toshi 07/3/27(火) 7:39 質問[未読]
【47932】Re:MsgBoxの使い方 Blue 07/3/27(火) 8:39 回答[未読]
【47954】Re:MsgBoxの使い方 Toshi 07/3/27(火) 21:01 お礼[未読]
【47929】MsgBoxの使い方
質問  Toshi  - 07/3/27(火) 7:39 -
引用なし
パスワード
   MsgBoxの後三者選択したいと思いますが？
どのようなコードを書けばよいのでしょう。
下のコードではNoとCancelが同じ反応を示しますが、どのようにすればよいのでしょうか。教えてください。

MsgBox "***しますか？", vbYesNoCancel
’の三者選択をしたいのですが･･･
If vbNo Then Exit For
If vbCancel Then GoTo Eline
　　　　:
Eline: ***
【47932】Re:MsgBoxの使い方
回答  Blue  - 07/3/27(火) 8:39 -
引用なし
パスワード
   MsgBox関数の戻り値を見ないと意味ないです。

Select Caseを使うと

Sub test()
　　Select Case MsgBox("TEST", vbYesNoCancel)
　　Case vbYes
　　　　MsgBox "YES"
　　Case vbNo
　　　　MsgBox "NO"
　　Case vbCancel
　　　　MsgBox "CANCEL"
　　End Select
End Sub

てな感じ。
戻り値を変数に取っておく場合は

Sub test()
　　Dim ret As VbMsgBoxResult
　　ret = MsgBox("TEST", vbYesNoCancel)
　　If ret = vbYes Then
　　　　MsgBox "YES"
　　ElseIf ret = vbNo Then
　　　　MsgBox "NO"
　　Else
　　　　MsgBox "CANCEL"
　　End If
End Sub

となります。
【47954】Re:MsgBoxの使い方
お礼  Toshi  - 07/3/27(火) 21:01 -
引用なし
パスワード
   ▼Blue さん：

今晩は、早速ご解答有難うございました。
MsgBox関数の戻り値が必要なことを理解しました。
またSelectCaseでする方法も教えていただき感謝しています。
今後ともよろしくお願いします。
失礼します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5984 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free