ULALA'Sブログ

< 新しい記事

新着記事一覧(全353件)

過去の記事 >

2020年09月03日

VBAスタンダード学習15[AutoFilter 予約語付き絞り込み]

テーマ：プログラミングあれこれ(231)

カテゴリ： VBA

今回より数回に分けて絞り込み（AutoFilter）
について記載していこうと思う。

①Range.AutoFilter

ソースコードを簡潔にするため、
「絞り込み」ボタン押下で「八百屋B」での
絞り込みに限定して記載してみる。

と、その前に オートフィルタを設定する際、
絞り込みがきちんとできる範囲になっているかを
Ctrl＋「A」で確認 しておく。

以下だと 57行目が丸ごと空欄 の為、58行目以降が
うまく絞り込みされない ことになる。
どれかひとつでも列に値が無いと範囲として設定されない。

以下はきちんと絞り込みができる状態
※行まるごと空欄でなければ良いので
列に空欄と値が混じっていても絞り込みは可能。

これで絞り込みができる状態になったので、
「絞り込み」ボタンを押下

ソース

Sub setAutoFilter()
Range ("B49"). AutoFilter 1, "八百屋B"
' または
Range ("B49") .AutoFilter field :=1, Criteria1
End Sub

結果

オートフィルタが設定され、八百屋Bで絞り込みが
できていることが確認できた。

.AutoFilterの引数は、、、
第1引数：指定範囲の何列目を絞り込みするかを数値で指定
第2引数：絞り込みの条件を記入(1個目)
第3引数：xlOrやxlAnd等、2個目の条件を設定する際の条件を指定
第4引数：

引数について、上記ソースでは、

第1引数に field := 1
第２引数に Criteria1 := "八百屋B"

のように、予約語を利用した記述も可能だが、
後々の複雑な絞り込みの際には、これらの予約語を
付けているとエラーになるものがあるので
試験対策として覚えておく程度にした方が良いかと思う。
基本的には予約語無しで記入。

試験用に、、予約語は以下となる。

第1引数： field:= 数値
第2引数： Criteria1 := "絞り込みしたい文字"
第3引数： xlOr 、 xlAnd
第4引数： Criteria2 := "絞り込みしたい文字"

次回以降も記載していこうと思う。

お気に入りの記事を「いいね！」で応援しよう