みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

オートフィルターの条件指定

こんばんは。

セルA1に入力した値で始まる値を検索したく困っています。

素直にオートフィルターのオプションから指定すれば出来るのですが、
誰でも処理できるよう「セルA1に条件を入力。集計ボタンをクリック。」で済ませたいのです。

Selection.AutoFilter Field:=1, Criteria1:="=@@@* ", Operator:=xlAnd

上記@@@をセルA1に指定させる記述を教えて下さい。
よろしくお願いします。

投稿日時 - 2007-11-21 23:54:43

QNo.3537489

すぐに回答ほしいです

質問者が選んだベストアンサー

例データ
コード
ax
sd
as
axzx
zx
casw
saxsdf
axzqwe
dfgs
axsdf
ーー
Criteria範囲 E1:E2
コード
ax*
ーーー
オートフィルタなら
Sub Macro2()
s = Cells(2, 5) 'E2
s = "=" & s
Selection.AutoFilter Field:=1, Criteria1:=s, Operator:=xlAnd
End Sub
結果
コード
ax
axzx
axzqwe
axsdf
ーーーーー
フィルタオプションなら
Sub Macro1()
d = Range("A65536").End(xlUp).Row

Range("A1:A" & d).Select
Selection.AutoFilter
Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("E1:E2"), Unique:=False
End Sub
ーー
結果
コード
ax
axzx
axzqwe
axsdf
ほとんどマクロの記録です。

投稿日時 - 2007-11-22 08:40:51

お礼

オートフィルタの方法を利用しました。
s = Cells(2, 5) 'E2
s = "=" & s
の部分を訂正して無事に出来ました。
ありがとうございました。

投稿日時 - 2007-11-22 17:06:08

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問