おはようございます。
なんだか、むし暑い天気ですね。
前回仕上げたカレンダー形式の入力画面ですが、反応はと言うと
またまた好評で「上等さぁ～」って喜んでもらえました。
しかし、
つくれば作るほど、要望に応えれば応えるほど、次から次へと
「ああしたい」「こうやってほしい」とでてくるもので、
今回も、小さな追加ですが、
更新をする前に確認のメッセージを表示してほしいとの事。
更新ボタンを押した後に、「あっ、間違ってしまった」なんて
やってしまったようです。
そこで、勉強のつもりで調べてみました。
さすが，ＶＢＡ。やりたい事が既に準備されているではありませんか。
こんな感じです。
マクロ
＜ 実際のマクロ ＞
ans = MsgBox("更新しますか？", _
vbYesNoCancel + vbInformation + vbDefaultButton3, _
"更新の確認")
If ans = 6 Then
ＯＫが押されたときの処理
Ｅｎｄ Ｉｆ
＜メッセージボックスの説明 ＞
① = MsgBox(②,③,④)
① 戻り値（変数を指定）
定数 値 内容
ｖｂＯＫ １ ＯＫ
ｖｂＣａｎｃｅｌ ２ キャンセル
ｖｂＡｂｏｒｔ ３ 中止
ｖｂＲｅｔｒｙ ４ 再試行
ｖｂＩｇｎｏｒｅ ５ 無視
ｖｂＹｅｓ ６ はい
ｖｂＮｏ ７ いいえ
② メッセージボックスに表示させたいメッセージの文字
③ ボタンの種類
ｖｂＯＫＯｎｌｙ ＯＫボタンのみ
ｖｂＯＫＣａｎｃｅｌ 「ＯＫ」「キャンセル」ボタンを表示
ｖｂＹｅｓＮｏ 「はい」と「いいえ」ボタンを表示
ｖｂＹｅｓＮｏＣａｎｃｅｌ 「はい」と「いいえ」と「キャンセル」ボタンを表示
・
・
省略
④ メッセージボックスの名前（タイトル）
といろいろな使い方があるみたい。
例
ans = MsgBox("更新しますか？", vbYesNoCancel,"更新の確認")
と記述します。
すると
と表示されます。
大事な処理の前に、ワンクッションは当然の事なのかもしれませんね。
今日も一つ勉強になったぞ。
☆☆☆ 先んずれば人を制す ☆☆☆
それでは。