更改单元格后2秒调用macros

我想在单元格更改后有2秒的macros。

我坚持这个代码。

任何帮助，将不胜感激。

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