Excel VBA点击ComboBox时UserForm异常消失问题求助

核心问题成因 #

1. ComboBox触发Change事件时会执行激活其他工作簿的操作，VBA默认将UserForm绑定在所属工作簿的窗口层级下，新工作簿被激活后会将原工作簿关联的UserForm覆盖，视觉上表现为窗口直接消失。
2. 现有代码存在多处语法和逻辑错误，会触发VBA运行时异常，直接导致UserForm被销毁：
   • RefEdit1_Change事件中的If判断未补全End If，存在语法错误
   • 调用UserForm时混用类实例与默认类对象，Range对象赋值遗漏Set关键字

修复方案 #

1. 补全UserForm事件代码 #

Private Sub UserForm_Initialize()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        ComboBox1.AddItem wb.Name
    Next
    ComboBox1.Value = ActiveWorkbook.Name
End Sub

Private Sub ComboBox1_Change()
    If ComboBox1 <> "" Then 
        Application.Workbooks(ComboBox1.Text).Activate
        ' 激活工作簿后强制将UserForm置顶，避免被遮挡
        Me.ZOrder 0
    End If
    Label1.Caption = ""
    RefEdit1.Value = ""
End Sub

Private Sub RefEdit1_Change()
    Label1.Caption = ""
    If RefEdit1.Value <> "" Then
        Label1.Caption = "[" & ComboBox1.Value & "]" & Replace(RefEdit1.Value, "!", "'!")
    End If ' 补全缺失的闭合语句
End Sub

2. 修复UserForm调用逻辑 #

Private Sub addToHistory()
    Dim range1 As Range
    Dim frm As UserForm1 ' 此处替换为你实际的UserForm类名
    ' 其他变量定义和代码
    
    Set frm = New UserForm1
    With frm
        .Show vbModal ' 模态显示，用户操作完成前阻塞后续代码
        ' Range是对象类型，必须用Set关键字赋值
        Set range1 = Application.Range(.Label1.Caption)
        Unload frm ' 卸载当前创建的实例，不要卸载默认的UserForm1对象
    End With

    Debug.Print range1.Address
    ' 其余保存关闭工作簿的代码
End Sub

3. 可选属性调整 #

如果调整代码后仍出现窗口被遮挡的问题，可在VBA编辑器的属性面板中选中UserForm，将StartUpPosition属性设置为1 - 所有者中心，ShowModal属性保持为True即可。

修改完成后先点击VBA编辑器菜单栏的「调试→编译VBA项目」，确认无语法错误后再运行测试。

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