プロフィール

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

≫ 詳細プロフィール

 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年8月19日10:48:03

ほとんど完成したかのように思えた品管ソフトですが、良く使う機能で不便な部分を煮詰めていくと、結構やることが残っていて、今回紹介するのはその中のひとつです。それは同じ分析表を何度も出すことがあり、 その際、昔のロットをデータベースの中から探すのが手間なのです。そこでフィルターを使って品名で絞込みを行おうと思い、オートフィルターを使うマクロを考えました。

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

 

これがそのマクロなのですが、これをマクロボタンに登録して、1回押すと製品名で絞込みを行い、もう一度押すと、フィルターを解除するというものです。一応、これで目的は達成しているのですが、気になる点が1点。

 

Operator:=xlFilterValues

 

これです。この引数はエクセル2007から追加された引数で、エクセル2003で行うとエラーになるもので、これをエクセル2003でやるにはどうするか・・・・・

 

ほとんど終わったかのように思えた品管ソフトですが、まだ道は険しいです顔


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

ハマチ様   2014年8月21日 01:38:55

お疲れ様です。
完成楽しみにしてますよ♪

この記事にコメントする

お名前 (必須)

メールアドレス   

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

URL

タイトル

コメント (必須)

画像認証 (必須)

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