网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vba吧 关注：17,013贴子：66,459
  • 6回复贴，共1页

求助各位大佬做一个生日弹窗提醒

如图：在以后每年的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


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 6回复贴，共1页
分享到: