EXCEL VBA Msgboxの使い方　（メッセージボックス・基礎編）

Msgboxの使い方

Msgboxの使い方（表示例）

Sub msgTest()
    MsgBox "こんにちは!"
End Sub

Msgboxの使い方（表示例２）

Sub msgTest2()

    Dim Ten As Long '変数を定義 
    Ten = 100      'Tenに100を代入する
    MsgBox "あなたの点数は" & Ten & "です"

End Sub

Msgboxの使い方（表示例３：Yes/No判定）

Sub msgTest3()
    Dim Hantei As Integer '変数を定義
    
    Hantei = MsgBox("Yes/Noどちらのボタンを押しますか？", vbYesNo)
    
    If Hantei = vbYes Then
        MsgBox "Yesボタンを押しました"
        'Yesボタンを押した場合の処理をする
    Else
        MsgBox "Noボタンを押しました"
        'Noボタンを押した場合の処理をする
    End If

End Sub

Msgboxの定数　：MsgBoX（Prompt,Buttons,Title）

●上記表を実行するプログラムは、下記の通りです。

Sub msgbox_sample()

    MsgBox "処理を実行しますか？", vbOKOnly
    
    MsgBox "処理を実行しますか？", vbOKCancel
    
    MsgBox "処理を実行しますか？", vbAbortRetryIgnore
    
    MsgBox "処理を実行しますか？", vbYesNoCancel
    
    MsgBox "処理を実行しますか？", vbYesNo
    
    MsgBox "処理を実行しますか？", vbRetryCancel
    

End Sub

Msgboxボタンの戻り値　（選択した戻り値）

●下記のプログラムは、押したボタンを戻り値で判断して説明していますが、「定数：vbOK」でも同じ事になります。

Sub msgbox_sample2()

    Dim RetMsg As Integer
    
    '---------------- OK の場合---------------------------------

    RetMsg = MsgBox("処理を実行しますか？", vbOKOnly)
    
    If RetMsg = 1 Then
        MsgBox "「OK」ボタンが押されました"
    End If
    
    '---------------- OK・キャンセルの場合----------------------
    
    RetMsg = MsgBox("処理を実行しますか？", vbOKCancel)
    
    If RetMsg = 1 Then
       MsgBox "「OK」ボタンが押されました"
    ElseIf RetMsg = 2 Then
       MsgBox "「キャンセル」ボタンが押されました"
    Else
       MsgBox "その他ボタンが押されました"
    End If
    
    '---------------- 中止・再試行・無視の場合------------------
    
    RetMsg = MsgBox("処理を実行しますか？", vbAbortRetryIgnore)
    
    If RetMsg = 3 Then
       MsgBox "「中止」ボタンが押されました"
    ElseIf RetMsg = 4 Then
       MsgBox "「再試行」ボタンが押されました"
    ElseIf RetMsg = 5 Then
       MsgBox "「無視」ボタンが押されました"
    Else
       MsgBox "その他ボタンが押されました"
    End If
    
    '---------------- はい・いいえ・キャンセルの場合-----------
    
    RetMsg = MsgBox("処理を実行しますか？", vbYesNoCancel)
    
    If RetMsg = 6 Then
       MsgBox "「はい」ボタンが押されました"
    ElseIf RetMsg = 7 Then
       MsgBox "「いいえ」ボタンが押されました"
    ElseIf RetMsg = 2 Then
       MsgBox "「キャンセルボタン」が押されました"
    Else
       MsgBox "その他ボタンが押されました"
    End If
    
    '---------------- はい・いいえの場合----------------------
    
    RetMsg = MsgBox("処理を実行しますか？", vbYesNo)
    
    If RetMsg = 6 Then
       MsgBox "「はい」ボタンが押されました"
    ElseIf RetMsg = 7 Then
       MsgBox "「いいえ」ボタンが押されました"
    Else
       MsgBox "その他ボタンが押されました"
    End If
    
    '--------------- 再試行・キャンセルの場合-----------------
    
    
    RetMsg = MsgBox("処理を実行しますか？", vbRetryCancel)
    
   If RetMsg = 4 Then
       MsgBox "「再試行」ボタンが押されました"
    ElseIf RetMsg = 2 Then
       MsgBox "「キャンセル」ボタンが押されました"
    Else
       MsgBox "その他ボタンが押されました"
    End If
    

End Sub