写一段用excel内等待2秒的vba代码
Sub WaitTwoSeconds() Dim startTime As Double startTime = Timer '记录当前时间 Do While Timer < startTime + 2 '当当前时间小于开始时间加2秒时循环 DoEvents '处理其他事件 Loop End Sub
原文地址: https://www.cveoy.top/t/topic/bb5d 著作权归作者所有。请勿转载和采集!
安全问答是一个知识全球问答,包含丰富的问答知识
Sub WaitTwoSeconds() Dim startTime As Double startTime = Timer '记录当前时间 Do While Timer < startTime + 2 '当当前时间小于开始时间加2秒时循环 DoEvents '处理其他事件 Loop End Sub
原文地址: https://www.cveoy.top/t/topic/bb5d 著作权归作者所有。请勿转载和采集!