欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 关于sleep请教

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5711人关注过本帖树形打印复制链接

主题:关于sleep请教

帅哥哟,离线,有人找我吗?
onlylovexue
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:475 威望:0 精华:0 注册:2012/2/29 14:13:13
关于sleep请教  发帖心情 Post By:2012/3/23 13:56:42 [只看该作者]

版主  你好

请问下 在VBA中 如何实现睡眠 ?  用sleep函数吗 ?


 回到顶部
帅哥哟,离线,有人找我吗?
rushtaotao
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 czt
等级:蜘蛛侠 帖子:1445 积分:6114 威望:0 精华:3 注册:2012/1/16 10:31:19
  发帖心情 Post By:2012/3/23 14:11:40 [只看该作者]

稍后工作人员给出回复

 


 回到顶部
帅哥哟,离线,有人找我吗?
Leon
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:金字塔养老院 帖子:509 积分:2425 威望:0 精华:0 注册:2012/3/2 12:50:05
  发帖心情 Post By:2012/3/23 15:47:40 [只看该作者]

楼主指的睡眠是不是多线程中的挂起线程操作?能具体讲讲是什么意思吗

 回到顶部
帅哥哟,离线,有人找我吗?
Leon
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:金字塔养老院 帖子:509 积分:2425 威望:0 精华:0 注册:2012/3/2 12:50:05
  发帖心情 Post By:2012/3/23 15:54:22 [只看该作者]

//仅供参考

在程序的Sub前加一句

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

就可以调用Sleep了

 

如下,可以暂停10秒.

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime


 回到顶部
帅哥哟,离线,有人找我吗?
onlylovexue
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:475 威望:0 精华:0 注册:2012/2/29 14:13:13
  发帖心情 Post By:2012/3/23 15:59:59 [只看该作者]

不是多线程的  在VBA中  做For的 时候 由于执行速度太快了 想睡眠一下  让其执行慢点

 回到顶部
帅哥哟,离线,有人找我吗?
Leon
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:金字塔养老院 帖子:509 积分:2425 威望:0 精华:0 注册:2012/3/2 12:50:05
  发帖心情 Post By:2012/3/23 16:04:50 [只看该作者]

其实意思差不多,VBA这块我之前没接触过,在网上帮楼主找了一下,看看这堆代码和for能不能同用来解决问题

newHour = Hour(Now())

newMinute = Minute(Now()) //上面两句这个应该是new了一个当前时间

newSecond = Second(Now()) + 10 //这句应该是当前时间停顿10s
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime  //执行等待


 回到顶部
帅哥哟,离线,有人找我吗?
onlylovexue
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:66 积分:475 威望:0 精华:0 注册:2012/2/29 14:13:13
  发帖心情 Post By:2012/3/23 16:07:05 [只看该作者]

在金字塔的VBA中 没有提供application.Wait  我也不知道如何调用睡眠  

 回到顶部
帅哥哟,离线,有人找我吗?
Leon
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:金字塔养老院 帖子:509 积分:2425 威望:0 精华:0 注册:2012/3/2 12:50:05
  发帖心情 Post By:2012/3/23 16:27:40 [只看该作者]

http://www.weistock.com/bbs/dispbbs.asp?boardid=2&Id=370

看看这里有没有能帮到你的


 回到顶部