用vba实现模糊查找并定位

喜多末

利用vba
在h1输入一个词，如飞狐
定位到第六行
不知道我表达是否清楚



该贴已经同步到 喜多末的微博

喜多末

附件已上传

喜多末

喜多末 发表于 2015-1-6 21:54
附件已上传

数据太多，需要经常调处CTRL+F

lhh8502025

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim rng As Range, rngs As Range
   
3. If Target.Address = "$H$1" Then
   
4.     Set rng = Range("h2:h65536").Find("*" & Target.Value & "*", lookat:=xlWhole)
   
5.     If Not rng Is Nothing Then
   
6.         rng.Select
   
7.     End If
   
8. End If
   
9. End Sub

复制代码

doitbest

用SmallScroll实现翻屏
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$1" Then
    If Not [h2:h65000].Find(Target) Is Nothing Then
        ActiveWindow.SmallScroll Down:=[h2:h65000].Find(Target).Row - 1
    End If
End If
End Sub