如何设置excel自动弹窗提示？

rufo · 发表于 2013-6-3 21:06

设定好日期，然后设置好弹窗的天数，当到达天数后，会自动弹出窗口提示到期了。请高人指点，谢谢！

Book1.rar (23.44 KB, 下载次数: 91)

doitbest · 发表于 2013-6-4 08:44

Private Sub Workbook_Open()
Dim ar
ar = Array(Sheet1.[a2] + Sheet1.[b2], Sheet1.[a2] + Sheet1.[c2], Sheet1.[a2] + Sheet1.[d2])
If InStr(Join(ar, ","), CStr(Date)) > 0 Then
MsgBox "2009-11-3此合同已到期！"
End If
End Sub

rufo · 发表于 2013-6-4 09:38

doitbest 发表于 2013-6-4 08:44
Private Sub Workbook_Open()
Dim ar
ar = Array(Sheet1.[a2] + Sheet1., Sheet1.[a2] + Sheet1. ...

不好意思，不知如何使用，请高手按我的所说的进行设置。

doitbest · 发表于 2013-6-4 09:46

请参考附件

rufo · 发表于 2013-6-9 09:34

doitbest 发表于 2013-6-4 09:46
请参考附件

谢谢高手的指点！！请问如何设置在所有的表格中都适用？只要在指定的日期与设置的天数相符，就会弹出窗口。

doitbest · 发表于 2013-6-9 09:40

一个工作薄的所有表格中都适用？

rufo · 发表于 2013-6-10 21:25

doitbest 发表于 2013-6-9 09:40
一个工作薄的所有表格中都适用？

是的，谢谢

doitbest · 发表于 2013-6-12 10:41

请参考附件

绿色心情小天使 · 发表于 2018-4-17 21:03

doitbest 发表于 2013-6-12 10:41
请参考附件

附件表中可以帮我弄下吗？非常感谢！

到期弹窗提醒.rar (13.48 KB, 下载次数: 68)

godmaster888 · 发表于 2020-1-9 11:40

非常需要！！

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

[求助] 如何设置excel自动弹窗提示？

评分