Excel VBA ComboBox搜索报Error 381无效属性数组索引求助

问题根因 #

报错触发的核心原因是事件递归冲突：当点击下拉列表的选项时，控件文本变化会再次触发search_engine_Change事件，事件逻辑第一时间会重新加载全量数据源覆盖当前列表，此时控件正处于读取选中项索引的状态，新旧列表的索引映射瞬间失效，直接抛出「无效属性-数组索引(Error 381)」。
原有代码还存在3个隐性问题：

• 取数据源最后一行时未指定工作表，默认调用当前活动表的Rows.Count，如果活动表不是BACKGROUND DATA，会读取到错误的行号，导致数据源范围异常
• 批量给.List赋值单元格区域时，生成的是二维数组结构，原有代码读取.List(i)时未指定列索引，存在隐式读取失败的风险
• Comb_Arrow方向键标志位触发后从未重置，会导致按过一次上下键后，后续输入内容时筛选逻辑直接跳过，功能失效

修复后完整代码 #

Option Explicit

Private Comb_Arrow As Boolean
' 列表加载锁，避免事件递归触发索引冲突
Private isLoading As Boolean

Private Sub search_engine_Change()
    Dim i As Long
    Dim dataSht As Worksheet
    Dim lastRow As Long
    
    ' 方向键操作、列表加载过程中直接跳过逻辑，避免重复触发
    If Comb_Arrow Or isLoading Then Exit Sub
    
    Set dataSht = Worksheets("BACKGROUND DATA")
    isLoading = True
    With Me.search_engine
        ' 明确指定工作表取B列最后一行，避免活动表不匹配导致范围错误
        lastRow = dataSht.Cells(dataSht.Rows.Count, "B").End(xlUp).Row
        .List = dataSht.Range("B2:B" & lastRow).Value
        .ListRows = Application.WorksheetFunction.Min(4, .ListCount)
        .DropDown
        
        If Len(.Text) Then
            For i = .ListCount - 1 To 0 Step -1
                ' 明确指定读取第1列（索引从0开始）内容，适配二维列表结构
                If InStr(1, .List(i, 0), .Text, vbTextCompare) = 0 Then .RemoveItem i
            Next
            .DropDown
        End If
    End With
    isLoading = False
    Comb_Arrow = False
End Sub


Private Sub search_engine_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Comb_Arrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    If KeyCode = vbKeyReturn Then
        isLoading = True
        Me.search_engine.List = Worksheets("BACKGROUND DATA").Range( _
        "B2", Worksheets("BACKGROUND DATA").Cells(Worksheets("BACKGROUND DATA").Rows.Count, "B").End(xlUp)).Value
        isLoading = False
    End If
End Sub

关键修复点说明 #

• 新增isLoading布尔值作为加载锁：列表重载过程中锁标记为True，此时触发的Change事件会直接跳过，不会重复执行列表重载逻辑，从根源解决选中项时列表重载导致的索引冲突
• 数据源读取绑定固定工作表：所有涉及行号计算的逻辑都明确指定BACKGROUND DATA工作表，不再依赖活动表上下文，避免跨表操作时读错数据范围
• 列表读取补全列参数：所有访问列表项的操作都明确写为.List(i, 0)，适配单元格区域赋值生成的二维数组结构，避免隐式索引错误
• 标志位自动重置：每次筛选逻辑执行完成后重置Comb_Arrow标记，保证方向键操作不会阻塞后续的输入筛选逻辑

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