初めての運動会・・・

この3連休・・・運動会を企画されてる地域の方が多いだろう・・・

しかし、今日・明日と雨の所が多いみたいだ・・・


妻の仕事でも・・・明日、運動会のお弁当の予約があるらしい・・・多分駄目だろう・・・と


チビも明日が初めての運動会の予定だ・・・

チビのお父さんも、月曜日が仕事らしいがわざわざ帰ってきてるらしい・・・

日曜日のバスの時間までだけでも見てやろう・・・と・・・


体育の日って・・・結構晴れる日が多かったみたいだ・・・が・・・

このような愚図ついた天候は珍しい様な気がする・・・なぁ・・・

何処の地域も・・・明日には何とかお天気が回復してくれたら良いのになぁ～・・・


あ～^した^天気_に^なぁぁぁ～^れぇ^っ！！

名前を付けて保存ダイアログを表示

Ｅｘｃｅｌで作った元帳ソフトを更に改良しようと頑張ってみた・・・が

〆罫線を入れてルーズリーフに印刷までは・・・完成していたのだが・・・

印刷後に、そのデータを別のフォルダーに名前を付けて保存までさせようとやってみた・・・が・・・

小生の知識では・・・何処かでバグってしまう・・・のだ・・・



そこで、完全自動は・・・あきらめましたぁ～！

結局、

　　　　　　印刷後に下の様な表示を出し⇒⇒⇒ＯＫボタンをクリックすれば・・・

　　　　　　“名前を付けて保存ダイアログ”を表示させ⇒⇒⇒そこでフォルダーを選んで保存する

命令文字は以下の簡単な方法にしてしまいましたぁ・・・

Sub
　If MsgBox("印刷は終わりました【総勘定元帳保存】フォルダに保存して下さい！　　　　　　名前を付けて保存ダイアログを開きます！", vbOKCancel, "データの保存の確認") = vbOK Then
　　Application.Dialogs(xlDialogSaveAs).Show
　End If
End Sub


これでも少しは、手間が省ける・・・又、追々考えるとしよう・・・