VBAで処理開始前の確認メッセージを出す

988 ワード
VBA メッセージボックス Excel マクロ Excel テキストリンク

メッセージボックスで処理を開始していいか確認する

ボタンを押したらすぐ処理が始まるのではなく
確認メッセージを表示して、本当に開始するかやっぱり辞めるか選択させる。


sub 処理開始ボタン_Click()
  If MsgBox("処理開始しますか？", vbYesNo + vbQuestion, "確認") = vbYes Then

    Call 実際の処理  '「はい」を選んだ場合は処理開始
    MsgBox "処理が終了しました"  '終了時メッセージ

  Else
    MsgBox "処理をキャンセルします"  '「いいえ」を選んだ場合はキャンセルメッセージ
  End If
End Sub

確認メッセージ

Noを押したときのメッセージ

ワタシ流こだわり

実際の処理は別に書いてCallで呼び出す