VBA（Visual Basic for Applications）を使って開発を進めるとき、ユーザーに選択を促す「MsgBox（メッセージボックス）」はとても便利な機能です。特にYes/Noボタンを表示して、ユーザーの選択によって処理を分ける方法は、実務でも頻繁に使われます。この記事では、MsgBoxでYes/Noを使う方法を丁寧に解説し、基本から実践的な応用まで紹介します。初心者の方でもわかりやすいように、コード例を交えて説明しますので、ぜひ参考にしてください。
MsgBox関数とは？基本の使い方
MsgBox関数は、ユーザーに対してメッセージを表示し、入力（ボタンのクリック）を受け取ることができるVBAの組み込み関数です。最も簡単な使い方は、以下のようになります。
MsgBox "処理が完了しました。"
このように記述することで、「OK」ボタンが表示されたダイアログボックスが表示されます。ただし、これではユーザーの選択肢が1つしかないため、Yes/Noを使った条件分岐には向いていません。
Yes/Noを使うには？Button定数を活用しよう
MsgBox関数には、表示するボタンの種類を指定できるオプションがあります。Yes/Noボタンを表示したい場合は、次のように書きます。
Dim result As VbMsgBoxResult
result = MsgBox("ファイルを保存しますか？", vbYesNo)
このように vbYesNo を引数として渡すことで、YesとNoのボタンが表示されます。ユーザーがどちらをクリックしたかは、戻り値（この例では変数 result）で判別できます。
戻り値を使って条件分岐する方法
ユーザーがクリックしたボタンに応じて処理を分岐するには、If文やSelect Case文を使います。以下はIf文で書いた例です。
If result = vbYes Then
MsgBox "保存します。"
Else
MsgBox "保存をキャンセルしました。"
End If
このようにすることで、ユーザーの選択に応じて異なる処理を実行できます。vbYes、vbNoといった定数を使うことで、コードの可読性も向上します。
MsgBoxの応用：アイコンやタイトルを付ける
MsgBoxには、さらにメッセージをわかりやすくするためのオプションがあります。たとえば、警告アイコンを表示したり、ウィンドウのタイトルを設定したりできます。
Dim response As VbMsgBoxResult
response = MsgBox("本当に削除しますか？", vbYesNo + vbCritical, "削除確認")
ここでは vbCritical を使って警告アイコンを表示し、「削除確認」というタイトルをつけています。このように組み合わせて使うことで、より直感的なUIになります。
Select Caseで分岐をスマートに書く
If文の代わりに Select Case を使うと、選択肢が増えたときにコードを整理しやすくなります。以下はその例です。
Select Case response
Case vbYes
MsgBox "削除します。"
Case vbNo
MsgBox "削除を中止しました。"
End Select
可読性の高いコードを書くうえでも、Select Caseはおすすめの構文です。
よく使うMsgBoxの定数一覧
| 定数名 | 意味 |
|---|---|
| vbOKOnly | OKボタンのみ |
| vbYesNo | Yes/Noボタン |
| vbCritical | 警告アイコン |
| vbInformation | 情報アイコン |
| vbExclamation | 注意アイコン |
| vbQuestion | 質問アイコン |
これらを組み合わせて使うことで、さまざまなパターンのメッセージボックスを作成できます。
実践例：保存確認の処理を実装する
以下は、ユーザーに保存の可否を聞いて処理を分ける一連のサンプルです。
Sub SaveConfirmation()
Dim ans As VbMsgBoxResult
ans = MsgBox("保存しますか？", vbYesNo + vbQuestion, "保存確認")
If ans = vbYes Then
MsgBox "保存処理を実行します。"
' ここに保存処理を書く
Else
MsgBox "保存をキャンセルしました。"
End If
End Sub
このように、実務でも役立つ処理を簡単に作ることができます。
注意点：Yes/No以外の選択肢にも対応しよう
場合によっては「キャンセル」ボタンも必要になることがあります。その場合は vbYesNoCancel を使い、 vbCancel という定数で判別できます。
Dim result As VbMsgBoxResult
result = MsgBox("保存して終了しますか？", vbYesNoCancel + vbQuestion, "確認")
Select Case result
Case vbYes
MsgBox "保存して終了します。"
Case vbNo
MsgBox "保存せずに終了します。"
Case vbCancel
MsgBox "操作をキャンセルしました。"
End Select
ユーザーにとっても、キャンセルという選択肢があることで安心感が生まれます。
まとめ
MsgBoxは、VBAでユーザーとの簡単なやり取りを実現できる非常に便利な機能です。Yes/Noボタンを使うことで、ユーザーの判断に応じた柔軟な処理が可能になります。本記事で紹介した基本の書き方から応用テクニックまでをマスターすれば、あなたのVBAスクリプトはより使いやすく、実務に即したものとなるでしょう。ぜひ、実際の業務や学習に役立ててください。