エクセルで複数列の検索をマクロで行いたい

Ａ列、Ｂ列、Ｃ列に項目が、Ｄ列以降にデータが入っているシートがあります。
具体的には、
　Ａ列：商品名
　Ｂ列：地域名
　Ｃ列：店舗名
となっていて、ABCの順で昇順にソートがかけられています。

マクロの記録を使って一行だけを検索することは出来たのですが、（Selection.find(What:="商品名"～　となっていました）本当は、"商品名"+"地域名"+"店舗名"が一致するものを検索したいのです。

現在は、一行目で検索をかけて、後はactivecell.offset(*,*).value="地域名"のような感じで、しらみつぶしに探しています。

複数列で検索するよい方法などありましたら教えてください。

No.3 ベストアンサー 回答者： Wendy02 回答日時： 2005/06/22 20:09

#2 のWendy02 です。

後で、ミスを見つけましたので、こちらを優先させてください。見つからない場合のことを忘れていませした。(^^;

Sub Sample()
Dim nm As Variant
Dim buf As Variant, i As Long
Dim Rng As Range
With ActiveSheet
Set Rng = .Range("A1").CurrentRegion
.Range("A1:C1").Copy .Range("AA1")
For Each nm In Array("商品名", "地域名", "店舗名")
　 Do
　 buf = Application.InputBox(nm & "を入れてください。", Type:=2)
　 If VarType(buf) = vbBoolean Then Exit Sub
　 If buf = "" Then MsgBox nm & "を入れてください。"
　 Loop While buf = ""
　 .Range("AA2").Offset(, i).Value = buf
　 i = i + 1
Next nm
　　　　　　　　Rng.AdvancedFilter _
　　　　　　　　 Action:=xlFilterInPlace, _
　　　　　　　　 CriteriaRange:=.Range("AA1:AC2"), _
　　　　　　　　 Unique:=False
　
　 On Error Resume Next
　 Rng.Offset(1).Resize(Rng.Rows.Count - 1). _
　 SpecialCells(xlCellTypeVisible).Select
　 If Err.Number > 0 Then
　　　MsgBox "探しているものは見つかりません", vbCritical
　 Else
　　 .ShowAllData
　 End If
　 On Error GoTo 0
End With
　 Set Rng = Nothing
　 Range("Criteria").ClearContents
End Sub

この回答へのお礼

ありがとうございます。


知りたかった内容以外にも勉強になりました。

お礼日時：2005/07/25 18:52

No.2 回答者： Wendy02 回答日時： 2005/06/22 18:45

本来は、Find メソッドよりも、オートフィルターやフィルターオプションのほうがよいのでは？以下のようなものでダメなら、また、別のものを考えます。

Sub Sample()
Dim nm As Variant
Dim buf As Variant, i As Long
Dim Rng As Range
With ActiveSheet
Set Rng = .Range("A1").CurrentRegion
　.Range("A1:C1").Copy .Range("AA1")
For Each nm In Array("商品名", "地域名", "店舗名")
　 Do
　 buf = Application.InputBox(nm & "を入れてください。", Type:=2)
　 If VarType(buf) = vbBoolean Then Exit Sub
　 If buf = "" Then MsgBox nm & "を入れてください。"
　 Loop While buf = ""
　 .Range("AA2").Offset(, i).Value = buf
　 i = i + 1
Next nm
　　　　　　　　Rng.AdvancedFilter _
　　　　　　　　 Action:=xlFilterInPlace, _
　　　　　　　　 CriteriaRange:=.Range("AA1:AC2"), _
　　　　　　　　 Unique:=False
　
　 Rng.Offset(1).Resize(Rng.Rows.Count - 1). _
　 SpecialCells(xlCellTypeVisible).Select
　 .ShowAllData
End With
　 Set Rng = Nothing
　 Range("Criteria").ClearContents
End Sub

No.1 回答者： hana-hana3 回答日時： 2005/06/22 18:37

検索(Find)で探せるのは１つの項目です。

複数列の条件の場合は、オートフィルタを使うしかありません。

参考URL：http://www.officetanaka.net/excel/vba/db/index.htm

この回答へのお礼

ありがとうございます。

オートフィルタをうまく使えるようにしてみます。

お礼日時：2005/07/25 18:49