[已解决][求助]请帮助解决通过单元格设置延时时间问题

zzh49

各位朋友,请帮助解决以下过程的代码:

Application.OnTime Now + TimeValue("00:00:15"), "AAA".是一延时15秒执行AAA的代码。
如何通过Sheet1的A1设置秒的数字，如:在A1中输入20，则延时20秒。这个代码如何写。
谢谢！

最佳答案

月排行榜 / 总排行榜

mxg825

2012-8-2 10:56

Application.OnTime Now + TimeValue("00:00:" & Sheet1.[A1])

跳转到最佳答案楼层

mxg825

Application.OnTime Now + TimeValue("00:00:" & Sheet1.[A1])

zzh49

mxg825 发表于 2012-8-2 10:56
Application.OnTime Now + TimeValue("00:00:" & Sheet1.[A1])

非常感谢您的帮助1

mxg825

1秒=1/ (24*60*60)
Application.OnTime Now + 20/ (24*60*60)
Application.OnTime Now + Sheet1.[A1]/ (24*60*60)

zzh49

mxg825 发表于 2012-8-2 11:02
1秒=1/ (24*60*60)
Application.OnTime Now + 20/ (24*60*60)
Application.OnTime Now + Sheet1.[A1]/  ...

再次感谢您！真是热心肠。