【VBA】メッセージボックスの種類

サンプルプログラム概要

・「はい/いいえ」と「?」を表示する
・「いいえ」が選択された場合は「OK」と「!」を表示し、処理を終了する
・ウィンドウタイトルは「確認」にする

サンプルプログラム

Sub sample()

    Dim msgBoxResult As Integer
     
    msgBoxResult = MsgBox("フォルダ/ファイルを削除しますよろしいですか?", _
                           vbYesNo + vbQuestion, "確認")
    If msgBoxResult = vbNo Then
        MsgBox "処理を中止します", _
                vbOKOnly + vbInformation, "確認"
        Exit Sub
    End If
    
    MsgBox "完了しました!", vbOKOnly + vbInformation, "確認"
End Sub

実行結果




タイトルとURLをコピーしました