问获取日期范围内的所有月份和年份VBA
EN

Stack Overflow用户

提问于 2019-08-14 13:04:13

回答 1查看 512关注 0票数 0

示例用户输入‘startdate’= 2017年7月，‘enddate’=2019年3月。我已经能够通过使用>startdate & <enddate将其输入到过滤器中，但需要以这种方式填充数字。

如何在工作表上列出两者之间的所有月份和年份？

July 2017
August 2017
September 2017
...
March 2019

excel

vba

回答 1

Stack Overflow用户

回答已采纳

发布于 2019-08-14 13:22:00

一种简单的方法是在两个日期之间循环遍历每个月：

Dim tempDate As Date: tempDate = Sheet1.Cells(1, 1).Value
Dim endDate As Date: endDate = Sheet1.Cells(1, 2).Value

Dim i As Integer: i = 3

Do While tempDate < endDate
    Sheet1.Cells(i, 1).Value = MonthName(DatePart("m", tempDate)) & " " & DatePart("yyyy", tempDate)
    tempDate = DateAdd("m", 1, tempDate)    
    i = i + 1
Loop

票数 2

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/57488420

复制

相似问题

问获取日期范围内的所有月份和年份VBA
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问获取日期范围内的所有月份和年份VBAEN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问获取日期范围内的所有月份和年份VBA
EN