|
"/" はダメですが、"*" や "?" などのワイルドカードなら、曖昧検索に使えます。
こんなコードで
Sub MyFind()
Dim Fr As Range
Dim Fv As Variant
Dim Ad As String
Do
Fv = Application _
.InputBox("5桁の検索値を入力して下さい。ワイルドカード可", Type:=3)
If VarType(Fv) = 11 Then Exit Sub
Loop Until Len(Fv) = 5
Set Fr = Range("A:A").Find(Fv, , xlValues, xlPart)
If Fr Is Nothing Then
MsgBox Fv & " は見つかりません", 48: Exit Sub
End If
Ad = Fr.Address: Range("A:A").Interior.ColorIndex = xlNone
Do
Set Fr = Range("A:A").FindNext(Fr)
Fr.Interior.ColorIndex = 6
Loop Until Fr.Address = Ad
Set Fr = Nothing
End Sub
InputBox に例えば "123??" などと入れれば、頭3桁が123の値を抽出できます。
|
|