0
Sub AASearchForPartialText()
Dim SearchValue As String
SearchValue = Range("d2").Value
    Columns("D:D").Select
    Selection.Find(What:=SearchValue, After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
End Sub

ユーザーが検索したい部分的な文字列を入力し、検索ボタンを押すことで、名前の長いリスト(場合によっては2000)を検索できるようにすることで、Excel検索機能を少し簡素化/高速化しようとしています。望ましい結果は、名前のリストを循環し、一致する次の連続するセルを強調表示することです。

私がしている最善のことは、範囲d:dを強調表示することです。誰か助けてくれませんか?

親切な人のためのサンプルワークブックを含めました

皆さん、ありがとうございました

https://www.dropbox.com/s/uahuzsu3a8qfv6z/searchpartial.xlsm

4

1 に答える 1

2

私は実際に、他のやや関連するコードの助けを借りて、自分でこれを理解することができました

誰かの時間を無駄にしてごめんなさい

Sub newsearchrecord()
Dim SearchValue As String
SearchValue = "*" & Range("D2").Value & "*"
    Cells.Find(What:=SearchValue, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Cells.FindNext(After:=ActiveCell).Activate    
End Sub
于 2013-03-08T12:26:57.927 に答える