|
楼主 |
发表于 2020-1-16 09:25
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
非常感谢老师的帮助,完美实现动态展示效果,因为我是当天查询,所以我将 b1 单元格调成了 date,完全符合我的想法,太谢谢老师了
- 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 = Date
- 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
复制代码 |
|