VBA实时过滤列表框到单元格值

Question

我在工作表中有一个列表框，它通过单击某些指定的单元格来激活。我想通过写这个单元格来过滤我的列表框。例如，如果我写＆＃34; asd＆＃34;在该单元格上，列表框应该返回以＆＃34; asd＆＃34;开头的行。实时。

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error Resume Next
   If Target.Value <> "" Then
      With ListBox1
         For i = .ListCount - 1 To 0 Step -1
            If InStr(1, LCase(.List(i, 0)), LCase(Target.Value)) = 0 And _ 
            InStr(1, LCase(.List(i, 1)), LCase(Target.Value)) = 0 And _
            InStr(1, LCase(.List(i, 2)), LCase(Target.Value)) = 0 And _
            InStr(1, LCase(.List(i, 3)), LCase(Target.Value)) = 0 Then
               .RemoveItem i
            End If
          Next i
      End With
   End If
End Sub

我有，但它没有用。

Answer 1

您是否可以尝试此方法 - 更改特定单元格后，只需删除ListBox中的所有项目，然后填充源Range中的匹配项：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim strFilter As String
    Dim rngData As Range
    Dim lngCounter As Long

    ' check changed cell is our specific cell and exit if not
    If Intersect(Target, Sheet1.Range("B1")) Is Nothing Then
        Exit Sub
    End If

    'get reference to data range
    Set rngData = Sheet1.Range("A1:A12")

    'get value of changed cell
    strFilter = Target.Value

    'clear listbox and add matching items
    Sheet1.ListBox1.Clear
    For lngCounter = 1 To rngData.Rows.Count
        If Left(rngData.Cells(lngCounter, 1).Value, 1) = Target.Value Then
            Sheet1.ListBox1.AddItem rngData.Cells(lngCounter, 1).Value
        End If
    Next lngCounter

End Sub

例如：