閉じる

削除処理時の確認メッセージ


    '削除確認

    Dim ret As Integer



    ret = MsgBox("削除します。元にはもどせません。" & Chr(13) & _

                    "よろしいですか？", vbYesNo + vbQuestion, "削除")

    If ret = vbNo Then

        '削除中止

        GoTo Exit_cmd削除

    End If



　’削除処理