Private Sub Workbook_Open() Dim lastday As Byte lastday = Day(DateSerial(Year(Date), Month(Date) + 1, 0)) If Day(Now()) = lastday Then MsgBox "今天是本月最后一天，请打印"End Sub
