VBA メッセージボックス (MsgBox) の使い方：改行・変数表示・Yes/Noでの分岐解説

「VBAで、メッセージボックスを表示したいけど、どうやって表示すればいいんだろう…」
そんな疑問を持っていませんか？

・ユーザーに情報を伝えるためのメッセージを簡単に表示したい

・プログラムの流れに応じて、ユーザーからの入力を求めたい

・VBA初心者だけどMsgBox (メッセージボックス)を使いたい

その場合は、VBAの「MsgBox (メッセージボックス)」を
使用すると解決します！

この記事では、VBAの「MsgBox (メッセージボックス)」を使ってメッセージを表示したり、ユーザーからの入力を求める方法を詳しく解説します。

「MsgBox (メッセージボックス)」を使うことで、Excel VBAでのユーザーインタラクションがスムーズになり、プログラムの実行を制御することができます。

使用例もすべてコピペして実行できるので、ぜひ最後までご覧いただき、実践してみてください。

【　この記事の概要　】

この記事を読むと「できるようになる」こと

この記事を読むことで、以下のことができるようになります。

VBA MsgBox (メッセージボックス) は、どんなことができる？

MsgBox (メッセージボックス) は、Excel VBAでメッセージの表示やユーザーの入力を求めるために使われるダイアログボックスです。

VBA メッセージボックスを使うことで、以下のような多くの機能を実現できます。

MsgBox (メッセージボックス)で出来ること

MsgBox (メッセージボックス)の基本構文と設定方法

VBAでMsgBox (メッセージボックス)を使う際の基本構文は以下の通りです。

より詳しい情報は、Microsoft公式のMsgBox 関数を参照してください。

prompt (必須)の設定方法について

VBAのMsgBox (メッセージボックス)で表示するメッセージは必ず指定する必要があります。

その記載方法について紹介します。

シンプルなメッセージを表示する方法

MsgBox (メッセージボックス)で表示するメッセージは、必ず指定する必要があります。

通常のメッセージを表示する場合、単純に文字列を指定します。

以下のコードは、シンプルなメッセージを表示する例です。

Sub ShowSimpleMessage()
    MsgBox "これはシンプルなメッセージです"
End Sub

このコードを実行すると、「これはシンプルなメッセージです」というテキストがメッセージボックスに表示されます。

これはMsgBoxの最も基本的な使用例となります。

複数の変数を使ったメッセージの表示

また、MsgBox (メッセージボックス)では、複数の変数を結合して表示することもできます。

例えば、以下のコードでは2つの変数 (文字列)を結合してメッセージを作成しています。

Sub ShowConcatenatedMessage()
    Dim part1 As String
    Dim part2 As String
    
    part1 = "こんにちは、"
    part2 = "MsgBoxのテストテキストです！"
    
    MsgBox part1 & part2
End Sub

このコードでは、「こんにちは、MsgBoxのテストテキストです！」というメッセージが表示されます。

MsgBoxでは、このように変数を使用して、プログラム中の様々なデータをメッセージに組み込むこともできます。

メッセージで改行を入れる方法

MsgBox (メッセージボックス)でメッセージを記述する際に、複数行にわたってメッセージを表示したい場合は、改行コード「vbCrLf」を使用します。

※「vbCrLf」は、VBAで改行を挿入するための定数で、「キャリッジリターン（Cr）」と「ラインフィード（Lf）」を組み合わせたものです。
これにより、メッセージボックスやテキストに改行を挿入することができます。

Sub ShowMessageWithLineBreak()
    MsgBox "行1" & vbCrLf & "行2" & vbCrLf & "行3"
End Sub

このコードは、MsgBoxに「行1」「行2」「行3」が、それぞれ改行された状態で表示されます。

MsgBoxでは、このように「vbCrLf」を使うことで、長いメッセージを読みやすくすることが可能です。

buttons (省略可能) の設定方法について

