如图：在以后每年的6月27日和7月27日【提前2天】开始弹出窗体提醒生日，超过29日则停止弹窗。谢谢！

首先如何打开时启动
Private Sub Workbook_Open()
或
Sub Auto_Open()
然后如何获取系统日期Date
时间Time，
Now
最后日期如何比较大小

你这个，最好是建立一个，系统自动任务，开机就自动运行的程序，用这个命令检索，表格的信息，然后到期提醒

datediff 判断日期差几天。
不过excel文件你不打开，也不会提醒，建议使用系统日程 或使用常驻内存程序实现

你想怎么弹？

sub 生日提醒()
dim arr,i,d1,d2
arr=activesheet.usedrange
for i=2 to ubound(arr)
d1=dateserial(year(now),month(arr(i,2)),day(arr(i,2)))-2
d2=d1+4
if now()>=d1 and now()<=d2 then msgbox "近期 " & arr(i,1) & " 的要过生日"
next i
end sub