Excel VBA質問箱 IV

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

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


5964 / 13645 ツリー ←次へ | 前へ→

【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でする方法も教えていただき感謝しています。
今後ともよろしくお願いします。
失礼します。

5964 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free