求助大神指点【VBA】员工【生日提醒】弹框无内容

kelly88920 · 发表于 2020-7-7 15:53

各位大神！一个员工入职生日提醒的弹框代码，借鉴的别人的，研究完对应都调了参数，但是只出提醒标题，不出内容，研究好久，实在检查不出哪里的问题，请各位大神指点迷津！感谢！为方便各位大神帮忙调试，附件已上传！

shuidisyy · 发表于 2020-7-7 19:28

你的表里UsedRange是从a1开始的，你取值是从D列开始的，对不上，改一下arr的范围就好了。
irow = Sheet3.Range("g" & Rows.Count).End(3).Row
arr = Sheet3.Range("d11:ac" & irow)

金樽空对月 · 发表于 2020-7-7 23:23

原因有3，如下，请自行对照解决
1、数组的赋值范围有问题
2、日期的算法貌似不正确
3、所给的日期数据当中，貌似没有符合条件的

金樽空对月 · 发表于 2020-7-7 23:55

详见附件，请查阅

		自动登录	找回密码
密码			注册