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

本広告は、一定期間更新の無いブログにのみ表示されます。
ブログ更新が行われると本広告は非表示となります。  

おはようございます。
今日もいい天気で爽やかな気分です。

庭のチューリップが咲きそろいました。
晴れた日には、一段と綺麗に見えますね。



今日も一日頑張りましょう。
  

おはようございます。

今日もいい天気。暑くなりそうです。

ＶＢＡマクロ、昨日の気付きワンポイント。

ＶＢＡマクロで、命令を記述していて長くなりそうだなぁ～
改行したほうが見やすいなぁ～と思う時・・・

その時は、改行したい所で、半角スペースをあけ、アンダーバーを入れると
命令の継続ができます。



アンダーバーは、シフトキー　＋　ひらがなの「ろ」



こういう細かい事を知っておくと便利ですね。

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

  

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

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

しかし、

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

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

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


こんな感じです。


マクロ


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

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

① = MsgBox(②,③,④)

①　戻り値（変数を指定）

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

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

③　ボタンの種類　

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

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

例

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

すると

と表示されます。

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

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

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

こんにちは。

ダムの貯水率も減り、水不足が心配されていて、
花、木に水をかけるのも気が引けます。
今日の雨が恵みの雨になればと願っています。

いつものようにわけのわからないＶＢＡマクロの話を綴っていきます。

昨日も書いたように、日々コツコツと職場のマクロを作っているわけ
ですが、慣れてくると、ちょっと難しい要望もでたりして、マクロの
命令も多くなってきます。

そうすると、思うように動かなかったりしてエラーの原因を探すのに
時間がかかります。

今日のミスは、「列」という変数を使って特定のセルの開始位置を
記憶させていると思い込んでいましたが別のプロシジャーで「列」の
変数を計算に使っていて値が変わっているではありませんか。
それを気付くのに時間がかかってしまいました。

そんなときに便利な命令がＭＳＧＢＯＸ。
変数の値を表示させ、思い通りに動いているかチェックができます。







＜＜　例　＞＞
MsgBox ("利用表の対象行(表行)=" & 表行)
MsgBox ("カレンダー開始列(列） =" & 列)

今日も一つ賢くなりました。

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