标题：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、因为我运行不出来，不清楚这计时器的代码写的是否正确。

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

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

有了 有了  代码修改了下