Excel VBA質問箱 IV

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

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


44795 / 76732 ←次へ | 前へ→

【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

2 hits

【36857】曖昧検索について SinjiM 06/4/16(日) 21:15 質問
【36858】Re:曖昧検索について かみちゃん 06/4/16(日) 21:34 回答
【36903】Re:曖昧検索について SinjiM 06/4/17(月) 21:12 質問
【36909】Re:曖昧検索について Kein 06/4/17(月) 21:56 回答
【36947】Re:曖昧検索について SinjiM 06/4/18(火) 20:50 質問
【36948】Re:曖昧検索について Kein 06/4/18(火) 21:45 回答
【36949】Re:曖昧検索について Kein 06/4/18(火) 21:48 回答
【36975】Re:曖昧検索について SinjiM 06/4/19(水) 11:50 質問
【36977】Re:曖昧検索について Kein 06/4/19(水) 11:58 回答
【37052】Re:曖昧検索について SinjiM 06/4/20(木) 11:24 質問
【37055】Re:曖昧検索について SinjiM 06/4/20(木) 12:01 お礼

44795 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free