excel 把这段代码加上延迟20秒执行 代码如下:

2024年11月15日 07:10
有1个网友回答
网友(1):

'以下代码,放到workSheet代码窗格中
Private Sub Worksheet_Calculate()
Application.OnTime Now + TimeValue("0:00:20"), "test"   '20秒后执行名为test的宏
End Sub
'以下代码,放到模块中
Sub test()
If Range("GQ170").Value = "错" Then
Range("gp6").Value = Range("go6").Value
End If
End Sub