Excel VBA質問箱 IV

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

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


34017 / 76734 ←次へ | 前へ→

【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

となります。

1 hits

【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 お礼

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