多玩家积分触发UserForm显示的VBA Worksheet_Calculate逻辑问题

现有代码未记录玩家积分档位的历史状态，每次工作表触发计算时都会全量校验所有玩家的当前积分，只要满足区间就触发弹窗，因此会出现重复弹窗、多玩家同时满足条件时多次弹窗的问题。

通过模块级变量存储每个玩家上一次的积分档位，仅当本次校验的档位和历史档位不一致、且档位达标时才触发对应弹窗，两个玩家的校验逻辑完全独立互不影响。

首先在工作表代码模块的顶部（所有Sub之前）声明模块级变量：

' 存储玩家1、玩家2上一次的积分档位，初始默认值为0（对应积分<50）
Dim lastTierA As Integer
Dim lastTierB As Integer

然后替换你的Worksheet_Calculate事件代码：

Private Sub Worksheet_Calculate()
    Dim currentTierA As Integer, currentTierB As Integer
    
    ' 校验玩家1（A1）
    If IsNumeric(Range("A1").Value) Then
        currentTierA = Range("A1").Value \ 50
        ' 仅档位发生变化且达标时弹窗
        If currentTierA <> lastTierA And currentTierA >= 1 Then
            ' 动态调用对应UserForm，无需写多段区间判断
            UserForms.Add("UserForm" & currentTierA).Show
            lastTierA = currentTierA
        End If
    End If
    
    ' 校验玩家2（B1），逻辑完全独立
    If IsNumeric(Range("B1").Value) Then
        currentTierB = Range("B1").Value \ 50
        If currentTierB <> lastTierB And currentTierB >= 1 Then
            UserForms.Add("UserForm" & currentTierB).Show
            lastTierB = currentTierB
        End If
    End If
End Sub

• 档位计算规则积分 \ 50刚好匹配需求：50-99对应档位1（弹出UserForm1）、100-149对应档位2（弹出UserForm2），最高1000分对应档位20，无需手动编写多段区间判断逻辑
• 两个玩家的校验逻辑完全独立，不会因为玩家1满足条件就影响玩家2的弹窗触发，也不会出现单玩家满足条件无法弹窗的问题
• 只有档位发生变化时才会触发一次弹窗，后续只要积分没有跨档位，就算工作表多次计算也不会重复弹窗
• 后续新增玩家仅需新增对应存储档位的模块变量，复制一套校验逻辑修改单元格引用即可

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