如何在EXCEL表格中使用VBA设置一个当月最后一天自动提醒打印的信息框？

Question

如题所述

Answer 1

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追问

谢谢大神的帮助！我还想请教一下，如果想在每月最后三天每天都提醒的话要做怎样的修改呢？我是VBA初学者，谢谢大神的帮助！

追答

最后三天都提醒
Private Sub Workbook_Open()
Dim lastday As Byte
lastday = Day(DateSerial(Year(Date), Month(Date) + 1, 0))
If lastday - Day(Now()) 0 Then MsgBox "本月还有 " & lastday - Day(Now()) & " 天（不含今天），请打印"
End Sub