[[20160418152824]]　『オートフィルタ検索条件』（AS）　ページの最後に飛ぶ

『オートフィルタ検索条件』（AS）

お世話になります。
エクセル2010にて、VBAでオートフィルターを掛けようとしています。

With Worksheets("Sheet1")
　　　　.Range("A1").AutoFilter _
　　　　　　Field:=1, Criteria1:="1"

上記のような内容を記載した時にFieldを左から何番目ではなく、文字で認識させる手段は有るのでしょうか？

お知恵を貸していただけると幸いです。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 残念ながら、必ず数値です。
 項目名が、何列目にあるかを取得し、それを与える手はありますね。

         .Range("A1").AutoFilter _
             Field:=WorksheetFunction.Match("項目名", .Rows(1), 0), Criteria1:="1"

 もし、項目名がないとエラーになりますが。

（β） 2016/04/18(月) 15:55

(β)様
回答ありがとうございます。
やっぱり無いのですね。
他の方法を考えてみます！
（AS） 2016/04/18(月) 15:57

 >>他の方法を考えてみます！

 提示の方法じゃだめなのですか？

 あと、オートフィルターではなくフィルターオプション（AdvancedFilterメソッド)なら、逆に項目名でしか抽出できません。
 ですから、そちらを使うという方法はありますよ。

（β） 2016/04/18(月) 16:12

(β)様
200列弱の項目列が有る星取表になっており必要箇所に「1」を立てています。
その中から任意の2列を選択して「1」を立てている場所にフィルターを掛けるように
したかったのです。
その中で、Fieldで文字認識やセル単位で認識できればと考えていた次第です。

駄文及び勉強不足で度々手を煩わせてしまい、申し訳ありません。

（AS） 2016/04/18(月) 16:26

コメント返信：