メッセージボックスを使う

マクロを実行する前に、本当に実行するか否か一度確認のメッセージくらい欲しいですよね。それがMsgBoxです。

画像付きでMsgBoxを紹介　（＆自分の備忘記録として・・・）

まずはボタンの種類を選ぶ

メッセージボックスにも色々なボタンがあります。

「OK」と「キャンセル」や、「はい」「いいえ」など。

まず下の表で使いたいボタンの種類を選びます。使う値を覚えておく。　
（YesNoが使いたいのであれば４）

定　　数	値	画　　　　　　像
vbOKOnly	0
vbOKCancel	1
vbAbortRetryIgnore	2
vbYesNoCancel	3
vbYesNo	4
vbRetryCancel	5

次にアイコン画像を選ぶ

上のボタンの種類と同じようにアイコン画像を選びます。

定　　数	値	画　　　　　　像
	0	アイコン画像なし
vbCritical	16
vbQuestion	32
vbExclamation	48
vbInformation	64

それぞれの値を合計する

上の2つのボタン・アイコンを選んだらそれぞれの値を合計します。

たとえばYesNoボタンでインフォメーションアイコンだとすると、4 + 64 = 68　となります。



ではそれをどのように使うのかというと以下のように使用します。

Dim MyVar

MyVar = MsgBox (“表示したいメッセージ” , 68 , “MsgBoxのタイトル”)



MyVarに返る値については「Yes」ボタンを押したならば「vbYes」という値が返ります。

「No」ボタンならば「vbNo」。

MsgBox内の改行

MsgBoxのメッセージについて改行する方法はどうするのか？


MyVar = MsgBox (“１行目” & vbCrLf & “２行目” , 68 , “MsgBoxのタイトル”)


vbCrLfを使います。3行目・4行目をする場合も同じようにするだけです。