Excel宏MsgBox重复弹出问题：如何实现仅触发一次提示？

方案一：仅触发一次提示 #

可以通过静态变量记录提示是否已弹出，只有当Q5首次超过15且未触发过提示时，才弹出消息框。修改后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 静态变量，工作表未关闭时会保留状态
    Static hasAlerted As Boolean
    
    ' 先判断目标是否关联Q5，减少无效执行
    If Not Intersect(Target, Range("Q5")) Is Nothing Or Range("Q5").Value > 15 Then
        If Range("Q5").Value > 15 And Not hasAlerted Then
            MsgBox "Please submit write-off form"
            hasAlerted = True
        ' 若Q5值回落至15及以下，重置提示状态
        ElseIf Range("Q5").Value <= 15 Then
            hasAlerted = False
        End If
    End If
End Sub

如果担心工作表关闭后状态丢失，也可以用隐藏单元格存储状态（比如用Z1单元格并设置为隐藏）：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim hasAlerted As Boolean
    ' 读取隐藏单元格的状态，默认未提示
    hasAlerted = IIf(Range("Z1").Value = "Alerted", True, False)
    
    If Range("Q5").Value > 15 And Not hasAlerted Then
        MsgBox "Please submit write-off form"
        Range("Z1").Value = "Alerted"
    ElseIf Range("Q5").Value <= 15 Then
        Range("Z1").ClearContents
    End If
End Sub

方案二：设置时间间隔后再检查 #

如果需要首次提示后，间隔指定时间（比如30分钟）才再次触发提示，可以结合Application.OnTime和静态变量记录上次提示时间：

Private Sub Worksheet_Change(ByVal Target As Range)
    Static lastAlertTime As Date
    ' 设置间隔为30分钟，可自行修改（1440是一天的分钟数）
    Const ALERT_INTERVAL As Double = 30 / 1440
    
    If Range("Q5").Value > 15 Then
        ' 首次提示，或距离上次提示已超过设定间隔
        If lastAlertTime = 0 Or Now() - lastAlertTime > ALERT_INTERVAL Then
            MsgBox "Please submit write-off form"
            lastAlertTime = Now()
        End If
    Else
        ' Q5值回落时重置上次提示时间
        lastAlertTime = 0
    End If
End Sub

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