VBA用户表单中MsgBox点击No后重复弹出问题求助

你的代码问题出在当用户选择「No」时，直接跳回了判断逻辑，但此时批次总重量和设定重量的数值没有任何变化，所以条件Total > q依然成立，导致弹窗反复触发。

正确的逻辑应该是：当用户点击「No」时，直接退出当前的按钮点击事件，让用户回到表单修改数量，而不是继续循环判断。修改后的代码如下：

Private Sub CommandButton1_Click()     'Proceed! Button
    Dim answer As Integer
    Dim q As Double
    Dim Total As Double
    
    ' 获取设定重量（用CDbl替代Val，处理小数更准确）
    q = CDbl(Left(Label2.Caption, 5))
    ' 计算批次总重量
    Total = BatchTotal1 + BatchTotal2 + BatchTotal3 + BatchTotal4 + BatchTotal5
    
    If Total > q Then
        answer = MsgBox("批次总重量超过了初始设定值，是否继续？", vbQuestion + vbYesNo)
        ' 选择Yes才执行后续代码，选择No则直接退出事件
        If answer <> vbYes Then Exit Sub
    End If
    
    ' 后续执行的代码放在这里
    ' Another code
End Sub

关键修改点： #

• 移除了GoTo语句，改用Exit Sub在用户选择「No」时直接退出按钮点击事件，让用户可以自由修改表单内容
• 给变量q和Total加上明确的类型声明，避免隐式类型带来的潜在错误
• 把Val替换为CDbl，对小数数值的解析更精准

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