Ｓ・Ｍ・C (Ｓｉｍｐｌｅ.Ｍａｃｒｏ.Ｃｒｅａｔｅ)　～エクセルマクロ日記～

おはようございます。
なんだか、むし暑い天気ですね。

前回仕上げたカレンダー形式の入力画面ですが、反応はと言うと
またまた好評で「上等さぁ～」って喜んでもらえました。

しかし、

つくれば作るほど、要望に応えれば応えるほど、次から次へと
「ああしたい」「こうやってほしい」とでてくるもので、
今回も、小さな追加ですが、
更新をする前に確認のメッセージを表示してほしいとの事。

更新ボタンを押した後に、「あっ、間違ってしまった」なんて
やってしまったようです。

そこで、勉強のつもりで調べてみました。
さすが，ＶＢＡ。やりたい事が既に準備されているではありませんか。


こんな感じです。


マクロ


＜　実際のマクロ　＞
　　ans = MsgBox("更新しますか？", _
vbYesNoCancel + vbInformation + vbDefaultButton3, _
"更新の確認")
If ans = 6 Then
　　　　　ＯＫが押されたときの処理
　　　Ｅｎｄ　Ｉｆ

＜メッセージボックスの説明　＞

① = MsgBox(②,③,④)

①　戻り値（変数を指定）

　　　定数　　　　　　　　値　　　　内容
　　　　ｖｂＯＫ　　　　　　１　　　　　ＯＫ
　　　　ｖｂＣａｎｃｅｌ　　　 ２　　　　キャンセル
　　　　ｖｂＡｂｏｒｔ　　　　　３　　　　　中止
　　　　ｖｂＲｅｔｒｙ　　　　　４　　　　　再試行
　　　　ｖｂＩｇｎｏｒｅ　　　　５　　　　無視
　　　　ｖｂＹｅｓ　　　　　　６　　　　はい
　　　　ｖｂＮｏ　　　　　　７　　　　　いいえ

②　メッセージボックスに表示させたいメッセージの文字

③　ボタンの種類　

　　　ｖｂＯＫＯｎｌｙ　　　　　　ＯＫボタンのみ
　　　ｖｂＯＫＣａｎｃｅｌ　　　　「ＯＫ」「キャンセル」ボタンを表示
　　　ｖｂＹｅｓＮｏ　　　　　　　「はい」と「いいえ」ボタンを表示
　　　ｖｂＹｅｓＮｏＣａｎｃｅｌ　　「はい」と「いいえ」と「キャンセル」ボタンを表示
　　　　　　　　・
　　　　　　　　・
　　　　　　　省略
　
④　メッセージボックスの名前（タイトル）

といろいろな使い方があるみたい。

例

　 ans = MsgBox("更新しますか？", vbYesNoCancel,"更新の確認")
と記述します。

すると

と表示されます。

大事な処理の前に、ワンクッションは当然の事なのかもしれませんね。

今日も一つ勉強になったぞ。

☆☆☆　先んずれば人を制す　☆☆☆
それでは。