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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → VBA 计时器问题

   

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


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

主题:VBA 计时器问题

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


加好友 发短信
等级:新手上路 帖子:58 积分:0 威望:0 精华:0 注册:2019/6/24 16:16:19
VBA 计时器问题  发帖心情 Post By:2019/7/30 10:06:45 [只看该作者]

sub timestart
call Application.SetTimer(0,5*1000)
end sub

 
sub acc
dim i
i=0
call order.account2(28,60007970)
i=order.account2(28,60007970)
MsgBox "市值为"&i
end sub

 

Sub timend
 call application.killtimer(0)
msgbox "一次循环结束"
End Sub

 

目的 每5秒读取指定账户的市值,然后输出出来。

 

现在有两个问题。

1、我不知道如何运行这个模块,  只会运行一个宏,这样就不会有完整的效果。  想知道怎么让这些宏一个个运行?

2、因为我运行不出来,不清楚这计时器的代码写的是否正确。


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


加好友 发短信
等级:超级版主 帖子:21598 积分:0 威望:0 精华:1 注册:2010/7/31 16:35:30
  发帖心情 Post By:2019/7/31 9:27:39 [只看该作者]

你执行timestart这个sub过程就行了,他会去调用计时器进而执行其他程序


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


加好友 发短信
等级:新手上路 帖子:58 积分:0 威望:0 精华:0 注册:2019/6/24 16:16:19
  发帖心情 Post By:2019/7/31 10:36:45 [只看该作者]

我执行之后并没有任何的反应


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


加好友 发短信
等级:新手上路 帖子:58 积分:0 威望:0 精华:0 注册:2019/6/24 16:16:19
  发帖心情 Post By:2019/7/31 10:41:48 [只看该作者]

有了 有了  代码修改了下

 回到顶部