msgbox

excel vbaの「magbox」を簡単に説明しました。

excelのvbaをマスターしましょう！
excel vba 簡単・解決！ Homeへ
msgbox

excelのvbaのデバッグでは、vbaとの会話が必要です。

人との係わりで最も大切なことのひとつに、コミュニケーションがあります。
vbaでのコミュニケーションは、msgboxが代表しています。
vba プログラムの誤り（バグ）を取り去るデバッグプリントや、エラー処理の結果をユーザーに知らせる役割があります。
例えば、#If Then #End If を使用し、デバックできます。
#If 1 Then
Msgbox intI
#End If
１を０にすると、Msgboxが無効になり、デバックプリントが出力されません。

１．Excel vba MsgBoxの引数
　　　　excel vba では、MsgBox(prompt[, buttons] [, title] [, helpfile, context])が基本構文です。
※　[ ]で囲まれた引数は、省略できます。
　　（１）prompt　：メッセージのテキスト（文字列）です。
　　　　複数行を指定する場合は、キャリッジ リターン (Chr(13))、ライン フィード (Chr(10))を挿入します。
　　　　またはキャリッジ リターンとライン フィードの組み合わせ (Chr(13) & Chr(10)) を改行する位置に挿入します。
　　（２）buttons　：ボタンの表示方法などを指定できます。
　　　　表示されるボタンの種類と個数、使用するアイコンのスタイル、標準ボタンを指定します。
　　　　また、メッセージ ボックスがモーダルかどうかなどを表す値の合計値を示す数式を指定します。
　　　　※　具体例を後半に示しましたので参照ください。
　　　　●名前付き引数 buttons には、次の値のうち、該当する値の合計値を指定します。
　　　　Msgbox Title:="タイトル", Prompt := "ハイ！" , Buttons:=vbYesNo


　　　定数　　　　　　　　値　　内容
vbOKOnly　　　　　　　　　0　　[OK] ボタンのみを表示します。
vbOKCancel　　　　　　　　1　　[OK] と [キャンセル] ボタンを表示します。
vbAbortRetryIgnore　　　　2　　[中止]、[再試行]、および [無視] の 3 つを表示します。
vbYesNoCancel 　　　　　　3　　[はい]、[いいえ]、および [キャンセル] の 3 つのボタンを表示します。
vbYesNo 　　　　　　　　　4　　[はい] と [いいえ] ボタンを表示します。
vbRetryCancel 　　　　　　5　　[再試行] と [キャンセル] ボタンを表示します。
vbCritical 　　　　　　　16　　警告メッセージ アイコンを表示します。
vbQuestion 　　　　　　　32　　問い合わせメッセージ アイコンを表示します。
vbExclamation　　　　　　48　　注意メッセージ アイコンを表示します。
vbInformation　　　　　　64　　情報メッセージ アイコンを表示します。
vbDefaultButton1　　　　　0　　第 1 ボタンを標準にします。
vbDefaultButton2　　　　256　　第 2 ボタンを標準にします。
vbDefaultButton3　　　　512　　第 3 ボタンを標準にします。
vbDefaultButton4　　　　768　　第 4 ボタンを標準にします。
vbApplicationModal　　　　0　　アプリケーション モーダルに設定します。
　 　　　　　　　　　　　　　　メッセージ ボックスに応答するまで、
　　　　　　　　　　　　　　　　現在選択中のアプリケーションの実行を継続できません。
vbSystemModal　　　　　4096　　システム モーダルに設定します。
　 　　　　　　　　　　　　　　メッセージ ボックスに応答するまで、
　　　　　　　　　　　　　　　　のアプリケーションが中断されます。
vbMsgBoxHelpButton　　16384　　ヘルプ ボタンを追加します。
VbMsgBoxSetForeground 65536　　最前面のウィンドウとして表示します。
vbMsgBoxRight　　　　524288　　テキストを右寄せで表示します。
vbMsgBoxRtlReading　1048576　　テキストを、右から左の方向で表示します。


　　（３）title　：ボタンのタイトルを指定できます。
　　（４）helpfile　：使用するヘルプ ファイルの名前を示す文字列式を指定します。
　　（５）context　：ヘルプ トピックに指定したコンテキスト番号を表す数式を指定します。

２．Excel vba MsgBoxの例
Dim strMsg As String, intStyle As Integer, strTitle As String, strHelp As String
Dim intCtxt As Integer, varResponse As Variant
strMsg = "続行しますか。" & Chr(13) & Chr(10) & _
"ヘルプのコンテキスト番号1000 のトピックスを参照ください。" ' メッセージを定義します。（１）
intStyle = vbYesNo + vbQuestion + vbMsgBoxHelpButton ' ボタンを定義します。（２）
strTitle = "MsgBox タイトル" ' タイトルを定義します。（３）
strHelp = "msgbox01.hlp" ' ヘルプ ファイルを定義します。
intCtxt = 1000 ' トピック コンテキストを定義します。
' メッセージを表示します。
varResponse = MsgBox(strMsg, intStyle, strTitle, strHelp, intCtxt)

次の図は、このexcel vba プログラムを実行した結果です。

excelのvbaをマスターしましょう。

excel vba 簡単・解決！ Homeへ