|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub EnterDates5() '获取当前月份的所有日子
- Dim TheDate As Date, TheDateend As Date, arr, row1 As Long
- TheDate = DateSerial(Year(Date), [a1], 1) '获取当日所在月份的第一天的日期
- If [a1] = 12 Then
- TheDate = DateSerial(Year(Date) + 1, 1, 1) - 1
- Else
- TheDateend = DateSerial(Year(Date), [a1] + 1, 1) - 1
- End If
- ReDim arr(1 To Day(TheDateend), 1 To 1) As Date
- For i = 1 To Day(TheDateend)
- arr(i, 1) = TheDate + i - 1
- Next
- Range("A3:A33").Clear
- Range("A3").Resize(UBound(arr), 1) = arr
- Range("A3:A33").NumberFormat = "m""月""d""日"";@"
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|