[已解决]想用VBA生成-组随机时间

yunll · 发表于 2017-2-23 12:25

本帖最后由爱疯于 2017-2-24 08:58 编辑

想用VBA生成-组随机时间要求后面的时间晚于前面3-5分钟格式为 10/25/52 2016/12/14

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-23 15:28

Sub tt()
n = 10 '生成10组
ReDim arr(1 To n, 1 To 1)
arr(1, 1) = Now
For i = 2 To n
p = Rnd * 3 + 3 '生成3--5的随机数
arr(i, 1) = arr(i - 1, 1) + p / 60 / 24
Next
For i = 1 To n
arr(i, 1) = Format(arr(i, 1), "hh/mm/ss yyyy/mm/dd")
Next
[a1].Resize(n) = arr
End Sub

复制代码

跳转到最佳答案楼层

grf1973 · 发表于 2017-2-23 15:28

这个最佳答案由 grf1973 给出，感谢 grf1973 的回答。

单击隐藏图章

Sub tt()
n = 10 '生成10组
ReDim arr(1 To n, 1 To 1)
arr(1, 1) = Now
For i = 2 To n
p = Rnd * 3 + 3 '生成3--5的随机数
arr(i, 1) = arr(i - 1, 1) + p / 60 / 24
Next
For i = 1 To n
arr(i, 1) = Format(arr(i, 1), "hh/mm/ss yyyy/mm/dd")
Next
[a1].Resize(n) = arr
End Sub

复制代码

yunll · 发表于 2017-2-24 13:33

grf1973 发表于 2017-2-23 15:28

谢谢啊那我想从A列第二行开始生成我指定的起始时间，每隔9行生成一个时间总共要生成35个怎么弄啊大神

grf1973 · 发表于 2017-2-24 13:46

Sub tt()
n = 35 '生成35组
ReDim arr(1 To 9 * n, 1 To 1)
arr(1, 1) = CDate("2014-10-1 20:10:36") '指定时间
For i = 2 To n
p = Rnd * 3 + 3 '生成3--5的随机数
k = 9 * i - 8
arr(k, 1) = arr(k - 9, 1) + p / 60 / 24
Next
[a2].Resize(9 * n) = arr
[a2].Resize(9 * n).NumberFormatLocal = "hh/mm/ss yyyy/mm/dd"
End Sub

复制代码

yunll · 发表于 2017-2-24 14:19

本帖最后由 yunll 于 2017-2-24 15:08 编辑

grf1973 发表于 2017-2-23 15:28

yunll · 发表于 2017-2-24 15:07

grf1973 发表于 2017-2-23 15:28

Sub test()
Dim rq As Date
rq = InputBox("请输入时间：")
n = 35
ReDim arr(1 To n, 1 To 1)
    arr(1, 1) = rq
For i = 2 To n
      p = Rnd * 3 + 3
      arr(i, 1) = arr(i - 1, 1) + p / 60 / 24
Next
For i = 1 To n
      arr(i, 1) = Format(arr(i, 1), "hh/mm/ss yyyy/mm/dd")
Next
For m = 1 To 35
Range("a" & (m - 1) * 9 + 2) = arr(m, 1)

Next
End Sub
红色是我加的不知道怎么改运行不了

grf1973 · 发表于 2017-2-27 09:45

测试了一下，可以运行的。不过得输入正确的日期格式。比如我输入 2017-1-1 10:22:11 就是可以运行的。

		自动登录	找回密码
密码			注册