VBA Application.Wait函数类型不匹配报错，如何适配Excel单元格延迟输入？

错误原因 #

你原来的代码里，TimeValue("Delay")是把字符串字面量"Delay"传给TimeValue函数，这个字符串不是合法的时间格式（TimeValue需要类似"00:00:10"这样的时间字符串），同时没有正确引用变量Delay的值，导致类型不匹配错误。

正确解决方案 #

方案一：使用TimeSerial构造时间间隔（推荐） #

TimeSerial(hour, minute, second)可以直接生成对应时长的时间值，把秒数作为第三个参数传入即可：

' 声明变量，若秒数超过32767，改用Long类型
Dim Delay As Integer
Delay = ws.Range("J22").Value
' 等待Now加上指定秒数后的时间点
Application.Wait Now + TimeSerial(0, 0, Delay)

方案二：构造合法时间字符串传入TimeValue #

把单元格获取的秒数拼接成"00:00:XX"格式的时间字符串，再传给TimeValue：

Dim Delay As Integer
Dim delayStr As String
Delay = ws.Range("J22").Value
' 拼接成合法的秒级时间字符串
delayStr = "00:00:" & CStr(Delay)
Application.Wait Now + TimeValue(delayStr)

注意事项 #

• 确保工作表单元格J22中的值是数字类型的秒数，如果是文本格式的数字，可先用CLng(ws.Range("J22").Value)转换。
• 若需要延迟的秒数超过32767（约9小时），把变量类型从Integer改为Long，避免溢出。

内容的提问来源于stack exchange，提问作者user22952720