[已解决]请问各位 如何自动生成“日期”、“月份第几周” 用函数或VBA

byhdch

请问各位 如何自动生成“日期”、“月份第几周” 用函数或VBA

最佳答案

月排行榜 / 总排行榜

Zipall

2011-8-12 20:08

回复 byhdch 的帖子

Sub test()
    r = 1
    For i = DateValue("2011-1-7") To DateValue("2011-12-31") Step 7
        r = r + 1
        Cells(r, 2) = Format(i, "mm.dd-") & Format(i + 6, "mm.dd")
        If Month(i) = Month(i - 7) Then m = m + 1 Else m = 1
        Cells(r, 3) = Format(i, "m月第") & m & "周"
    Next
End Sub

跳转到最佳答案楼层

那么的帅

回复 byhdch 的帖子

就生成这些吗？
还是根据条件生成日期？

byhdch

回复 那么的帅 的帖子

条件就是这些：自动生成日期、月第几周，要求做出全年的日期、月、周         谢谢

Zipall

回复 byhdch 的帖子

Sub test()
    r = 1
    For i = DateValue("2011-1-7") To DateValue("2011-12-31") Step 7
        r = r + 1
        Cells(r, 2) = Format(i, "mm.dd-") & Format(i + 6, "mm.dd")
        If Month(i) = Month(i - 7) Then m = m + 1 Else m = 1
        Cells(r, 3) = Format(i, "m月第") & m & "周"
    Next
End Sub

dong66094799

回复 Zipall 的帖子

你太棒了!!!!!!!!!

yelangge

进来学习一下！！！！