VBA中ComboBox联动TextBox调用XLOOKUP失效问题排查咨询

现有代码的错误点： #

1. XLOOKUP第三个参数引用错误：你定义了rng变量指向Table1第6列的数据区域，但调用时写成了Sheets("sheet2").Rng——Rng是你自己声明的变量，不需要加工作表前缀，直接用变量名rng即可。
2. 查找区域硬编码不灵活：你用Sheets("sheet2").Range("A2:A7")作为查找范围，这会导致表格行数变化时失效。既然已经用了ListObject（Table）对象，应该直接引用Table的对应列数据区域，比如如果ComboBox2的值对应Table1的第一列（A列），就用tbl.ListColumns(1).DataBodyRange。
3. 缺少错误处理：如果XLOOKUP找不到匹配值，用WorksheetFunction.XLookup会直接抛出运行时错误，建议改用Application.XLookup（找不到时返回错误值，不会崩溃），或者添加错误捕获逻辑。

修正后的代码： #

Private Sub ComboBox2_Change()
    Dim tbl As ListObject
    Dim lookupRange As Range
    Dim resultRange As Range
    
    ' 引用Sheet2的Table1
    Set tbl = ActiveWorkbook.Worksheets("Sheet2").ListObjects("Table1")
    
    ' 定义查找区域（Table1第一列，对应原代码的A2:A7）
    Set lookupRange = tbl.ListColumns(1).DataBodyRange
    ' 定义结果区域（Table1第6列，Total列）
    Set resultRange = tbl.ListColumns(6).DataBodyRange
    
    ' 使用Application.XLookup避免找不到值时崩溃，找不到则显示空文本
    Me.TextBox6.Value = IIf(IsError(Application.XLookup(Me.ComboBox2.Value, lookupRange, resultRange)), "", Application.XLookup(Me.ComboBox2.Value, lookupRange, resultRange))
End Sub

额外说明： #

• 如果ComboBox2对应的不是Table1的第一列，把tbl.ListColumns(1)里的数字改成对应列的序号即可。
• 用IIf(IsError(...))处理找不到匹配值的情况，此时TextBox6会显示空文本，你也可以改成显示提示文字比如"无匹配值"。

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