VBAのMsgBox (メッセージボックス)では、引数の「buttons (省略可能)」を設定して、以下の通り「選択ボタンの種類」や「アイコンの種類」及び「デフォルトボタンの設定 (初期でEnterキーを押したときに動作するボタン)」を設定することができます。

buttons (省略可能)の使用例をご紹介

まずは、「buttons (省略可能)」を使用したサンプルコードを見てみましょう。

Sub buttons_test()
    Dim userResponse As VbMsgBoxResult
    userResponse = MsgBox("サンプル", vbYesNoCancel + vbInformation + vbDefaultButton2)
End Sub

このコードでは、「はい」「いいえ」「キャンセル」ボタンと情報アイコンが表示されるメッセージボックスを作成します。

それでは、「buttons (省略可能)」の設定方法について、詳しく見ていきましょう。

「選択ボタン」の種類について解説

MsgBox (メッセージボックス)では、以下の定数を使ってボタンの種類を設定できます。
例えば、「OK」ボタンや「はい(Y)／いいえ(N)」などを指定できます。

定数	ボタンの種類	値	説明
vbOKOnly		0	[OK] ボタンを表示する（デフォルト）
vbOKCancel		1	[OK] ボタンと [キャンセル] ボタンを表示
vbAbortRetryIgnore		2	[中止] ボタン、[再試行] ボタン、 [無視] ボタンを表示
vbYesNoCancel		3	[はい] ボタン、[いいえ] ボタン、 [キャンセル] ボタンを表示
vbYesNo		4	[はい] ボタンと [いいえ] ボタンを 表示
vbRetryCancel		5	[再試行] ボタンと [キャンセル] ボタンを表示

これらの定数を組み合わせて、MsgBoxのボタンをカスタマイズすることができます。

「アイコン」の種類について解説

MsgBox (メッセージボックス)では、メッセージの左側に表示できる「アイコン」を設定することも可能です。
以下の定数を使用して、適切なアイコンを選べます。

定数	アイコン	値	説明
vbCritical		16	警告メッセージのアイコンを表示
vbQuestion		32	質問メッセージのアイコンを表示
vbExclamation		48	警告メッセージのアイコンを表示
vbInformation		64	情報メッセージのアイコンを表示

このように、MsgBoxのアイコンを使うと、ユーザーにメッセージの内容を視覚的に伝えやすくなります。

「デフォルトボタン」の設定方法について解説

MsgBox (メッセージボックス)が表示された際に「選択ボタン」が、デフォルトでどのボタンを選択されているか？を選択することができます。

このデフォルトボタンを設定することで、ユーザーが初期でEnterキーを押したときに動作するボタンを設定することができます。

title (省略可能) の設定方法について

VBAのMsgBox (メッセージボックス)では、title引数を使ってメッセージボックスのタイトルバーに表示される文字列を指定します。

省略した場合、デフォルトで「Microsoft Excel」と表示されます。
ユーザーにメッセージの内容をわかりやすく伝えるために、適切なタイトルを設定することをお勧めします。

title引数の設定例

以下のコードでは、MsgBoxに「カスタムタイトル」を表示する例を示します。

Sub TitleExample()
    MsgBox "これはメッセージです", , "カスタムタイトル"
End Sub

このコードを実行すると、メッセージボックスのタイトルバーに「カスタムタイトル」と表示されます。
MsgBoxのタイトルを設定することで、メッセージの内容に合わせたタイトルを表示することが可能です。

helpfile 省略可能の設定方法について

VBAのMsgBox (メッセージボックス)には、helpfile引数を使ってヘルプファイルを指定することができます。

この引数を使用すると、メッセージボックスに「ヘルプ」ボタンが表示され、ユーザーがそのボタンをクリックすると指定されたヘルプファイル（通常は .chm ファイル）が開きます。

ただし、「helpfile 引数」 および「context 引数」は、現在のVBAプロジェクトではほとんど使用されません。
また、ヘルプファイルが正しく配置されていないと、ヘルプボタンが機能しないため、実際に利用する際には注意が必要です。

