在input单元格的同时进行筛选

这将有可能根据我input的单元格的值dynamic筛选行？ 假设我有一个数据列A10:A1000的列范围，并且我在A1单元格中input的标准上过滤了该范围。

我希望filter在运行时dynamic地作出反应，而不是在我敲击[Enter]之后。 我用文本框find了一个解决scheme。 http://www.vbforums.com/showthread.php?647621-Excel-filtering-while-typing

不过，最好是，我想在不是在某个文本框中input单元格。 可能吗？

Answer 1

@PermaNoob有最好的解决scheme。 当您处于“编辑”模式时，Excel不允许您使用VBA检查单元格的值。 然而，你可以在A1放置一个文本框，并用它来运行你的“dynamic”search。

编辑单元格时启动VBAmacros

 Private Sub TextBox1_Change() Dim searchArea As Range, searchRow As Range, searchCell As Range Dim searchString As String Dim lastRow As Integer Application.ScreenUpdating = False searchString = "*" & LCase(TextBox1.Value) & "*" ' unhide rows to have the full search field when editing Rows.Hidden = False lastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row Set searchArea = Me.Range("A5", "A" & lastRow) 'Me.Range("A5").End(xlDown)) searchArea.EntireRow.Hidden = True For Each searchRow In searchArea.Rows For Each searchCell In searchRow.Cells If LCase(searchCell) Like searchString Then searchRow.Hidden = False Exit For End If Next searchCell Next searchRow Application.Goto Cells(1), True Application.ScreenUpdating = True End Sub