検索条件を文字列にするには

質問

お世話になっています。
AdvancedFilterなどで検索条件をRANGEではなく文字列にすることは可能ですか？

回答No.2

imogasi · ベストアンサー

これはできません。
参考
http://t_shun.at.infoseek.co.jp/My_Page/Excel-VBA/vba_page17.htm
まやかし的ですが、やりたいことは下記と似てませんか
例データ
Ａ列　　Ｂ列　　　Ｆ列　第２行目から、第１行は表見出しとして。かつＦ２：Ｆ３は使わないセルとする（どこのセルでも良いが）。
住所 氏名 氏名
東京 植田 諏訪
横浜 長野
鎌倉 諏訪
熱海 飯田
豊橋 山科
東京 大月
熱海 植田
横浜 諏訪
鎌倉 諏訪
横浜 木下
東京 山科
横浜 長野
Sub test01()
x = InputBox("検索文字")
y = InputBox("見出し")
Cells(2, "F") = y
Cells(3, "F") = x
For j = 1 To 10
If Cells(2, j) = y Then Exit For
Next j
Cells(30, "A") = y
Range(Cells(2, j), Cells(30, j)).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range(Cells(2, "F"), Cells(3, "F")), _
CopyToRange:=Range("A30:A60"), Unique:=False
Range("F2:F3") = ""
End Sub

結果
氏名
諏訪
諏訪
諏訪
やり方
Inputboxで「氏名」、検索内容を「諏訪」と答える。
Ａ３０以下に結果が出る。
そこかしこに仮定が入ってますので、修正して、自由化してください。

お礼

参考にしてみます。ありがとうございました。

回答No.3

onlyrom

CriticalRangeは、字の如くRangeObjectの指定ですから
AdvancedFilterメソッドを使う限り無理です。

どうしても文字列を使いたいのなら
AdvancedFilterメソッドの代わりに
For NextとかDo Loop等を使うことになります。

お礼

loopなども試してみます。ありがとうございました。

回答No.1

pauNed

こんにちは。
AdvancedFilterの第2引数のCriteriaRangeに文字列を設定したいという意味であれば、
できないと思います。
検索条件を入力した『セル範囲』を指定しなければいけません。
作業エリアやダミーシートなどに、その『文字列』をセットすればいいだけなのではありませんか？
VBAから実行するなら非表示にしておけばそれほど気になりませんよ^ ^
#意味が違ってたらごめんなさい。

お礼

そうですね。ありがとうございました。