产生的随机数据横排，新一次产生随机数时，前面产生的数据不变动

午夜怨曲

如图和附件。感谢各位老师们的解答。

午夜怨曲

朱荣兴 发表于 2019-3-16 14:23
附件打不开，请重新上传

老师您好，已经重新上存了

午夜怨曲

感谢…………

午夜怨曲

有哪位老师在看到的么，帮忙解答一下感谢

719404338

1. Sub t()
   
2. Dim i, d
   
3. Application.OnTime Now + TimeValue("0:0:30"), "t"
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Do
   
6. d(WorksheetFunction.RandBetween(1, 10)) = ""
   
7. If d.Count = 10 Then Exit Do
   
8. Loop
   
9. i = [c65536].End(3).Row
   
10. Range("c" & i + 1).Resize(1, 10) = d.keys
    
11. End Sub
    

复制代码

午夜怨曲

719404338 发表于 2019-3-16 16:14

感谢老师，但是执行一次就动一下，执行一次就动一下，能不能改为执行一次之后，就不停的执行。

719404338

30秒执行一次。

午夜怨曲

719404338 发表于 2019-3-16 16:22
30秒执行一次。

好的。感谢老师。那再请教一下，可以把这个30秒，用一个输入消息框来设置么。

719404338

1. Sub t()
   
2. Dim i, d
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Do
   
5. d(WorksheetFunction.RandBetween(1, 10)) = ""
   
6. If d.Count = 10 Then Exit Do
   
7. Loop
   
8. i = [c65536].End(3).Row
   
9. Range("c" & i + 1).Resize(1, 10) = d.keys
   
10. End Sub
    
11. 
    
12. Sub tt()
    
13. Dim t As Date
    
14. t = InputBox("请输入间隔的时间（00:00:00）:")
    
15. Application.OnTime Now + t, "t"
    
16. End Sub

复制代码