如何根据查询的时间范围计算对应的日期

wwin80

老师好，

我想做一个动态的日期表（见附件所示）

可以根据自定义的日期范围，列出从第一天到最后一天的所有日期

非常感谢老师的帮助

一指禅62

1. Sub 测试()
   
2.     MsgBox DateAdd("d", -7, #1/15/2020#)
   
3.     MsgBox DateAdd("d", -7, Date)
   
4. End Sub

复制代码

学习一下这个函数  DateAdd

microyip

1. Sub 过去七天示例()
   
2.     Dim dDate As Date, nI As Long
   
3.     dDate = Date
   
4.     For nI = 1 To 7
   
5.         Cells(nI, 3) = dDate - 8 + nI
   
6.     Next
   
7. End Sub

复制代码

wwin80

一指禅62 发表于 2020-1-16 08:29
学习一下这个函数  DateAdd

谢谢老师提供思路

excel海

在B1单元格输入你要开始计算的日期
Sub test()
    Dim mh, i, d, dt
    Sheet1.Activate
    Dim regx
    Set regx = CreateObject("vbscript.regexp")
    regx.Pattern = "\d{1,2}"
    regx.Global = True
    Set mh = regx.Execute([a1].Value)
    dt = mh.Item(0).Value
    d = CDate([b1])
    Cells(1, 3).Resize(10000).ClearContents
    For i = dt To 1 Step -1
        Cells(dt - i + 1, 3) = Format(d - i, "yyyy-mm-dd")
    Next
End Sub

wwin80

microyip 发表于 2020-1-16 08:45

非常感谢老师的帮助

wwin80

excel海 发表于 2020-1-16 09:15
在B1单元格输入你要开始计算的日期
Sub test()
    Dim mh, i, d, dt

非常感谢老师的帮助，完美实现动态展示效果，因为我是当天查询，所以我将 b1 单元格调成了 date，完全符合我的想法，太谢谢老师了

1. Sub test()
   
2.     Dim mh, i, d, dt
   
3.     Sheet1.Activate
   
4.     Dim regx
   
5.     Set regx = CreateObject("vbscript.regexp")
   
6.     regx.Pattern = "\d{1,2}"
   
7.     regx.Global = True
   
8.     Set mh = regx.Execute([a1].Value)
   
9.     dt = mh.Item(0).Value
   
10.     d = Date
    
11.     Cells(1, 3).Resize(10000).ClearContents
    
12.     For i = dt To 1 Step -1
    
13.         Cells(dt - i + 1, 3) = Format(d - i, "yyyy-mm-dd")
    
14.     Next
    
15. End Sub

复制代码

excel海

wwin80 发表于 2020-1-16 09:25
非常感谢老师的帮助，完美实现动态展示效果，因为我是当天查询，所以我将 b1 单元格调成了 date，完全符 ...

不客气，这个计算简单，就是提取数字稍微麻烦点

wwin80

excel海 发表于 2020-1-16 09:41
不客气，这个计算简单，就是提取数字稍微麻烦点

太谢谢老师了

wwin80

excel海 发表于 2020-1-16 09:15
在B1单元格输入你要开始计算的日期
Sub test()
    Dim mh, i, d, dt

老师，非常感谢你的帮助，你能够帮助我的另外一条帖子吗 http://club.excelhome.net/thread-1518530-1-1.html

非常感谢老师