helpfileの設定例

以下は、MsgBoxにヘルプボタンを表示し、特定のヘルプファイルを開くためのコード例です。

Sub HelpFileExample()
    MsgBox "詳細はヘルプをご覧ください", vbOKOnly, "ヘルプメッセージ", "C:\Path\To\HelpFile.chm", 1
End Sub

このコードでは、メッセージボックスに「ヘルプ」ボタンが表示され、クリックすると指定されたヘルプファイルが開きます。
しかし、現在のプロジェクトでは .chm ファイルを使用する機会が少なく、この機能を利用するケースは稀です。
適切なヘルプファイルがない場合、この機能は動作しません。

context 省略可能の設定方法について

VBAのMsgBox (メッセージボックス)では、context引数を使ってヘルプファイルの特定トピックにジャンプすることができます。
これにより、ユーザーが「ヘルプ」ボタンをクリックした際に、指定したトピック番号に直接アクセスできます。

ただし、context引数やhelpfile引数は現在のVBAプロジェクトではほとんど使用されません。
また、指定したヘルプファイルが存在しない場合、この機能は動作しません。

contextの設定例

以下のコードは、MsgBoxのcontext引数を使用して、ヘルプファイル内の特定セクションにジャンプする例です。

Sub ContextExample()
    MsgBox "詳細はヘルプをご覧ください", vbOKOnly, "ヘルプメッセージ", "C:\Path\To\HelpFile.chm", 100
End Sub

このコードでは、メッセージボックスに指定されたトピック番号（100）が関連付けられており、ヘルプファイル内の該当セクションが開かれるようになっています。
しかし、現在のプロジェクトでこの機能を使うことはほとんどなく、適切なヘルプファイルとトピックが存在しない場合、この機能は期待通りに動作しません。

MsgBox (メッセージボックス)で変数を使用し条件分岐をする方法

VBAのMsgBox (メッセージボックス)では、ユーザーの選択に応じて処理を分岐させる「条件分岐」を行うことができます。

たとえば、「はい」「いいえ」の選択肢を提示し、ユーザーが「はい」を選択した場合は処理を続行し、「いいえ」を選択した場合は処理を中止する、といった条件分岐を簡単に実現できます。

条件分岐の具体的なコード例

以下のコードは、MsgBoxでユーザーの選択に基づいて処理を分岐させる例です。

Sub DisplayUserChoice()
    Dim userResponse As VbMsgBoxResult

    userResponse = MsgBox("処理を続行しますか？", vbYesNo + vbQuestion, "確認")

    If userResponse = vbYes Then
        MsgBox "処理を続行します。"
        '// 処理を続けるコードをここに記述
    Else
        MsgBox "処理を中止しました。"
        '// 処理を中止するコードをここに記述
    End If
End Sub

このコードでは、ユーザーが「はい」を選択した場合は処理が続行され、「いいえ」を選択した場合は処理が中止されます。

MsgBox関数は、ユーザーの選択結果を「VbMsgBoxResult型」の変数に格納し、その結果に基づいて処理を分岐させています。

注釈: 変数に使用されている「VbMsgBoxResult型」は、MsgBox関数の戻り値として定義される型で、ユーザーが選択したボタンに応じた数値を格納します。この数値を使って処理を分岐させることができます。

前の例では「vbYes」を条件として使用しましたが、「数値」でも同様に条件を設定することが可能です。
次の見出しで、MsgBoxでユーザーが選択した結果がどのような数値で返されるかを解説します。

ユーザーの選択結果を数値として変数に格納する場合

VBA メッセージボックス (MsgBox)では、ユーザーの選択結果を数値として判定することも可能です。

先ほどの例では「vbYes」を使いましたが、MsgBoxが返す結果を数値で判断することで、より柔軟な条件分岐を行えます。

通常、「VbMsgBoxResult型」を使用して結果を処理しますが、必要に応じて「数値型（Number型）」で扱うことも可能です。

