ULALA'Sブログ

< 新しい記事

新着記事一覧(全353件)

過去の記事 >

2020年09月05日

VBAスタンダード学習17[AutoFilter xlFilterValues]

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

カテゴリ： VBA

引き続きAutoFilterについてだが、
今回はひとつの列に3つ以上を
条件として指定したい場合に、
配列を指定する方法を記載する。

①Range.AutoFilter

下記画像の通り、「指定商品」欄に絞り込みしたい
商品を3つ記入して「絞り込み」ボタンを押下する。

Sub setAutoFilterArray ()

' オートフィルタクリア
Range ("B50"). AutoFilter

' 配列を用意しシートから絞り込み条件を設定
Dim fil (2) As String
fil (0) = Range ("C48"). Value
fil (1) = Range ("D48"). Value
fil (2) = Range ("E48"). Value

' 配列を元に絞り込み
Range ("B50"). AutoFilter fil, xlFilterValues

End Sub

結果

バナナ、梨、りんごで絞り込みされ、
メロンは表示されていないことが確認できた。

引数について、、

第1引数：絞り込みさせたい列番号
第2引数：配列の変数名
第3引数：値(※)
※複数の値で絞り込みする場合「 xlFilterValues 」と記入する

配列については3つ以上に限った話ではなく、
2つでも1つでも可能。
※その場合わざわざ配列指定しないだろうが
実務で動的配列を扱う場合等が考えられるため、
試験用に覚えておくと良いかと思う。

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