在单元格更改后调用宏2秒

Question

我希望在单元格更改后的2秒内调用宏。

我被这个密码困住了。

任何帮助都将不胜感激。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("B2")) Is Nothing Then
    Application.OnTime Now + TimeValue("00:00:02"), Macro 
End Sub

Answer 1

以下是您应该如何修改代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Target.Worksheet.Range("B2")) Is Nothing Then
        Application.Wait(Now + TimeValue("0:00:02"))
        Call Macro
    End If
End Sub