Excel VBA SelectionChange事件中MsgBox重复弹出如何仅显示一次

重复弹窗由两个错误逻辑导致：

• 事件绑定错误：Worksheet_SelectionChange是选区变更触发事件，只要点击工作表内任意单元格切换选中区域就会执行，和D32的值是否发生修改无关。只要D32的值处于13~24区间，每次切换选区都会满足判断条件触发弹窗。
• 无弹窗状态标记：代码没有记录「当前值区间下是否已弹出过提示」的状态，每次事件触发只要值符合条件就会重复弹框。
  之前添加的Application.Undo作用是撤销用户操作，和控制弹窗触发频次完全无关，无法解决问题。

通过模块级变量记录弹窗状态，将判断逻辑绑定到值变更类事件上，避免选区切换触发判断，操作步骤如下：

1. 打开对应工作表的VBA代码编辑界面，在所有过程的最顶部声明模块级布尔变量，用于标记提示是否已弹出：

' 模块级变量，记录当前值区间下提示是否已展示
Dim blnAlertShown As Boolean

2. 删除原有写在Worksheet_SelectionChange中的判断逻辑，替换为以下代码，同时覆盖手动输入值、公式计算值两种D32的取值场景：

Private Sub Worksheet_Calculate()
    ' 适配D32为公式计算返回值的场景
    Call CheckD32AndAlert
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当D32单元格的值被手动修改时触发检查
    If Not Intersect(Target, Me.Range("D32")) Is Nothing Then
        Call CheckD32AndAlert
    End If
End Sub

Sub CheckD32AndAlert()
    Dim dValue As Double
    dValue = Me.Range("D32").Value
    
    If dValue > 12 And dValue < 25 Then
        ' 未弹过提示则弹出，标记为已展示
        If Not blnAlertShown Then
            MsgBox "Remember to double up on cable lengths and DP's", vbInformation, "THP Between 13 & 24"
            blnAlertShown = True
        End If
    Else
        ' 值离开目标区间时重置标记，下次进入区间可正常弹出提示
        blnAlertShown = False
    End If
End Sub

• 模块级变量blnAlertShown会在工作表代码模块的生命周期内保留状态：D32的值第一次进入13~24区间时，变量值为False，正常弹出提示后将变量设为True，后续只要值未离开该区间，无论怎么切换单元格都不会重复弹窗。
• 当D32的值调整到12及以下、25及以上时，变量自动重置为False，后续值再次进入目标区间时，提示会正常弹出一次，不会遗漏提醒。
• 移除了绑定在选区变更事件上的判断逻辑，点击任意单元格不会再触发检查逻辑。

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