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

マクロ / 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行目をする場合も同じようにするだけです。



コメントをどうぞ

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

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


PAGE TOP ↑