以下のように、選択結果を数値で判断することで、条件分岐を行うことができます。

Sub CheckUserChoice()
    Dim result As Integer
    
    result = MsgBox("処理を続行しますか？", vbYesNo + vbQuestion, "確認")

    If result = 6 Then ' 6 は vbYes に対応
        MsgBox "処理を続行します。"
    ElseIf result = 7 Then ' 7 は vbNo に対応
        MsgBox "処理を中止しました。"
    End If
End Sub

この例では、MsgBoxの選択結果を数値で判定しています

ただし、「VbMsgBoxResult型」を使うほうがコードの可読性が高く、エラーを防ぎやすいため、通常は定数を使う方法がおすすめです。

MsgBox (メッセージボックス)がよく使用される場面

MsgBox (メッセージボックス)はユーザーへのメッセージ表示や選択肢を求めるために頻繁に使われます。

以下のようなシーンで活用されています。

ユーザーの確認と条件分岐が必要な場面

ユーザーに確認を求める際には、メッセージボックスで「Yes/No」や「OK」ボタンを表示して、選択に応じた処理を行うことができます。
特に、「データ削除」のような重要な操作では、MsgBoxの条件分岐を使うことで、安全なデータ操作が可能です。

例えば、「データ削除」の前にユーザーの確認を求める場合のコードは以下の通りです。

Sub ConfirmDeletion()
    Dim userResponse As VbMsgBoxResult

    userResponse = MsgBox("本当にデータを削除しますか？", vbYesNo + vbExclamation, "確認")

    If userResponse = vbYes Then
        MsgBox "データを削除しました。"
        '// データ削除のコードをここに記述
    Else
        MsgBox "削除をキャンセルしました。"
        '// キャンセル処理のコードをここに記述
    End If
End Sub

