到期自动提醒代码

Awill- · 发表于 2018-10-9 10:39

麻烦帮忙看下代码哪里写错了，我需要做一个到期自动提醒弹窗功能

Private Sub Workbook_Open()
Dim arr, i, j, k
arr = Range("A1").CurrentRegion
i = UBound(arr)
For j = 2 To i
   If arr(j, 14) - Date <= 1 And arr(j, 14) - Date >= 0 Then
      MsgBox arr(j, 6) & "航班日期： " & arr(j, 4) & " 即将停止售卖，请及时下架！"
   End If
Next

End Sub

microyip · 发表于 2018-10-9 10:42

没错，只是放错位置，应该放在ThisworkBook里

Awill- · 发表于 2018-10-9 10:47

microyip 发表于 2018-10-9 10:42
没错，只是放错位置，应该放在ThisworkBook里

我放到ThisworkBook里了，没有弹窗提醒

microyip · 发表于 2018-10-9 10:50

附上附件以供参考

Awill- · 发表于 2018-10-9 10:58

可以了，是我没设置好，宏安全性设置为低就ok

Awill- · 发表于 2018-10-11 21:18

microyip 发表于 2018-10-9 10:42
没错，只是放错位置，应该放在ThisworkBook里

请问我还想优化一下，怎么实现不同的工作簿中自动弹出对话框提醒

microyip · 发表于 2018-10-12 07:39

这个不能实现一个代码解决任何工作簿打开自动提醒功能的

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

[求助] 到期自动提醒代码