获得一年中的所有日期以及周末

nymphetamine

我现在知道年份和月份，比如2016年，5月

我要做的事是向EXCEL的某一行填写以下内容：

2016年5月至年底所有的日期，凡遇到周六和周日，则要修改相应的CEll颜色
（不同的年份2月的日期还不同）
我应该怎么做呢，有没有一些有用的方法，无从下手，请大家帮帮忙啊

yoh2006

Private Sub Command1_Click()
    Dim dd As Date
    dd = CDate("2016-05-01")
    Do While (Year(dd) = "2016")
        If Weekday(dd, vbMonday) = 6 Or Weekday(dd, vbMonday) = 7 Then
            Debug.Print dd; "(周末)"
        Else
            Debug.Print dd
        End If
        dd = DateAdd("d", 1, dd)
    Loop
End Sub