如何解决VBA仪表板中XLOOKUP函数触发的运行时错误1004？

阿华AIGC实验室

2026-4-22

看起来你遇到的这个1004错误，本质上是XLOOKUP找不到匹配值或者引用/数据类型不兼容导致的，结合你的代码场景，我给你几个针对性的解决方案：

一、先搞清楚错误的核心原因

Application.WorksheetFunction.XLookup的特点是：如果查找值在目标区域里找不到匹配，会直接抛出1004运行时错误；而Application.XLookup（不带WorksheetFunction前缀）会返回#N/A这类错误值，不会触发程序崩溃。这是很多VBA新手容易踩的坑。

另外你的场景里，双击列表框时会给Combo_data_rmix赋值，这会触发Combo_data_rmix_Change事件——如果列表框里的这个值（Column(3)）和Source_readymix工作表A列的内容不完全匹配（比如有空格、大小写差异、数据类型不一致，或者值本身就不在A列范围内），就会触发错误。

二、针对性修复方案

1. 替换为容错性更强的`Application.XLookup`

把你的Combo_data_rmix_Change事件代码改成这样，既明确了工作表引用（避免激活工作表的不可靠性），又能优雅处理找不到匹配的情况：

Private Sub Combo_data_rmix_Change()
    Dim wsSource As Worksheet
    Dim lookupValue As Variant
    Dim result As Variant
    
    ' 明确引用目标工作表，不要用Activate
    Set wsSource = ThisWorkbook.Worksheets("Source_readymix")
    lookupValue = Trim(Combo_data_rmix.Value) ' 去除首尾空格，避免无意义的匹配失败
    
    ' 使用Application.XLookup，找不到时返回自定义提示文本
    result = Application.XLookup(lookupValue, _
                                 wsSource.Range("A2:A40"), _
                                 wsSource.Range("B2:B40"), _
                                 "未找到匹配数据")
    
    Me.txt_gwp_rmix.Value = result
End Sub

2. 统一使用`Value`属性而非`Text`属性

Text属性返回的是控件显示的文本（可能带格式干扰），而Value是控件实际存储的值，更稳定。比如你在双击列表框的代码里，把Combo_data_rmix.Text改成Combo_data_rmix.Value，同时加上Trim处理空格：

' 双击列表框事件里的对应行修改为
Combo_data_rmix.Value = Trim(Me.ListBox_Concrete.Column(3))

3. 给`Combo_data_rmix_Change`添加错误捕获（备选方案）

如果你坚持用WorksheetFunction.XLookup，可以手动添加错误处理逻辑，避免程序崩溃：

Private Sub Combo_data_rmix_Change()
    Dim wsSource As Worksheet
    Dim rngLookup As Range, rngResult As Range
    
    Set wsSource = ThisWorkbook.Worksheets("Source_readymix")
    Set rngLookup = wsSource.Range("A2:A40")
    Set rngResult = wsSource.Range("B2:B40")
    
    On Error Resume Next ' 临时忽略错误
    Me.txt_gwp_rmix.Value = Application.WorksheetFunction.XLookup( _
        Trim(Combo_data_rmix.Value), rngLookup, rngResult)
    
    ' 如果触发1004错误，给出友好提示
    If Err.Number = 1004 Then
        Me.txt_gwp_rmix.Value = "无匹配数据"
        Err.Clear ' 清除错误状态
    End If
    On Error GoTo 0 ' 恢复默认错误处理机制
End Sub

4. 检查数据一致性

最后一定要核对两个关键数据：

列表框ListBox_Concrete.Column(3)的值，是不是和Source_readymix工作表A列的内容完全一致？比如有没有全角/半角空格、大小写差异（Excel的XLOOKUP默认不区分大小写，但VBA文本匹配需注意细节）。
确认Source_readymix的A2:A40区域确实包含你要查找的所有可能值。