网页
资讯
视频
图片
知道
文库
贴吧
地图
采购
进入贴吧
全吧搜索
吧内搜索
搜贴
搜人
进吧
搜标签
日
一
二
三
四
五
六
签到排名:今日本吧第
个签到,
本吧因你更精彩,明天继续来努力!
本吧签到人数:0
一键签到
成为超级会员,使用一键签到
一键签到
本月漏签
0
次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行
补签
。
连续签到:
天 累计签到:
天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
09月01日
漏签
0
天
vba吧
关注:
16,871
贴子:
65,679
看贴
图片
吧主推荐
游戏
6
回复贴,共
1
页
<<返回vba吧
>0< 加载中...
求助各位大佬做一个生日弹窗提醒
只看楼主
收藏
回复
A8淡墨青衫A8
仗剑天涯
3
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
如图:在以后每年的6月27日和7月27日【提前2天】开始弹出窗体提醒生日,超过29日则停止弹窗。谢谢!
天之坦克杀手
名震江湖
13
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
首先如何打开时启动
Private Sub Workbook_Open()
或
Sub Auto_Open()
然后如何获取系统日期Date
时间Time,
Now
最后日期如何比较大小
吃包辣条
武林新贵
8
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
你这个,最好是建立一个,系统自动任务,开机就自动运行的程序,用这个命令检索,表格的信息,然后到期提醒
tmtony
吧主
11
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
datediff 判断日期差几天。
不过excel文件你不打开,也不会提醒,建议使用系统日程 或使用常驻内存程序实现
贴吧用户_a6GANP5
初涉江湖
1
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
你想怎么弹?
阳光上的桥
后起之秀
7
该楼层疑似违规已被系统折叠
隐藏此楼
查看此楼
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
看高清直播、视频!
贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示