一个查找功能的实现（两年也想不出）

guzhen9315

以下是引用方漠在2006-12-12 9:09:00的发言：


假设你在H1里输入条件，复制以下代码到你数据所在的工作簿即可。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim StrF As String
If Target.Column = 8 And Target.Row = 1 Then
   StrF = [H1]
   Columns("A:A").Select
   Selection.AutoFilter
   Columns("A:A").AutoFilter Field:=1, Criteria1:="=" & StrF & "*", Operator:=xlAnd
   [A1].Select
End If
End Sub