用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