VBA中ComboBox选择值后无法跳转至对应工作表问题求助

核心原因分析 #

无法跳转目标工作表的常见诱因：

• 截取后的文本与实际工作表名存在字符差异（比如首尾空格、不可见的换行/制表符）
• 工作表名包含Excel禁用的特殊字符（Excel禁止将|作为工作表名称的一部分，若你的工作表实际不含该字符，说明截取逻辑未匹配真实名称）
• 目标工作表不存在（但你已确认名称对应，此可能性较低）

修正后的代码 #

Private Sub ComboBox1_Change()
    Dim targetSheetName As String
    
    If ComboBox1.Value = "" Then Exit Sub ' 空值直接退出，无需重复赋值
    
    ' 提取" - "前的部分，并清理首尾空格
    If InStr(ComboBox1.Value, " - ") > 0 Then
        targetSheetName = Trim(Left(ComboBox1.Value, InStr(ComboBox1.Value, " - ") - 1))
        
        ' 尝试选中工作表并捕获错误
        On Error Resume Next
        Sheets(targetSheetName).Select
        If Err.Number <> 0 Then
            MsgBox "找不到名为 """ & targetSheetName & """ 的工作表，请检查名称匹配度！", vbExclamation
            Err.Clear
        End If
        On Error GoTo 0
        
        ComboBox1.Value = ""
    End If
End Sub

Private Sub Worksheet_Activate() 
    ComboBox1.ListFillRange = "=NO_NAMA_FAIL1"
    ComboBox1.Value = ""
End Sub

额外排查建议 #

• 确认工作表真实名称：右键工作表标签→查看代码，在属性窗口查看Caption（显示名）和(Name)（代码名），确保截取的文本与Caption完全一致
• 检查列表项隐藏字符：在NO_NAMA_FAIL1区域的单元格中使用=LEN(A1)（替换A1为目标单元格）查看字符串长度，对比截取后的文本长度，若不一致说明存在不可见字符

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