Excel VBA質問箱 IV

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

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


73537 / 76732 ←次へ | 前へ→

【7670】Re:ある一定の時間がくれば、自動的に上書...
回答  INA  - 03/9/11(木) 16:39 -

引用なし
パスワード
   >ある一定の時間(例えば15:00)がくれば、
>自動的にファイルが上書き保存されて終了するようなマクロを書きたいのですが、
>私の手に負えず途方にくれております。

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

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

Private Sub Label1_Click()
 Do
 
   Label1.Caption = Time
    If Time = "15:00:00" Then ThisWorkbook.Close
   DoEvents
  
 Loop
End Sub

0 hits

【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 回答

73537 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free