[已解决]请教随机函数跟随时间变化

铁雀

比如设定每间隔6秒显示随机函数，求解函数设定方法，vba俺还不会

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-8-11 21:18

1. 
   
2. Sub SetTime()
   
3. Application.OnTime Now + TimeValue("00:00:06"), "sheet1.SetTime"
   
4. '需要你添加的代码
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Activate()
   
8. SetTime
   
9. End Sub

复制代码

将这段代码放到SHEET1里，那么就可以在SHEET1激活的时候每隔6秒钟运行下SetTime的代码了。

跳转到最佳答案楼层

youfang

不明白，具体说明

蝶·舞

这个还真得用VBA

铁雀

必须用vba，请问有做好的代码吗？？？我学学

放浪形骸

好像上次给别人讲了下，用“Application.OnTime”函数

放浪形骸

1. 
   
2. Sub SetTime()
   
3. Application.OnTime Now + TimeValue("00:00:06"), "sheet1.SetTime"
   
4. '需要你添加的代码
   
5. End Sub
   
6. 
   
7. Private Sub Worksheet_Activate()
   
8. SetTime
   
9. End Sub

复制代码

将这段代码放到SHEET1里，那么就可以在SHEET1激活的时候每隔6秒钟运行下SetTime的代码了。