以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VBA 计时器问题  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=171346)
--  作者：www532412596
--  发布时间：2019/7/30 10:06:45
--  VBA 计时器问题

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
--  发布时间：2019/7/31 9:27:39
--  
你执行timestart这个sub过程就行了，他会去调用计时器进而执行其他程序
--  作者：www532412596
--  发布时间：2019/7/31 10:36:45
--  

我执行之后并没有任何的反应
--  作者：www532412596
--  发布时间：2019/7/31 10:41:48
--  
有了 有了  代码修改了下