確認メッセージを出してOKの場合のみ実行する

2023年7月29日

Sub ExecuteIfConfirmed()
    ' 確認メッセージを表示します
    Dim confirmation As VbMsgBoxResult
    confirmation = MsgBox("実行しますか？", vbOKCancel + vbQuestion, "確認")

    ' ユーザーがOKをクリックした場合のみコードを実行します
    If confirmation = vbOK Then
        
        MsgBox "コードを実行します！"
        
    Else
        
        MsgBox "実行をキャンセルしました。"
        
    End If
End Sub