プロフィール

ナビ 男こんな名前ですが、ナビつけてません(。`・ω・)。

≫ 詳細プロフィール

 2020年07月 
 1234
567891011
12131415161718
19202122232425
262728293031 
記事テーマ

仁尾興産 (35)

塩マグ (10)

豆腐とニガリ (5)

がんばりアワード (125)

アクセス解析 (2)

リンク

三化理化株式会社
お世話になっている業者様です。塩マグの分析をす....

中宗機工株式会社
工場設備の材料全般でお世話になっている業者様で....

≫すべて表示

最近のコメント

ハマチ様 (08/21)

yakanchan (09/25)

ナビ男 (09/25)

yakanchan (09/24)

ナビ男 (07/03)

技ありマクロ!フィルター!

[ テーマ: がんばりアワード ]

2014年9月10日10:30:00

エクセル2003、2007の互換チェックをしていて、不具合発生しました!

Sub フィルター抽出()

If ActiveSheet.AutoFilterMode Then

Range("a9").AutoFilter

Else

Range("a9").AutoFilter Field:=3, Criteria1:=Array("製品1", "製品2", "製品3"), Operator:=xlFilterValues

End If

End Sub

これはエクセル2007で作成した製品名でのオートフィルターマクロですが、エクセル2002で動かすとエラーになります。理由は絞込む製品が2種類しかできないのと、Operator:=xlFilterValuesこの引数が2007以降でないと使えないからです。

 

そこで、2002でも2007でもどちらでも使えるマクロを考えて、このコードを作りました!


If ActiveSheet.FilterMode Then

ActiveSheet.ShowAllData

Else

ActiveSheet.Range("A9:O500").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("N500:N503"), Unique:=False

End If

これはフィルターオプションのマクロで、オートフィルターは2007、2003では互換性がないけども、フィルターオプションならいけるというわけで、こちらで製品の絞込みをすることにしました!ただ、フィルターオプションは検索条件をセル内に入力しておかないといけないので、シートの下のほうのN500:N503のところに検索条件のセルを記入しています。

 

これでパソコンの更新で2007に変更する際もコードの修正がいらない機能ができましたこの調子で次はヒストグラムやってみます!


この記事へのコメント (0)

この記事にコメントする

お名前 (必須)

メールアドレス   

(入力すると掲載されます)

URL

タイトル

コメント (必須)

画像認証 (必須)

上の画像で表示されている文字を入力してください。