© 1999-2048 dssz.net 粤ICP备11031372号
[互联网] 用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)<yunqirl> 上传 | 大小:26kb