|
>複数実行した場合は、「色塗りつぶし」をReset
検索値が見つからなかった場合も色を消す、ということでしょーか ?
それなら Range("A:A").Interior.ColorIndex = xlNone というコードの位置を
変更するだけです。
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
Range("A:A").Interior.ColorIndex = xlNone
Set Fr = Range("A:A").Find(Fv, , xlValues, xlPart)
If Fr Is Nothing Then
MsgBox Fv & " は見つかりません", 48: Exit Sub
End If
Ad = Fr.Address
Do
Set Fr = Range("A:A").FindNext(Fr)
Fr.Interior.ColorIndex = 6
Loop Until Fr.Address = Ad
Set Fr = Nothing
End Sub
|
|