| |
現在のぶつかってる状況を報告します。
'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
これで、良いのかなと思っていたら、（テストなので３０秒）
Tが代わっていないような…。イミディエイトで確認すれば、操作するたびに代わっています。
それと、勝手に閉じるには閉じるんですけど、勝手にまた開いてきます。
ハチさんの過去ﾛｸﾞに記載の過去ﾛｸﾞで ”Now()”が良くないと解ったんですが、代替案がなくて…。
VBWASURETAさん、返事が遅くなりすみませんでした。上記の様な状態でスクリーンセーバーは試していません。
スクリーンセーバーでやってけば、出来そうですね。ひと段落したら探してみます。
|
|
わいわい
- 08/3/28(金) 12:14 -
