よく使うんだけど、よくわすれる確認ウィンドウ。
確認ウィンドウ
リターンステータス=msgbox(“メッセージ”,ウィンドウステータス,”ウィンドウタイトル”)
Sub Sample()
Dim rc As Integer
rc = MsgBox("処理を行いますか?", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
MsgBox "処理を行います"
Else
MsgBox "処理を中断します"
End If
End Sub
ウィンドウステータス
定数 | 値 | 内容 |
vbOKOnly | 0 | [OK]ボタンのみを表示します |
vbOKCancel | 1 | [OK]ボタンと[キャンセル]ボタンを表示します |
vbAbortRetryIgnore | 2 | [中止]、[再試行]、および[無視]の3つのボタンを表示します |
vbYesNoCancel | 3 | [はい]、[いいえ]、および[キャンセル]の3つのボタンを表示します |
vbYesNo | 4 | [はい]ボタンと[いいえ]ボタンを表示します |
vbRetryCancel | 5 | [再試行]ボタンと[キャンセル]ボタンを表示します |
vbCritical | 16 | 警告メッセージアイコンを表示します |
vbQuestion | 32 | 問い合わせメッセージアイコンを表示します |
vbExclamation | 48 | 注意メッセージアイコンを表示します |
vbInformation | 64 | 情報メッセージアイコンを表示します |
vbDefaultButton1 | 0 | 第1ボタンを標準ボタンにします |
vbDefaultButton2 | 256 | 第2ボタンを標準ボタンにします |
vbDefaultButton3 | 512 | 第3ボタンを標準ボタンにします |
vbDefaultButton4 | 768 | 第4ボタンを標準ボタンにします |
vbApplicationModal | 0 | アプリケーションモーダルに設定します。メッセージボックスに応答するまで、現在選択中のアプリケーションの実行を継続できません |
vbSystemModal | 4096 | システムモーダルに設定します。メッセージボックスに応答するまで、すべてのアプリケーションが中断されます |
リターンステータス
定数 | 値 | 内容 |
vbOKOnly | 0 | [OK]ボタンのみを表示します |
vbOKCancel | 1 | [OK]ボタンと[キャンセル]ボタンを表示します |
vbAbortRetryIgnore | 2 | [中止]、[再試行]、および[無視]の3つのボタンを表示します |
vbYesNoCancel | 3 | [はい]、[いいえ]、および[キャンセル]の3つのボタンを表示します |
vbYesNo | 4 | [はい]ボタンと[いいえ]ボタンを表示します |
vbRetryCancel | 5 | [再試行]ボタンと[キャンセル]ボタンを表示します |
vbCritical | 16 | 警告メッセージアイコンを表示します |
vbQuestion | 32 | 問い合わせメッセージアイコンを表示します |
vbExclamation | 48 | 注意メッセージアイコンを表示します |
vbInformation | 64 | 情報メッセージアイコンを表示します |
vbDefaultButton1 | 0 | 第1ボタンを標準ボタンにします |
vbDefaultButton2 | 256 | 第2ボタンを標準ボタンにします |
vbDefaultButton3 | 512 | 第3ボタンを標準ボタンにします |
vbDefaultButton4 | 768 | 第4ボタンを標準ボタンにします |
vbApplicationModal | 0 | アプリケーションモーダルに設定します。メッセージボックスに応答するまで、現在選択中のアプリケーションの実行を継続できません |
vbSystemModal | 4096 | システムモーダルに設定します。メッセージボックスに応答するまで、すべてのアプリケーションが中断されます |