用于搜索引擎的 Excel 中的 VBA 组合框无效的属性数组索引（错误 381）

Question

附加信息。

vba代码是搜索引擎，目的是在我用公式过滤的另一张纸上获取客户详细信息（姓名）列表。

这是背景数据工作表。 Worksheets "background data" 通过使用我在组合框中输入的值进行过滤。

它适用于组合框， This is the result 但是当我点击任何客户名称时， 弹出下面的错误。

我对 excel 中的 vba 代码有疑问

你们能帮我解决这个错误吗？

无效的属性数组索引（错误 381）

Option Explicit

 Private Comb_Arrow As Boolean

 Private Sub search_engine_Change()
 Dim i As Long

    If Not Comb_Arrow Then
    With Me.search_engine
       .list = Worksheets("BACKGROUND DATA").Range("B2", Worksheets("BACKGROUND DATA").Cells(Rows.Count, "B").End(xlUp)).Value
       .ListRows = Application.WorksheetFunction.Min(4, .ListCount)
       .DropDown
           If Len(.Text) Then
                For i = .ListCount - 1 To 0 Step -1
                   If InStr(1, .list(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                     Next
                      .DropDown
                       End If
     End With
     End If

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 Me.search_engine.list = Worksheets("BACKGROUND DATA").Range _
    ("B2", Worksheets("BACKGROUND DATA").Cells(Rows.Count, "B").End(xlUp)).Value
End Sub

Answer 1

私有子 search_engine_Change() 调暗我，LRow As Long LRow = Worksheets("背景数据").Cells(Rows.Count, 2).End(xlUp).Row 如果 LRow > 1 那么 如果不是 Comb_Arrow 那么 With Me.search_engine 搜索引擎 .List = Worksheets("BACKGROUND DATA").Range("B1", Worksheets("BACKGROUND DATA").Cells(Rows.Count, "B").End(xlUp)).Value .RemoveItem 0 .ListRows = Application.WorksheetFunction.Min(4, .ListCount) '。落下 如果 Len(.Text) 那么 对于 i = .ListCount - 1 到 0 步骤 -1 如果 InStr(1, .List(i), .Text, vbTextCompare) = 0 那么 .RemoveItem i 下一个 ' 。落下 万一 结束于 万一 万一 结束子 Private Sub search_engine_KeyDown（ByVal KeyCode As MSForms.ReturnInteger，ByVal Shift As Integer） Comb_Arrow = (KeyCode = vbKeyUp) 或 (KeyCode = vbKeyDown) 如果 KeyCode = vbKeyReturn 那么 Me.search_engine.List = Worksheets("BACKGROUND DATA").Range _ ("B1", Worksheets("背景数据").Cells(Rows.Count, "B").End(xlUp)).Value 结束子

Answer 2

问题在于这一行：

.list = Worksheets("BACKGROUND DATA").Range("B2", Worksheets("BACKGROUND DATA").Cells(Rows.Count, "B").End(xlUp)).Value

范围对象只接受一个参数，您正在尝试发送它 2。如果您希望有一个多单元格范围，例如 B2:B5，那么您不能采用该范围的值，因为它将有多个值.这条线周围似乎有多个问题。

如果您提供更多关于您要实现的目标的数据，这将有进一步的帮助。你想用第二个参数达到什么目的？你在寻找什么价值？