フォームからボタンをクリックさせて次の処理に移させるときに,本当に実行して良いかどうかMsgBoxで再確認させたいときに用いるコードです。
1 2 3 4 5 6 7 8 9 10 11 12 |
Private Sub CommandButton1_Click() If MsgBox("○○しますか?", vbYesNo + vbQuestion, _ "タイトル") = vbYes Then ' '実行する処理を記述 ' End If End Sub |
上図のようにMsgBoxのフォームで「はい」が押されたときのみ処理を実行するように記載します。