Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7760 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【36857】曖昧検索について
質問  SinjiM E-MAIL  - 06/4/16(日) 21:15 -
引用なし
パスワード
   こんばんは
　ExcelFileのレイアウトは以下のよう、ここで「Code」という項目に対して
曖昧検索をかけたいのでうが、方法は分かりません。
この掲示板に投稿しました。
伝授ください、よろしくお願いします。

Codeは5桁の半角英数文字で構成され、検索時InputBOXの五箇所に
Codeを入力し、入力していない箇所は曖昧検索と認識、検索をかけ、その結果に
色を付けたいです。

　　A　　　　　　　B　　　　　　　C・・・・・・・・・・・・・・・
1　 Code　　　　　 TradeName　　　Country
2　
・
・
1024
【36858】Re:曖昧検索について
回答  かみちゃん  - 06/4/16(日) 21:34 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Codeは5桁の半角英数文字で構成され、検索時InputBOXの五箇所に
>Codeを入力し、入力していない箇所は曖昧検索と認識、検索をかけ、その結果に
>色を付けたいです。

Codeが数値の場合であれば、以下の方法でできると思います。

Sub test()
　Dim strData(6) As String
　Dim i As Integer
　Dim c As Range
　
　strData(0) = ""　'検索文字列生成用
　strData(1) = "1" '1つめのInputBoxの値
　strData(2) = ""　'2つめのInputBoxの値
　strData(3) = "2" '3つめのInputBoxの値
　strData(4) = ""　'4つめのInputBoxの値
　strData(5) = "4" '5つめのInputBoxの値

　'検索文字列の生成
　For i = 1 To 5
　　If strData(i) = "" Then
　　　strData(0) = strData(0) & "?"
　　Else
　　　strData(0) = strData(0) & strData(i)
　　End If
　Next
　
　'該当セルを検索
　For Each c In Range("A1:A10")
　　If Format(c.Value, "@") Like strData(0) Then
　　　c.Interior.ColorIndex = 3
　　Else
　　　c.Interior.ColorIndex = xlNone
　　End If
　Next
End Sub

Codeが文字列の場合は、上記で検索文字列を生成して、オートフィルタの条件とする方法でもできます。
【36903】Re:曖昧検索について
質問  SinjiM E-MAIL  - 06/4/17(月) 21:12 -
引用なし
パスワード
   かみちゃんさん

　回答をいただき、ありがとうございます。
早速試してみました。コードの曖昧検索は問題なくできています。
　検査条件入力の画面について、いろいろとやってみましたが、やはり五つの
InputBoxを使わないと、検索条件の入力ができないみたいです。
　例えば、区切り記号「/」をつかう場合は、「1//2//4」、曖昧検索は可能でしょうか？
【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の値を抽出できます。
【36947】Re:曖昧検索について
質問  SinjiM E-MAIL  - 06/4/18(火) 20:50 -
引用なし
パスワード
   Keinさん
　お返事ありがとうございます。　　
　複数実行した場合は、「色塗りつぶし」をResetする必要がありますが、その
方法を教えていただけませんか？
　　
【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
【36949】Re:曖昧検索について
回答  Kein  - 06/4/18(火) 21:48 -
引用なし
パスワード
   もちろん、InputBoxを出す前でもいいです。

Sub MyFind()
　 Dim Fr As Range
　 Dim Fv As Variant
　 Dim Ad As String

　 Range("A:A").Interior.ColorIndex = xlNone
　 Do
　　　Fv = Application _
　　 .InputBox("5桁の検索値を入力して下さい。ワイルドカード可", Type:=3)
【36975】Re:曖昧検索について
質問  SinjiM  - 06/4/19(水) 11:50 -
引用なし
パスワード
   ▼Kein さん：
こんにちは、ありがとうございます。
いただいたコードを使って、7桁のコードも対応可能でしょうか？
教えていただきたいです。
【36977】Re:曖昧検索について
回答  Kein  - 06/4/19(水) 11:58 -
引用なし
パスワード
   何桁であろうと簡単に変更できます。桁数が違っていたら、メッセージを出してから
再度、入力を促すようにするなら・・

Do
　 Fv = Application _
　 .InputBox("7桁の検索値を入力して下さい。ワイルドカード可", Type:=3)
　 If VarType(Fv) = 11 Then Exit Sub
　 If Len(Fv) <> 7 Then MsgBox "検索値は必ず7桁にして下さい", 48
Loop Until Len(Fv) = 7

と、します。
【37052】Re:曖昧検索について
質問  SinjiM E-MAIL  - 06/4/20(木) 11:24 -
引用なし
パスワード
   Keinさん
こんにちは、いただいたコードを使ってみました結果は問題解決です。
本当にありがとうございました。
【37055】Re:曖昧検索について
お礼  SinjiM E-MAIL  - 06/4/20(木) 12:01 -
引用なし
パスワード
   失礼、チェック忘れた
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7760 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free