随时间触发的工作表更改事件

Question

我正在寻找运行一个简单的宏，用于在单元格 F4 中的时间更改为少于七分钟时清除单元格的内容（此单元格由 API 更新）。单元格 F4 的时间格式为 hh:mm:ss。我的密码是

Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = True
Set Target = Range("F4")
If Target.Value <= Minute(7) Then
    Call myClearContents
Application.EnableEvents = False
End If
End Sub

此代码在工作表中，ClearContents宏在模块中。我已经完成了通常的 google 和 Whosebug 搜索，但没有成功。知道为什么这不起作用吗？

提前致谢。

Answer 1

试试这个：

Application.EnableEvents = False
' get F3 time
t = CDate(Cells(3, 6))
' get current time
tNow = TimeValue(Now())
' get the difference in minutes
diff = DateDiff("n", t, tNow)

If diff > 7 Then
    Call ClearContents
End If

Application.EnableEvents = True

随时间触发的工作表更改事件

Worksheet change event to trigger with Time

excel

time

events

vba

worksheet