このコードでは、「はい (Y）」と「いいえ (N）」の選択肢を提示し、ユーザーの選択に基づいて処理を分岐させます。

MsgBoxを使った条件分岐によって、ユーザーに選択を促し、データ操作をより安全に行うことができます。

処理が完了した際の通知

処理が完了したことをユーザーに通知するために、メッセージボックスを使うこともあります。

これは、単純にユーザーにメッセージを伝えるためのものです。

Sub NotifyCompletion()
    MsgBox "処理が完了しました。", vbInformation, "完了"
End Sub

このように、MsgBoxのアイコンを設定することで、情報をわかりやすく伝えることができます。
上記の例では、情報アイコンを付加して処理完了を通知しています。

MsgBox (メッセージボックス)を使用する際の注意ポイント

MsgBox (メッセージボックス)を使用する際には、いくつかの注意ポイントがあります。
これらを意識することで、予期せぬトラブルを避けることができます。

MsgBox (メッセージボックス)を使用方法をご紹介

ここからは、Msgbox (メッセージボックス)の具体的な使用例を紹介します。

以下に紹介する使用例は、すべてコピペしてすぐに実行できるコードです。
気になる例は、ぜひご覧いただき、実際に実行してみてください。

VBAの基礎から応用までを効率よくしっかり学習したい方には、UdemyのVBA講座もおすすめです。

特に自己学習で進める場合、ビデオや実践例があると理解が進みやすくなります。

＼ 　自分のペースで学べるVBA講座はこちら　 ／

【 Udemy 】初心者でも安心！VBA講座を見る

​

使用例1: 簡単なメッセージを表示する

VBAでMsgBox (メッセージボックス)を使用して、ユーザーに簡単な通知を表示する方法を紹介します。

主な使用用途
処理が完了したことをユーザーに知らせたい場合や、情報を提供するために使用します。

コード例

Sub SimpleMessageBox()
    MsgBox "処理が完了しました。", vbInformation, "通知"
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• なし

1行ずつコードを解説

このコードを使用すると、VBAで処理が完了したことをユーザーに通知するメッセージボックスを簡単に表示できます。
特に、ユーザーに重要な情報を知らせる必要がある場合や、プロセスの終了を確認させたい場合に便利です。

使用例2: 「はい/いいえ」でユーザーに確認を求める

メッセージボックスでユーザーに「はい/いいえ」で確認を求め、その選択に応じて処理を続行するか中止する方法を紹介します。

コード例

Sub UserChoiceExample()
    Dim response As VbMsgBoxResult

    response = MsgBox("本当に終了しますか？", vbYesNo + vbQuestion, "確認")

    If response = vbYes Then
        MsgBox "プログラムを終了します。"
        '// 終了処理のコード
    Else
        MsgBox "キャンセルされました。"
        '// キャンセル処理のコード
    End If
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• IF (条件分岐)

1行ずつコードを解説

このコードは、ユーザーに対してプログラムの終了を確認するメッセージボックスを表示し、その選択に基づいて処理を行います。
MsgBox関数を使用してユーザーからの入力を取得し、その結果を「Ifステートメント」で評価することで、簡単にプログラムのフローを制御できます。

このような確認メッセージは、誤操作を防ぐための重要な手段であり、特に重要な操作（例: プログラムの終了やデータの削除など）において、ユーザーに最終確認を促すことで、安全性と信頼性を高めることができます。

実際のシナリオでは、このサブルーチンをベースにして、適切な終了処理やキャンセル処理のコードを追加することで、ユーザーの意図に応じた柔軟なプログラムを構築することが可能です。

使用例3: デフォルトボタンを設定する

メッセージボックスでデフォルトのボタンを指定することで、ユーザーが特定の選択肢を優先的に選ぶように設定できます。
以下の例では、「いいえ」ボタンをデフォルトに設定しています。

コード例

Sub DefaultButtonExample()
    Dim userResponse As VbMsgBoxResult

    userResponse = MsgBox("処理を続行しますか？", vbYesNoCancel + vbDefaultButton2, "確認")

    If userResponse = vbYes Then
        MsgBox "処理を続行します。"
    ElseIf userResponse = vbNo Then
        MsgBox "処理を中止しました。"
    Else
        MsgBox "キャンセルされました。"
    End If
End Sub

処理結果

コードの動作概要

このコードで使用している機能

• IF (条件分岐)

1行ずつコードを解説

このコードでは、MsgBox関数を使って「はい」「いいえ」「キャンセル」の3つの選択肢を持つ確認メッセージボックスを表示し、デフォルトで「キャンセル」ボタンが選択されるように設定しています。
選択結果は「VbMsgBoxResult型」の変数に格納され、その結果に基づいて処理を分岐させる仕組みです。

デフォルトボタンを設定することで、ユーザーが無意識に「Enterキー」を押しても意図しない操作を防ぐことができます。
このような制御は、重要な操作やデータの削除など、ユーザーの意図に沿った安全な処理を実現するために役立ちます。

このサブルーチンをベースにして、ユーザーの意図に応じた柔軟なプログラムを構築することができます。
例えば、処理を続行する際の詳細な手続きや、キャンセル時の復元処理を追加することで、ユーザーにとって信頼性の高いプログラムを作成することが可能です。

この記事のまとめ

MsgBoxを活用することで、Excel VBAでのユーザーインタラクションが簡単に実現でき、プログラムの操作性が向上します。

正しい使い方を学び、効果的に使用することで、ユーザーにとっても使いやすいプログラムを作成できるようになります。

ポイントのおさらい

この記事の内容を実践することで、VBAでのユーザーインタラクションが効果的に行え、プログラムの操作性が向上することを期待できます。

まずは、サンプルコードを試してみて、自分のプロジェクトに取り入れてみてください。

あわせて読みたい

サイトマップ このページは、本サイトの記事を分かりやすくまとめました。ぜひご覧ください。 目次 「VBA」を見る 「Officeスクリプト」を見る 「ワークシート関数」を見る 「JavaScr...