如何基于小时数清除单元格，Excel VBA

我正在试图清除Microsoft Excel 2016中一个单元格的内容，该单元格的使用时间超过8小时。我们在8小时后审查所有进入的工作，并在需要时分配额外资源

我有3张测试表，VLOOKUP和Log。Test是普通用户唯一可以看到的，VLOOKUP持有VLOOKUP表来计算年龄，Log就是，所有更改的日志

通过使用一个循环方程，我能够输出一个单元格被改变的时间，这被放入VLOOKUP表中-

=如果（测试！E6“”，如果（K4=”“，NOW（），K4），“”）

在VLOOKUP表中，我有一个单元格，显示现在（H3）

我希望能够使用来自VLOOKUP，K列的数据，提供测试E:G列的清晰内容，一次一行，并且仅当K单元格的时间超过8小时

我尝试了许多选项，但无法根据VLOOKUP图纸值清除另一张图纸

这是我目前的工作-

Sub DeleteRowsBeforeCutoff()

Application.ScreenUpdating = False
    If Worksheets("VLOOKUP").Range(K3) < DateAdd("h", -8, Now) Then
        Worksheets("Test").Range(E5).ClearContents
    End If

Application.ScreenUpdating = True
End Sub

Sub-deleteRowsbeforecuretoff（）
Application.ScreenUpdating=False
如果工作表（“VLOOKUP”）.范围（K3）<日期添加（“h”，-8，现在），则
工作表（“测试”）.范围（E5）.ClearContents
如果结束
Application.ScreenUpdating=True
端接头

---

提前感谢您的指点

考虑事件代码。您可以在

工作表\u更改

事件后将输入时间存储在隐藏的工作表上；或者检查

工作表上的所有相关单元格\u activate

事件（甚至

selection\u change

，如果不经常触发的话）。目前，我将代码嵌套在工作簿打开部分中。它不需要特别频繁地运行。