| |
初めまして。
仕事の効率化の為にとVBAの参考書を購入し
Webなども参考にしつつ、見よう見まねで作成しているのですが
どうしてもこれが分からず先に進みません・・・。
A列〜BD列まで、行数は月によって増減しますが、
それぞれに文字列ないし数値が入ったファイルを使用しております。
このファイルのI列には1〜15までの数値が入力されており、
I列にオートフィルターを設定し、任意の数値でフィルターをかけたいと考えており
下記のようなコマンドを作ったのですがオートフィルターまではうまくいけるのですが
I列のフィルターがInputBoxで入力した数値以外での絞り込みになりません・・・。
フィルターの中身を確認すると数値フィルターの値がAutofilterのなっています。
Criteria1:="<>Autofilter"←ここが間違っているのだとは分かるのですが
参考書にも書いてなくてどう直せば良いのかが分かりません・・・。
皆様のお知恵を貸していただきたく、投稿させて頂きました。
どうか、よろしくお願い致します。
Sub Autofilter()
Dim Autofilter As Long
Autofilter = InputBox("抽出したい大分類コードを入力してください。")
Selection.Autofilter
ActiveSheet.Range("A1").Autofilter _
Field:=9, Criteria1:="<>Autofilter"
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
