Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12976 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7662】ある一定の時間がくれば、自動的に上書き保存してファイルを終了させるマクロ 杏 03/9/11(木) 15:31 質問
【7670】Re:ある一定の時間がくれば、自動的に上書... INA 03/9/11(木) 16:39 回答
【7672】Re:ある一定の時間がくれば、自動的に上書... 杏 03/9/11(木) 16:53 お礼
【7678】Re:ある一定の時間がくれば、自動的に上書... INA 03/9/11(木) 17:20 回答
【7662】ある一定の時間がくれば、自動的に上書き...
質問  杏  - 03/9/11(木) 15:31 -
引用なし
パスワード
   いつもお世話になっております。

ある一定の時間（例えば１５:００）がくれば、自動的にファイルが上書き保存されて終了するようなマクロを書きたいのですが、私の手に負えず途方にくれております。
ご存知の方いらっしゃいましたら、是非教えて頂けないでしょうか？

よろしくお願い致します。
【7670】Re:ある一定の時間がくれば、自動的に上書...
回答  INA  - 03/9/11(木) 16:39 -
引用なし
パスワード
   >ある一定の時間（例えば１５:００）がくれば、
>自動的にファイルが上書き保存されて終了するようなマクロを書きたいのですが、
>私の手に負えず途方にくれております。

このようなマクロですと、常時マクロが動いていてシステム時刻を
参照している必要があります。
その為、通常の操作に不都合が出る可能性がありますが、
以下のようにすることができます。

シート上にラベルを配置して試してみて下さい。

Private Sub Label1_Click()
　Do
　
　　 Label1.Caption = Time
　　　　If Time = "15:00:00" Then ThisWorkbook.Close
　　 DoEvents
　　
　Loop
End Sub
【7672】Re:ある一定の時間がくれば、自動的に上書...
お礼  杏  - 03/9/11(木) 16:53 -
引用なし
パスワード
   INAさんありがとうございます。
これで問題が解決できました。

実は最初この質問箱で「時間」で検索したら何もでなかったのですが、改めて「タイマー」で検索すると以下のマクロがでておりました。

【4562】Keinさんより
Sub Auto_Open()
　Application.OnTime TimeValue("9:00:00"), "定時印刷", TimeValue("00:30:00")
End Sub
'↑9時になったら"定時印刷"を起動。猶予時間は30分

こちらでも作動することが確認できました。
大変ご迷惑をおかけしました。以後検索をしっかりしてから書き込むようにいたします。
重ねてINAさんありがとうござました。
【7678】Re:ある一定の時間がくれば、自動的に上書...
回答  INA  - 03/9/11(木) 17:20 -
引用なし
パスワード
   OnTime がありましたね。(>_<)

見当違いの回答して、申し訳ございませんでした。m(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12976 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free