从ComboBox选择项填充TextBox时遇Runtime 1004错误求助

让我一步步帮你排查问题，搞定这个1004错误：

核心问题拆解 #

你的代码里有几个关键疏漏导致了报错：

• 变量作用域失效：GetRange是在UserForm_Change里定义的局部变量，ClientComboBox_Change事件根本访问不到它，相当于你给VLookup传了个不存在的范围。
• 范围定义不完整：你把GetRange设成了I269:I287（仅1列），但VLookup要取第2列，这显然不存在，直接触发错误。
• 事件选择错误：UserForm_Change不是用来初始化控件的正确事件，应该用UserForm_Initialize，否则控件加载时机不对。
• 缺少容错机制：WorksheetFunction.VLookup在找不到匹配值时会直接抛错，没有缓冲空间。

修正后的完整代码 #

' 把GetRange定义为模块级变量，让所有事件都能访问到
Dim GetRange As Range

Private Sub UserForm_Initialize()
    ' 定义包含查找列（I列）和返回列（假设是J列，根据你的数据表调整）的完整范围
    Set GetRange = ActiveWorkbook.Worksheets("Report - Report").Range("I269:J287")
    ' 给ComboBox加载I列的选项（第一列）
    Me.ClientComboBox.List = GetRange.Columns(1).Value
End Sub

Private Sub ClientComboBox_Change()
    Dim lookupResult As Variant
    
    ' 用Application.VLookup替代WorksheetFunction.VLookup，找不到值时返回错误值而非直接崩溃
    lookupResult = Application.VLookup(Me.ClientComboBox.Value, GetRange, 2, False)
    
    ' 判断是否找到匹配记录
    If Not IsError(lookupResult) Then
        Me.TimingTextBox1.Text = lookupResult
    Else
        ' 未找到时清空输入框，也可添加提示弹窗
        Me.TimingTextBox1.Text = ""
        MsgBox "未找到匹配的记录", vbInformation
    End If
End Sub

关键修改说明 #

• 模块级变量：把Dim GetRange As Range放在所有事件外部，让两个事件能共享这个范围变量。
• 完整范围定义：扩展范围到包含查找列和返回列（比如I列存客户名，J列存对应时间，根据你的实际数据调整列数）。
• 正确初始化事件：用UserForm_Initialize在窗体加载时就给ComboBox加载选项，这是控件初始化的标准操作。
• 容错处理：通过Application.VLookup配合IsError判断，避免找不到值时直接报错，还能给用户友好提示。

额外提醒 #

• 确保ClientComboBox的选中值确实存在于GetRange的第一列（I列），否则会触发未找到的提示。
• 如果你的返回列不是J列，记得同步调整GetRange的范围和VLookup的第三个参数（比如返回第3列就写3）。

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