如何根据指定的日期范围列出所有日期行

wwin80 · 发表于 2020-1-16 09:14

老师好，

我想了解如何根据指定的日期范围列出所有日期行

详情请参老附件

附件中希望达到的效果是：

a1 单元格是可以调整的日期范围，根据 a1 单元格的日期范围，在 c 列列出所有符合条件的日期行

例如： a1 单元格我们选了过去1天，那么 c 列就会列出 2020-01-15（因为今天是2020-01-16）

例如：a1 单元格我们选了过去2天，那么 c 列就会依次列出
2020-01-14
2020-01-15

例如：a1 单元格我们选了过去7天，那么 c 列就会依次列出
2020-01-09
2020-01-10
2020-01-11
2020-01-12
2020-01-13
2020-01-14
2020-01-15

依次类推

请问通过 vba 怎么做到这点

非常感谢老师的帮助

microyip · 发表于 2020-1-16 09:22

我去，不是已经给了你示例代码了吗？你修改使用就好啦

wwin80 · 发表于 2020-1-16 09:29

microyip 发表于 2020-1-16 09:22
我去，不是已经给了你示例代码了吗？你修改使用就好啦

老师好，非常感谢老师帮助，因为前面的帖子是昨晚发的，早上还没有得到回复，所以我又开了一条帖子，又让老师看到了，谢谢老师

3190496160 · 发表于 2020-1-16 09:33

Sub test()
Dim i As Date
m = Val(Mid([a1], 3, Len([a1]) - 3))
Columns(3) = Empty
For i = Date - m To Date - m + m - 1
n = n + 1
Cells(n, 3) = i
Next i
End Sub

wwin80 · 发表于 2020-1-16 09:39

3190496160 发表于 2020-1-16 09:33
Sub test()
Dim i As Date
m = Val(Mid([a1], 3, Len([a1]) - 3))

非常感谢老师提供帮助

一指禅62 · 发表于 2020-1-16 09:40

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim jg%, n%
Select Case Target.Value
Case Is = "过去1天": jg = -1
Case Is = "过去7天": jg = -7
Case Is = "过去15天": jg = -15
Case Is = "未来15天": jg = 15
End Select
ReDim a(1 To Abs(jg))
Dim t1 As Date, t2 As Date, t As Date
If jg < 0 Then
t1 = DateAdd("d", jg, Date): t2 = Date
Else
t1 = Date: t2 = DateAdd("d", jg, Date)
End If
For t = t1 To t2 - 1
n = n + 1: a(n) = t
Next
Range("C:C") = ""
Range("C1").Resize(Abs(jg), 1) = WorksheetFunction.Transpose(a)
End If
End Sub

复制代码

一指禅62 · 发表于 2020-1-16 09:42

工作簿.rar (12.74 KB, 下载次数: 9)

cui26896 · 发表于 2020-1-16 10:08

借花献佛，用了

microyip

老师的代码，加了一句。

Sub test()
Dim dDate As Date, nI As Long, k
dDate = Date
k = Mid([a1], 3, 1)
For nI = 1 To k
Cells(nI, 3) = dDate - 8 + nI
Next
End Sub

如何根据指定的日期范围列出所有日期行.zip (16.68 KB, 下载次数: 13)

wwin80 · 发表于 2020-1-16 10:15

一指禅62 发表于 2020-1-16 09:40

非常感谢老师的帮助

wwin80 · 发表于 2020-1-16 10:28

一指禅62 发表于 2020-1-16 09:40

老师，可惜今天没有鲜花，你的代码100%符合我的要求，谢谢老师了

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

[求助] 如何根据指定的日期范围列出所有日期行

评分