|
▼素人 さん:
>質問に足りないところがありました。
>1、A1の時刻は常に更新されている。
> 例えば、マクロの起動を9:00:00以前に行い、
> A1が9:00:00になった時点でマクロ処理を
> 行ないます。
それなら、Changeイベントで、A1が9:00:00になったかどうかを
判断したらいかがでしょうか?
当該シートモジュールに
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myTime As Date
With Target
If IsEmpty(.Value) Then Exit Sub
If .Count > 1 Then Exit Sub
If .Address(0, 0) = "A1" Then
Application.EnableEvents = False
myTime = CDate(.Value)
If myTime = "9:00:00" Then
Call test
End If
Application.EnableEvents = True
End If
End With
End Sub
'===================================
Private Sub test()
MsgBox "あ"
End Sub
|
|