Excel VBA質問箱 IV

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

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


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

44833 / 76732

←次へ　｜　前へ→


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

Kein - 06/4/17(月) 21:56 -


	引用なし

	パスワード

"/" はダメですが、"*" や "?" などのワイルドカードなら、曖昧検索に使えます。
こんなコードで

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の値を抽出できます。

2 hits

▼

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