在击键上运行sub

Question

我们使用一个公式来基于一个单元格过滤电子表格中的数据。当您按“输入”时，过滤器运行。我们希望每次向单元格添加字符时都运行过滤器。

例如，如果我们在a2中键入“ frans”，然后按Enter键，它将过滤“ frans”，但是如果我们希望它已经过滤了第一个字符“ f”。

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("a2").Address Then
       Range("A5:E2500").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("a1:a2")
   End If
End Sub