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

マクロ / VBA

41-0.png


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

画像付きでMsgBoxを紹介 (&自分の備忘記録として・・・)

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



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

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

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

定  数  値  画      像
vbOKOnly 0 41-1.png
vbOKCancel 1 41-2.png
vbAbortRetryIgnore 2 41-3.png
vbYesNoCancel 3 41-4.png
vbYesNo 4 41-5.png
vbRetryCancel 5 41-6.png



次にアイコン画像を選ぶ



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

定  数  値  画      像
  0 アイコン画像なし
vbCritical 16 41-7.png
vbQuestion 32 41-3.png
vbExclamation 48 41-4.png
vbInformation 64 41-5.png



それぞれの値を合計する



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

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



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

Dim MyVar

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




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

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

MsgBox内の改行



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


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



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



コメントをどうぞ

メールアドレスが公開されることはありません。

図形 SUMIF 条件付き書式 STDEV コピペ バーコード ワイルドカード テンプレート 配列数式 VLOOKUP 偏差値 検索 印刷 XLSTART コンビニ チルダ クイズ ネットプリント COUNTIF フロー図 標準報酬月額 作業効率UP NA() COLUMN 履歴書 SUM 無料 封筒 TODAY 目標
  • 関西在住の30代サラリーマン。事務職で毎日Excelと戯れています。
    システム導入なんて資金が無い!Excelでなんとかやりたい零細中小の社長さん・事務員さんの力になればと思います。
    詳しいプロフィール


PAGE TOP ↑