自动填充所在单元格月份的所有日期

ruhong18

如何自动填充所在单元格月份的所有日期？

hfwufanhf2006

yue = Cells(1, 1)               '读取a1的月份
If yue = 2 Then                '如果是2月
   nian = Year(Now)
   If nian Mod 400 = 0 Or nian Mod 4 = 0 Then    '判断是否是闰月，闰月29天，其他则是28天
      ri = 29
   Else
      ri = 28
   End If
End If
If (yue = 1) Or (yue = 3) Or (yue = 5) Or (yue = 7) Or (yue = 8) Or (yue = 10) Or (yue = 12) Then   '大月31天
   ri = 31
End If
If (yue = 4) Or (yue = 6) Or (yue = 9) Or (yue = 11) Then  '小月30天
   ri = 30
End If

Range("a3:a33").ClearContents   '清除之前的内容
For i = 1 To ri                           '循环写入日期
    Cells(i + 2, 1) = yue & "月" & i & "日"
Next i

ruhong18

hfwufanhf2006 发表于 2020-3-10 11:18
yue = Cells(1, 1)               '读取a1的月份
If yue = 2 Then                '如果是2月
   nian =  ...

感谢再次相助~

大灰狼1976

Sub test()

1. Dim n&, y&, m&, d As Date
   
2. d = [a1]: y = Year(d): m = Month(d)
   
3. n = DateSerial(y, m + 1, 0) - DateSerial(y, m, 0)
   
4. [a3].Resize(31) = ""
   
5. [a3].Resize(n) = Evaluate("""" & Format(d, "yyyy/m/") & """&row(1:" & n & ")")
   
6. End Sub

复制代码

大灰狼1976

1. Sub test()
   
2. Dim n&, y&, m&, d As Date
   
3. d = [a1]: y = Year(d): m = Month(d)
   
4. n = DateSerial(y, m + 1, 0) - DateSerial(y, m, 0)
   
5. [a3].Resize(31) = ""
   
6. [a3].Resize(n) = Evaluate("""" & Format(d, "yyyy/m/") & """&row(1:" & n & ")")
   
7. End Sub

复制代码

cui26896

跟着老师脚步，总能学到自己不知道的东西！谢谢老师！

cui26896

对Evaluate("""" & Format(d, "yyyy/m/") & """&row(1:" & n & ")")还是有些不太理解。对Evaluate数学计算式文本，还比较直观，但换到这里好象有些绕。

大灰狼1976

那换个简单的以方便理解。[a1:a10] = ["2020/3/" & row(1:10)]

cui26896

对应一个数组，这就好理解了，谢谢老师的指点！