VBA日期分散排列，【求助】

tjdqls24 · 发表于 2018-5-23 11:30

日期分散排列.rar (4.38 KB, 下载次数: 10)

请哪位大神帮忙解决日期分散排列，

谢谢！

tjdqls24 · 发表于 2018-6-11 16:22

哪位大神帮帮忙哦

chxw68 · 发表于 2018-6-11 17:11

Sub test()
Dim r%, i%
Dim arr, brr
Dim rq1 As Date
Dim rq2 As Date
Dim rq As Date
With Worksheets("sheet1")
rq1 = .Range("a2")
rq2 = .Range("b2")
r = .Cells(.Rows.Count, 5).End(xlUp).Row
arr = .Range("d2:e" & r)
arr(1, 1) = rq1
arr(UBound(arr), 1) = rq2
n1 = CLng(rq1)
n2 = CLng(rq2)
For i = 2 To UBound(arr) - 1
n = n1 + Int(Rnd() * (n2 - n1 + 1))
arr(i, 1) = CDate(n)
Next
.Columns(4).NumberFormatLocal = "m月d日"
.Range("d2").Resize(UBound(arr), 2) = arr
End With
End Sub

复制代码

chxw68 · 发表于 2018-6-11 17:12

详见附件。

tjdqls24 · 发表于 2018-6-12 15:08

chxw68 发表于 2018-6-11 17:12
详见附件。

老师很高兴您能回复我，
但是我想的是在起始日期与结束日期中间整齐的排列随机日期的，
不要月份颠倒，日期颠倒。
就类似与起始日期5月13日结束日期12月25日
如下效果。
5月13日工作
5月13日工作
6月1日工作
6月5日工作
6月5日工作
6月13日工作
6月18日工作
7月2日工作
7月9日工作
7月14日工作
7月25日工作
8月6日工作
8月8日工作
8月19日工作
8月25日工作
8月25日工作
9月2日工作
9月3日工作
9月8日工作
9月8日工作
9月15日工作
9月25日工作
9月25日工作
9月29日工作
10月1日工作
10月5日工作
10月9日工作
10月12日工作
10月16日工作
11月2日工作
11月24日工作
11月30日工作
12月1日工作
12月6日工作
12月10日工作
12月11日工作
12月23日工作
12月23日工作
12月25日工作

chxw68 · 发表于 2018-6-12 15:34

tjdqls24 发表于 2018-6-12 15:08
老师很高兴您能回复我，
但是我想的是在起始日期与结束日期中间整齐的排列随机日期的，
不要月份颠倒 ...

排个序就行了。

tjdqls24 · 发表于 2018-6-12 15:43

chxw68 发表于 2018-6-12 15:34
排个序就行了。

受教了，，

谢谢老师！

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

[求助] VBA日期分散排列，【求助】