お疲れ様です。
はるさらと申します。
今回はVBA関連の記事なります。
VBAにてメッセージボックス。
ポップアップウィンドウを表示する方法を
記載いたします。
こちらの記事を読んでいただければ
下記のような確認ウィンドウを
表示することができるようになります。
![](https://harusara22.work/wp-content/uploads/2024/07/fbdc5efddd5fe18e216b2c00a7c796a4-1024x560.png?v=1721547669)
VBAでMsgBoxメソッドを使用してメッセージを表示する方法
VBA(Visual Basic for Applications)では、
MsgBoxメソッドを使用して簡単に
メッセージボックスを表示することができます。
この記事では、MsgBoxメソッドの基本的な使い方から、
さまざまなオプションを紹介します。
基本的なMsgBoxの使い方
MsgBoxメソッドを使用すると、以下のようにしてメッセージボックスを表示できます。
Sub ShowMessage()
MsgBox "これはメッセージボックスです。", vbInformation, "タイトル"
End Sub
コードの簡単な解説をすると
"これはメッセージボックスです。"
:表示するメッセージのテキストです。vbInformation
:メッセージボックスのアイコンや
ボタンのスタイルを指定する定数です。
この場合、情報を示すアイコンが表示されます。
他にもvbCritical
(エラー)、vbQuestion
(質問)、vbExclamation
(警告)などが指定できます。"タイトル"
:メッセージボックスのタイトルバーに表示されるテキストです。
上記の内容でVBAを実行することで
下記のようなメッセージボックスを
表示することができます。
![](https://harusara22.work/wp-content/uploads/2024/07/22145fa5a6c7482d859aac28534c82e3-1024x559.png?v=1721547777)
![](https://harusara22.work/wp-content/uploads/2024/07/error-1024x301.png?v=1721549336)
はい/いいえの選択付きのメッセージボックスを作成する
MsgBoxメソッドでは、ユーザーがボタンを押下することで
処理を分岐できる機能もあります。
![](https://harusara22.work/wp-content/uploads/2024/07/9cb4604ab3a826d6b99cd3f2beb34806-1024x538.png?v=1721548145)
↓
![](https://harusara22.work/wp-content/uploads/2024/07/286a4d1e9e4056da1d91ef0b6a1492b2.png?v=1721548160)
Sub ShowMessageAndGetResponse()
Dim response As VbMsgBoxResult
response = MsgBox("マクロを実行しますか?", vbYesNo + vbQuestion, "質問")
If response = vbYes Then
MsgBox "はい が選ばれました。"
Else
MsgBox "いいえ が選ばれました。"
End If
End Sub
上記のコードで実装が可能です。vbYesNo
を追加することでYesとNoのボタンが表示され、vbQuestion
を指定して質問を示す?アイコンが表示されます。
ユーザーの選択した回答に応じて
後の処理を分岐させることができます。
その他のオプション
上記にもいくつか記載はしましたが
MsgBoxメソッドにはさまざまなオプションがあり、
メッセージボックスの外観や動作をカスタマイズすることができます。
例えば、ボタンの数や表示するアイコン、
デフォルトのボタンなどを指定することができます。
詳細については、VBAのドキュメントやリファレンスを参照するとよいでしょう。
◆Officeライブラリリファレンス公式ページ
https://learn.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/msgbox-function
![](https://harusara22.work/wp-content/uploads/2024/07/97bbf485d045cf66f094eda27bf37ce2-1024x1024.png?v=1721548637)
![](https://harusara22.work/wp-content/uploads/2024/07/196e9ea379bafe4c5fb9367892e7926d-948x1024.png?v=1721548648)
![](https://harusara22.work/wp-content/uploads/2024/07/a499132c93c69c0a1afbe2699f8fe34a-1024x738.png?v=1721548659)
3枚のキャプチャは
Officeライブラリリファレンス公式ページより抜粋
どなたかのお役に立てれば幸いです。
それではまたー!