EXCEL VBAについて

Sub データ削除()
MsgBox "データを削除しますか？", vbOKCancel, "削除確認"
Range("C4:C15,E4:E7,G4:G11,I3,K3,I5,I7").ClearContents
End Sub

VBA初心者なのですが、上記コードだとvbOKCancelで
キャンセルした時もクリアになります。
キャンセルの時は何も処理をしないようコードを付け加えたいのですが
コードを教えて頂けませんでしょうか？

知識のある方、ご経験ある方の助言・アドバイスを頂きたく思います。
よろしくお願いいたします。

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/12/04 19:36

以下のようにしてください。

If MsgBox("データを削除しますか？", vbOKCancel, "削除確認") = vbOK Then
'OKの場合の処理
Else
'CANCELの場合の処理
End If

この回答へのお礼

早速の回答ありがとうございます。
キャンセルでもデータが消えず、うまく出来て、助かりました。
良い勉強になります。今後もよろしくお願いします。

お礼日時：2022/12/04 20:01

No.1 回答者： fujillin 回答日時： 2022/12/04 17:58

こんにちは

MsgBoxの戻り値で判定してください。

If MsgBox("データを削除しますか？", vbOKCancel, "削除確認") = 1 Then
　MsgBox "OKが押された"
End If

みたいな感じです。

この回答へのお礼

ご回答ありがとうございます。
やはり、キャンセル押すと全部消えます。

お礼日時：2022/12/04 18:32