VBA中ComboBox条件判断失效，无法按List1值选择正确工作表

看起来你遇到的核心问题是：明明在List1这个ComboBox里选对了目标工作表，代码却还是会处理两个工作表对吧？大概率是你的代码里没有精准定位到选中的那个表，反而遍历了多个工作表或者判断条件有漏洞。咱们来一步步修正这个问题：

核心问题分析 #

通常出现这种情况，要么是你代码里写了遍历所有工作表的循环（比如For Each ws In wb.Worksheets），却没加筛选条件只处理选中的表；要么是你判断工作表的逻辑有漏洞，导致多个表符合条件。

修正后的代码示例 #

结合你给出的代码片段，我帮你调整成精准定位目标工作表的版本：

Private Sub OKPrint_Click()
    Dim LastRow As Long, wb As Workbook, ws As Worksheet
    Dim targetSheetName As String
    
    ' 第一步：获取ComboBox选中的工作表名称，先做空值判断
    targetSheetName = Me.List1.Value
    If targetSheetName = "" Then
        MsgBox "请先选择要处理的工作表！", vbExclamation
        Exit Sub
    End If
    
    ChDir ("My Directory")
    On Error Resume Next
    Set wb = Workbooks("Workbook in Question")
    ' 如果工作簿没打开，这里可以添加打开逻辑（记得替换成你的实际路径）
    If wb Is Nothing Then
        Set wb = Workbooks.Open("My Directory\Workbook in Question.xlsx")
        ' 如果打开失败，提示并退出
        If wb Is Nothing Then
            MsgBox "目标工作簿找不到，请检查路径！", vbCritical
            Exit Sub
        End If
    End If
    
    ' 第二步：直接定位到选中的工作表，不再遍历所有表
    Set ws = wb.Worksheets(targetSheetName)
    ' 恢复正常错误处理，避免后续代码忽略错误
    On Error GoTo 0
    
    ' 检查工作表是否存在
    If ws Is Nothing Then
        MsgBox "选中的工作表不存在，请确认名称是否正确！", vbCritical
        Exit Sub
    End If
    
    ' 第三步：在这里写你的具体处理逻辑（比如读取输入的文本、操作单元格、打印等）
    ' 举个例子：获取工作表A列最后一行
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 其他操作...比如把用户输入的文本写入指定单元格
    ' ws.Range("B" & LastRow + 1).Value = Me.TextBox1.Value
    
    MsgBox "已完成对工作表 '" & targetSheetName & "' 的处理！", vbInformation
End Sub

关键优化点 #

1. 精准定位工作表：直接通过wb.Worksheets(targetSheetName)获取选中的表，彻底避免遍历多个表的问题。
2. 增加前置校验：先判断用户是否选了工作表，以及工作簿、工作表是否存在，避免无意义的错误执行。
3. 恢复错误处理：用On Error GoTo 0关闭之前的错误忽略，确保后续代码的错误能被正常捕获。

额外建议：让List1的选项更准确 #

如果你的List1选项是手动输入的，很容易出现和实际工作表名称不匹配的情况（比如大小写、空格差异）。可以在用户窗体初始化时，自动从目标工作簿加载工作表名称，这样就不会出错了：

Private Sub UserForm_Initialize()
    Dim wb As Workbook, ws As Worksheet
    ChDir ("My Directory")
    
    On Error Resume Next
    Set wb = Workbooks("Workbook in Question")
    If wb Is Nothing Then
        Set wb = Workbooks.Open("My Directory\Workbook in Question.xlsx")
    End If
    
    If Not wb Is Nothing Then
        ' 清空List1原有选项
        Me.List1.Clear
        ' 加载所有工作表名称到List1
        For Each ws In wb.Worksheets
            Me.List1.AddItem ws.Name
        Next ws
        ' 如果只是加载名称，不需要保持工作簿打开的话可以关闭
        wb.Close SaveChanges:=False
    End If
End Sub

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