|
現在のぶつかってる状況を報告します。
'ThisWorkBookモジュール
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
T = Now()
Call Set_OnTime
End Sub
'標準モジュール
Public T As Date 'チェック実行時刻
Function Set_OnTime()
'MsgBox "Set_OnTime"
Application.OnTime T + TimeValue("00:00:30"), "Exe_OnTime"
End Function
Function Exe_OnTime()
If Now() < T + TimeValue("00:00:30") Then
With ThisWorkbook
.Save
.Close
End With
End If
End Function
これで、良いのかなと思っていたら、(テストなので30秒)
Tが代わっていないような…。イミディエイトで確認すれば、操作するたびに代わっています。
それと、勝手に閉じるには閉じるんですけど、勝手にまた開いてきます。
ハチさんの過去ログに記載の過去ログで ”Now()”が良くないと解ったんですが、代替案がなくて…。
VBWASURETAさん、返事が遅くなりすみませんでした。上記の様な状態でスクリーンセーバーは試していません。
スクリーンセーバーでやってけば、出来そうですね。ひと段落したら探してみます。
|
|