Excel VBA：MsgBox(vbOkCancel)逻辑异常问题求助

问题场景 #

需要实现一个仅在窗口缩放级别为200%时才启动的VBA过程，逻辑要求：

• 若当前缩放已是200%，直接执行核心过程
• 若不是200%，弹出提示框让用户选择：点击「确定」则将缩放改为200%并执行过程；点击「取消」则直接退出，不做任何操作

原代码问题 #

原代码仅在缩放为200%时执行核心逻辑，当缩放不符合条件时，仅弹出提示框却未处理用户的选择，也没有在用户选择「确定」后执行核心过程；此外Else分支里的ActiveWindow.Zoom = 200属于冗余代码（此时已经满足缩放等于200的条件）。

修正后的代码 #

Sub AddChart()
    Dim response As VbMsgBoxResult
    
    ' 检查缩放级别
    If ActiveWindow.Zoom <> 200 Then
        response = MsgBox("请将窗口缩放设置为200%", vbOKCancel)
        ' 根据用户选择处理
        If response = vbCancel Then
            ' 用户选择取消，直接退出
            Exit Sub
        Else
            ' 用户选择确定，设置缩放为200%
            ActiveWindow.Zoom = 200
        End If
    End If
    
    ' 核心过程：缩放符合条件（或用户已确认设置后）执行以下逻辑
    Dim ws As Worksheet
    Set ws = ActiveSheet
    With ws
        ' 这里写入你的核心代码（比如创建图表的逻辑）
        ' ...
    End With
End Sub

逻辑说明 #

1. 首先判断当前缩放是否不等于200%，若是则弹出提示框并捕获用户的选择
2. 用户选择「取消」时，直接退出过程；选择「确定」时，将缩放设为200%
3. 无论初始缩放是否符合条件，只要用户未选择取消，最终都会执行后续的核心过程（因为要么初始就满足，要么用户确认后设置为满足条件）

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