VBA～メッセージボックスを表示しよう～Excel

VBAでメッセージボックスを表示したい時はMsgBox関数を設定します。

下のコードを実行するとメッセージボックスに「ようこそ」と表示されます。

Sub test1()

MsgBox "ようこそ"

End Sub

はい、いいえボタンの設定

メッセージボックスに、はいボタンと、いいえボタンを表示したい時は定数vbYesNoを指定します。下のコードを実行し"いいえ"を選択した場合はIf文の条件式rc = vbNoをみたすのでIf文の処理のExit Subを実行しコードが終了します。"はい"を選択した場合はrc = vbNoの条件式を満たさないのでExit Subは実行せずに最後に書かれているRange("A1").Clearを実行しセルA1がクリアされます。

Sub test2()

rc = MsgBox("セルA1をクリアしますか?", vbYesNo)

If rc = vbNo Then

Exit Sub

End If

Range("A1").Clear

End Sub