如何解决要列出来自VBA代码的日期,请写出开始日期和结束日期,并按月递增
这是我第一次在这里写,对此感到非常高兴,
现在我有一个excel文件,我尝试放置开始日期和结束日期,并在范围内键入此日期之间的日期...,以免产生示例
我尝试使用此代码
Sub datetest()
Dim x,y,z,v,a,b As Range
Set x = Cells.Range("k2")
Set y = Cells.Range("l2")
Set z = Cells.Range("m2")
Set v = Cells.Range("n2")
Set a = Cells.Range("o2")
Set b = Cells.Range("p2")
Dim startDate As Date
Dim endDate As Date
startDate = DateSerial(x,z)
endDate = DateSerial(v,b)
Dim i As Integer
i = 1
While startDate <= endDate
Cells(i,1) = startDate
startDate = startDate + 31
i = i + 1
Wend
End Sub
when i run the code,it type the dates good .
我的问题是,我现在添加31天,并且日期不正确,
start date 1-3-2020
end date 1-3-2021
结果显示日期格式为ddd - mmm - yyyy
1-3-2020
1-4-2020
1-5-2020
1-6-2020
1-7-2020
然后继续直到
1-3-2021
再次感谢您的光临
解决方法
尝试一下:
Sub datetest()
Dim x,y,z,v,a,b As Range
Set x = Cells.Range("k2")
Set y = Cells.Range("l2")
Set z = Cells.Range("m2")
Set v = Cells.Range("n2")
Set a = Cells.Range("o2")
Set b = Cells.Range("p2")
Dim startDate As Date
Dim endDate As Date
startDate = DateSerial(x,z)
endDate = DateSerial(v,b)
Dim i As Integer
i = 1
While startDate <= endDate
Cells(i,1) = startDate
startDate = DateSerial(Year(startDate),Month(startDate) + 1,Day(startDate))
i = i + 1
Wend
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。