ULALA'Sブログ

< 新しい記事

新着記事一覧(全351件)

過去の記事 >

2020年09月10日

VBAスタンダード学習21[AutoFilter 切り替え]

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

カテゴリ： VBA

前回でAutoFilterは終了、と記載したが、
書き忘れたものがあったので追記。

①Range.AutoFilter

画像はオートフィルタを設定⇔解除
をボタンで交互に行う方法。

ソース

Sub setFilter()
' オートフィルタが設定されていた場合
If ActiveSheet.AutoFilterMode = True Then
' オートフィルタクリア
Range ("B127"). AutoFilter
Else
' オートフィルタ設定
Range ("B127"). AutoFilter 1
End If
End Sub

結果

Range AutoFilter 1

のように、AutoFilterの後に 絞り込みの列番号だけを 指定
すると、 フィルタ機能だけを付ける ことができる。
※第2引数以降は記入しない

この状態で再度ボタンを押下すると、今度は
フィルタ機能を解除することができる。

オートフィルタが設定されているかどうかの条件式は
テキストには出てきていない為、参考程度でどうぞ。

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