Excelで表を使った顧客管理ソフトを作ってみよう

抽出を解除するには、もう一度AutoFilterを実行すればいいのですが、その前に抽出されている画面かどうか調べる必要があります。
抽出画面でないと逆に抽出用のドロップダウン矢印が表示されてしまいます。

抽出画面かどうは、AutoFilterMode プロパティでチェックします。
AutoFilterModeがTrue の場合、シートにオートフィルタの下向き矢印が表示されています。
例としては下記のようになります。
If ActiveSheet.AutoFilterMode Then
抽出の解除の実行
End If

シートのVBAコード

下記のVBAコードを追加してください。

抽出画面

■抽出実行画面
名前から「水」で抽出しています。


■解除後
解除され抽出用のドロップダウン矢印がなくなっています。