エクセルの学校：全文検索：Hyper Estraier： VBA��

Results of 1 - 1 of about 14729 for VBA�� (0.003 sec.)

[[20090427154903]]: #score: 3408; @digest: a6e617d9f50363dc10813fccf0f1e092; @id: 43180; @mdate: 2009-04-28T03:34:08Z; @size: 2617; @type: text/plain; #keywords: 全保 (57478), 20090428 (14877), ク全 (9257), 存en (7799), 、pm (7538), 動実 (6770), mm20040817 (5655), 存" (5602), 存終 (5501), ー実 (5145), timevalue (4631), 時30 (3670), 存() (3336), ontime (1840), 保存 (1585), イマ (1368), るブ (1301), 実行 (1160), 行以 (1155), backnumber (854), に任 (847), 開い (839), ブッ (831), 自動 (775), 間帯 (745), 意で (703), 定時 (666), 任意 (583), でvb (556), コメ (536), workbooks (516), マー (491); 『指定時間に開いているブック全保存』（としまる）
いつも大変お世話になります。以下のVBAに関し、AM10時30、PM12:30、PM3:00に自動実行したいのですが、どのように修正したらよろしいでしょうか? ご指導お願いいたします。内容 EXCELが立ち上がって一つ以上のBookが立ち上がっている際のみ、以下のVBAを自動実行(上書き保存)したい。自動実行の時間帯はAM10時30、PM12:30、PM3:00とする。また、自動実行以外に任意でVBAを実行すると、開いているBookが全て保存される。 Sub 開いているブック全保存() For Each w In Application.Workbooks w.Save Next w MsgBox "全保存終了しました。" End Sub 宜しくお願いいたします。 ---- ---- ちょっと考えすぎてましたので、直前の投稿は削除しました。 Ontimeメソッドを使うと可能です。 Sub set_sch() Dim tt As Variant For Each tt In Array(TimeValue("10:30:00"), _ TimeValue("12:30:00"), _ TimeValue("15:00:00")) Application.OnTime tt, "開いているブック全保存" Next end sub 実際には、時刻を変えて試してみてください。 ---- おはようございます。上記をコメントしていただいた方への質問です。最終的なVBAは以下の通りとなるみたいですが、 Sub 開いているブック全保存() For Each w In Application.Workbooks w.Save Next w MsgBox "全保存終了しました。" End Sub Sub set_sch() Dim tt As Variant For Each tt In Array(TimeValue("09:03:00"), _ TimeValue("12:30:00"), _ TimeValue("15:00:00")) Application.OnTime tt, "開いているブック全保存" Next End Sub これだと、都度、フォームボタン等を専用でつくり、 Sub set_schのVBAを実行しないとタイマー実行が実行されないみたいですが、 EXCELを起動すれば自動的にタイマー実行のみ実行が可能なVBAに修正希望です。尚、自動実行以外に任意でVBAを実行すると、開いているBookが全て保存される、条件はそのままです。宜しくお願いいたします。（としまる）20090428 9:10 ---- こんにちは。かみちゃんです。横から失礼します。 > 上記をコメントしていただいた方への質問です。上記のコメントをした者ではありませんが、 Thisworkbook モジュールに Private Sub Workbook_Open() Call 開いているブック全保存 End Sub とするか、標準モジュールに Sub Auto_Open() Call 開いているブック全保存 End Sub とすることでできると思います。以下も参照されるといいかと思います。「ブックが開いたとき自動で」 http://www.excel.studio-kazu.jp/mag2/backnumber/mm20040817.html (かみちゃん) 2009-04-28 9:23 ---- (かみちゃん)さん、ご回答ありがとうございました。できました。（としまる）20090428 12:30 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200904/20090427154903.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