YMLib - Excel VBA

MsgBox

2018/02/08

MsgBoxを使ってみます。

◆環境

OS	Windows 7 Professional Service Pack 1 64bit
VBA	7.1

MsgBoxを表示し、「はい」と「いいえ」で処理を分岐するようにします。

MsgBoxTest.xlsm

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Sub MsgBoxTest()

    Dim ret As Long

    ret = MsgBox("続行しますか？" _
                , vbYesNo _
                , "タイトル" _
                )
    If ret = vbYes Then
        MsgBox "続行"
    Else
        MsgBox "終了"
    End If

End Sub

マクロの実行で「MsgBoxTest」を実行します。

「はい」を押します。

「続行」が表示されました。

「いいえ」を押したら「終了」が表示されました。

▲ PageTop ■ Home