VBA用VLOOKUP填充Combobox关联文本框报错及字符串适配求助

• 控件命名不匹配：你代码中调用的是Me("Textbox" & p)，需要确认用户窗体内确实存在命名为Textbox1到Textbox7的7个文本框控件，若存在拼写差异（比如默认命名为TextBox，字母B大写）、控件数量不足7个，都会触发“找不到指定对象”报错。
• 查找匹配失败：WorksheetFunction.VLookup在未找到匹配项时会直接抛出运行时错误，不会返回错误值，若Combobox选中值未出现在Sheet3的A列，就会触发报错。
• 类型转换失败：你当前代码使用CLng将Combobox值转为长整型，若Combobox选中值为空、或者为无法转为数字的字符串，CLng会直接触发报错。
• 工作表引用错误：确认Sheet3是ClientList工作表的代码名称（而非工作表显示名称），可在VBA编辑器的工程资源管理器中查看工作表的代码名是否匹配。

修改后的完整代码如下：

Private Sub cmbClientName_Change()
    Dim q As Long, p As Long
    Dim lookupVal As String
    Dim lookupRng As Range
    Dim res As Variant
    
    ' 组合框为空时直接清空所有文本框并退出，避免空值报错
    If Me.cmbClientName.Value = "" Then
        For p = 1 To 7
            Me("TextBox" & p).Value = ""
        Next p
        Exit Sub
    End If
    
    ' 定义查找值为字符串，满足你的需求
    lookupVal = CStr(Me.cmbClientName.Value)
    ' 定义查找范围
    q = Application.WorksheetFunction.CountA(Sheet3.Range("A:A"))
    Set lookupRng = Sheet3.Range("A2:H" & q)
    
    For p = 1 To 7
        ' 使用Application.VLookup替代WorksheetFunction，匹配失败返回错误值不抛异常
        res = Application.VLookup(lookupVal, lookupRng, p + 1, False)
        ' 判断是否匹配成功
        If Not IsError(res) Then
            Me("TextBox" & p).Value = res
        Else
            Me("TextBox" & p).Value = ""
        End If
    Next p
End Sub

核心修改说明 #

• 移除了CLng类型转换，改用CStr将查找值转为字符串格式，实现字符串匹配需求。
• 新增组合框空值判断逻辑，避免窗体初始化、清空选项时触发报错。
• 替换WorksheetFunction.VLookup为Application.VLookup，匹配失败时不会直接抛出运行时错误，通过IsError判断后做兜底处理。
• 修正了变量声明：原代码中q未指定类型会被默认声明为Variant，修改后统一声明为Long类型。

• 若你的文本框控件命名为Textbox（字母b小写），将代码中Me("TextBox" & p)的TextBox改为Textbox即可。
• 确认Sheet3的A列数据格式和Combobox选中值格式完全一致，避免前后空格、大小写差异导致匹配失败。

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