VBA代码运行时消息框重复弹出问题排查求助

问题根源 #

点击消息框「是」按钮后触发循环的原因：

• 在MsgBoxYesNo过程中，执行Me.SpinButton1.Value = Worksheets("Job Tracking").Range("G1").Value时，会触发SpinButton1_Change事件，导致整个SpinButton1_Change流程重新执行，进而再次调用MsgBoxYesNo，形成循环。
• 点击「否」时未修改SpinButton1的值，不会触发Change事件，因此仅弹出一次。

修复方案 #

在修改SpinButton1的值前后，临时禁用Excel事件，避免触发Change事件循环。同时添加错误处理，防止意外导致事件保持禁用状态。

修改后的代码 #

Sub MsgBoxYesNo()
    Dim answerY As Integer
    
    answerY = MsgBox("Continue From This Job?", vbQuestion + vbYesNo, "Yes or No")
    
    If answerY = vbYes Then
        Application.EnableEvents = False
        On Error GoTo ErrorHandler
        Me.SpinButton1.Value = Worksheets("Job Tracking").Range("G1").Value
        Worksheets("Job Tracking").Range("I4") = ""
        Application.EnableEvents = True
    Else
        Worksheets("Job Tracking").Range("I4") = ""
        Call New1_Click
    End If
    
    Exit Sub
ErrorHandler:
    Application.EnableEvents = True
    MsgBox "操作出错: " & Err.Description, vbExclamation
End Sub

额外优化建议 #

• 优先选择仅在修改SpinButton1值时临时禁用事件，而非在SpinButton1_Change开头全局禁用，避免影响其他依赖该事件的代码逻辑。
• 提前校验Worksheets("Job Tracking").Range("G1")的值是否在SpinButton1的Min/Max范围内，防止设置Value时触发超出范围的错误。

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