时间戳

首页 > 解决方案 > 每周重复的提醒消息，直到用户执行操作

excel - 每周重复的提醒消息，直到用户执行操作

问题描述

我开发了一个插件来每周清除旧项目文件。

我希望我的提醒表单每天在用户的 PC 上弹出一次（在加载加载项/打开 Excel 时），直到他们运行清除子。运行清除后，提醒应仅在一周后弹出。

我想创建一个提醒日志文件并测试它的当前日期/时间，但这似乎是一个自己的项目。

关于好方法/示例代码的任何想法？

标签： excelvba

解决方案

所以我设法使用@HarassedDad 的解决方案做到了这一点（谢谢）

Sub checkReminder()
Dim dateLastPurge, dateLastReminder As Date

dateLastPurge = ThisWorkbook.Sheets(1).Range("A1").Value
dateLastReminder = ThisWorkbook.Sheets(1).Range("A2").Value

If ((Date - dateLastPurge) > 6) And ((Date - dateLastReminder) > 0) Then
    MsgBox "Please note that you have not purged your files in the last 7 days. A purge is overdue.", vbExclamation, "Purge Overdue"
    ThisWorkbook.Sheets(1).Range("A2").Value = Date
    Main.Show
End If
End Sub

推荐阅读