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

Question

附加信息。

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

这是背景数据工作表。 工作表“背景数据” 通过使用值我输入组合框上的过滤。

它在组合盒上工作， 这是结果 但是，当我单击任何客户名称时， 下面的错误弹出。

我在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

Private Sub search_engine_Change()
Dim i, LRow As Long
LRow = Worksheets("BACKGROUND DATA").Cells(Rows.Count, 2).End(xlUp).Row
If LRow > 1 Then
    If Not Comb_Arrow Then
    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)
       '.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 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 _
    ("B1", Worksheets("BACKGROUND DATA").Cells(Rows.Count, "B").End(xlUp)).Value
End Sub

Answer 2

问题在于这一行：

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

范围对象只采用一个参数，您正在尝试发送2。如果您希望拥有多个单元格范围，例如B2：b5，那么您将无法获得该范围的值，因为它将具有多个值。这条线似乎都有多个问题。

如果您提供有关您要实现的目标的更多数据，那么它将提供进一步的帮助。您想通过第二个论点要实现什么？您要寻找什么价值？