Excel VBA質問箱 IV

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

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


59727 / 76732 ←次へ | 前へ→

【21680】Re:ブックを自動で閉じるには?
お礼  ぴかる  - 05/1/26(水) 15:19 -

引用なし
パスワード
   ありがとうございました。なんとか出来そうになってきました。
まだ暫定ではありますが、以下の様なマクロにしました。

・セル選択が変わる度に現在時刻(BF3)を記憶
・そして1分後に指定マクロを動作
・条件成立にて自動終了

テストOKだったので、これをベースに考えていこうと思っています。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  Range("BF3") = Now
  指定時刻 = Now + TimeValue("00:01:00")
  待ち時間 = TimeValue("00:00:10")
  Application.OnTime TimeValue(指定時刻), "ブック自動終了", TimeValue(待ち時間)

End Sub
Sub ブック自動終了()

  If Range("BF3") * 86400 + 55 < Now * 86400 Then
    ActiveWorkbook.Save
    ActiveWorkbook.Close
  End If

End Sub

1 hits

【21662】ブックを自動で閉じるには? ぴかる 05/1/26(水) 9:21 質問
【21666】Re:ブックを自動で閉じるには? IROC 05/1/26(水) 10:19 回答
【21667】Re:ブックを自動で閉じるには? ぴかる 05/1/26(水) 10:47 質問
【21668】Re:ブックを自動で閉じるには? IROC 05/1/26(水) 11:23 回答
【21671】Re:ブックを自動で閉じるには? ぴかる 05/1/26(水) 11:29 お礼
【21670】Re:ブックを自動で閉じるには? [名前なし] 05/1/26(水) 11:28 発言
【21672】Re:ブックを自動で閉じるには? ぴかる 05/1/26(水) 11:35 発言
【21676】Re:ブックを自動で閉じるには? [名前なし] 05/1/26(水) 13:43 回答
【21677】Re:ブックを自動で閉じるには? ぴかる 05/1/26(水) 13:53 質問
【21679】Re:ブックを自動で閉じるには? IROC 05/1/26(水) 14:17 回答
【21680】Re:ブックを自動で閉じるには? ぴかる 05/1/26(水) 15:19 お礼

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