KJ書きます

メッセージボックス

[MsgBox関数の構文]
MsgBox(Prompt,Buttons,Title,Helpfile,Context)
　Prompt：メッセージボックス内に表示されるメッセージ　省略不可
　Buttons：ボタンの種類や個数、アイコンのスタイルの指定
　Title：メッセージボックスのタイトルバーに表示する文字列

・Buttons：
　配置できるボタンの組み合わせ
　vbOKOnly　（0）
　　 [OK]
　vbOKCancel　（1）
　　 [OK] 　[キャンセル]
　vbAbortRetryIgnore　（2）
　　[中止]　[再試行]　[無視]
　vbYesNoCancel　（3）
　　[[はい]　[いいえ]　[キャンセル]
　vbYesNo　（4）
　　[はい]　[いいえ]
　vbRetryCancel　（5）
　　[再試行]　[キャンセル]

配置できるアイコンの組み合わせ
　vbCritical　（16）
　　警告メッセージアイコン
　vbQuestion　（32）
　　問い合わせメッセージアイコン
　vbExclamation　（48）
　　注意メッセージアイコン
　vbInformation　（64）
　　情報メッセージアイコン

例)[OK]ボタンと警告メッセージアイコンを表示させるステートメント
　MsgBox　"内容を確認してください", vbOKOnly + vbExclamation

・Title：
　"入力エラーです"のように「"」で囲んで入力する。

ExcelVBA MsgBox2
　MsgBoxを使用した対話型プロシージャの例です。

---------------------------------------
Sub testMsgBox()

'MsgBoxを使用した対話型プロシージャ


Dim MyBtn As Integer
Dim MyMsg As String, MyTitle As String

MyMsg = "選んでください"
MyTitle = "対話型プロシージャの例"

MyBtn = msgbox(MyMsg, vbYesNo + vbExclamation, MyTitle)

If MyBtn = vbYes Then
msgbox "Yesを押しましたね"
Else
msgbox "NOですね"

End If


End Sub
---------------------------------------
このようにしてMsgBoxで押したボタンによって
次の動作を変えることができます。
[再試行]や[無視]もありますので、いろいろと応用ができます。