Excel VBA定时弹窗提醒问题：每周一10点触发异常

问题分析 #

你的代码存在两个核心问题：

1. 依赖单元格显示文本匹配"Monday 10:00"，容易因系统区域设置、单元格格式细微差异导致判断失效；
2. 缺少"已提醒"状态标记，导致10:00整分钟内每一次操作都会触发弹窗。

完整解决方案 #

1. 核心提醒逻辑（带防重复标记） #

替换原Reminder过程，新增状态标记避免重复弹窗：

Sub Reminder()
    Dim hasReminded As Boolean
    Dim lastRemindDate As Date
    
    ' 读取标记：用Main工作表的隐藏单元格存储状态（X11/X12可自行调整）
    On Error Resume Next
    hasReminded = Sheets("Main").Range("X11").Value
    lastRemindDate = Sheets("Main").Range("X12").Value
    On Error GoTo 0
    
    ' 判断是否满足触发条件：周一10:00-10:01之间，且今日未提醒过
    If Weekday(Date, vbMonday) = 1 _
        And Time >= TimeValue("10:00:00") _
        And Time < TimeValue("10:01:00") _
        And (lastRemindDate <> Date Or Not hasReminded) Then
        
        MsgBox "Time reminder", vbInformation, "定时提醒"
        
        ' 更新标记：记录今日已提醒
        Sheets("Main").Range("X11").Value = True
        Sheets("Main").Range("X12").Value = Date
    End If
    
    ' 每日自动重置标记：如果是新的一天，清空提醒状态
    If lastRemindDate <> Date Then
        Sheets("Main").Range("X11").Value = False
        Sheets("Main").Range("X12").Value = Date
    End If
End Sub

2. 定时触发方式 #

选择以下一种方式实现自动触发：

方式A：Excel启动后自动定时（推荐）

在ThisWorkbook模块中添加代码，Excel打开后自动设置下一次提醒：

Private Sub Workbook_Open()
    ScheduleNextReminder
End Sub

Private Sub ScheduleNextReminder()
    Dim nextTriggerTime As Date
    
    ' 计算下一次提醒时间：当天10:00，若已过则设为下周一10:00
    nextTriggerTime = Date + TimeValue("10:00:00")
    If nextTriggerTime < Now Then
        nextTriggerTime = Date + 7 - Weekday(Date, vbMonday) + 1 + TimeValue("10:00:00")
    End If
    
    ' 预约定时任务
    Application.OnTime EarliestTime:=nextTriggerTime, Procedure:="Reminder", Schedule:=True
End Sub

方式B：实时操作触发（适合频繁操作场景）

在Main工作表模块中添加代码，每次切换单元格时检查时间：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Reminder
End Sub

3. 优化设置 #

• 隐藏标记单元格：右键X11/X12单元格→设置单元格格式→保护→勾选"隐藏"，再保护工作表，避免误修改标记；
• 区域适配：如果系统默认周日为一周第一天，将Weekday(Date, vbMonday)=1改为Weekday(Date)=2（VBA默认周日=1，周一=2）；
• 宏启用：确保Excel启用宏（文件→选项→信任中心→信任中心设置→宏设置→启用所有宏）。

内容的提问来源于stack exchange，提问作者Amatuer