Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34090 / 76807

←次へ　｜　前へ→


	【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

となります。

0 hits

▼

【47929】MsgBoxの使い方 Toshi 07/3/27(火) 7:39