Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44798 / 76735

←次へ　｜　前へ→


	【36948】Re:曖昧検索について

Kein - 06/4/18(火) 21:45 -


	引用なし

	パスワード

>複数実行した場合は、「色塗りつぶし」を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

0 hits

▼

【36857】曖昧検索について SinjiM 06/4/16(日) 21:15