- 博客(0)
- 资源 (2)
空空如也
用excel vba写的日历代码
用excel vba写的日历部分代码如下
Private Sub Calendar(ByVal iyear, ByVal imonth)
For icol = 1 To 7
For irow = 3 To 8
Cells(irow, icol) = ""
Next
Next
iday = DateSerial(iyear, imonth, 1) '取得相应年月第一天的日期
irow = 3
icol = Weekday(iday) '计算该天是星期几
Do
Cells(irow, icol) = Day(iday) '在单元格填入日期
If Weekday(iday) = vbSaturday Then '星期六则的换行
irow = irow + 1
icol = 1
Else
icol = icol + 1
End If
iday = DateAdd("d", 1, iday) '日期递增
Loop While (Day(iday)) <> 1
End Sub
2011-11-13
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人