Excel/VBAでフィルター処理：フィルター解除（ShowAllData）の際の状況チェック

何かのマクロを実行する際に対象のシートにフィルターがかかっていると誤作動を起こすことがあります。なのでマクロ実行前にフィルターを解除するようなコードを入れると良いです。

[ad#top-1]

以下の一文でフィルター解除ができます。

ActiveSheet.ShowAllData
 

 

以下のようにフィルターが解除されました。

ところが、もしそのシートでフィルターがかかっていなくて全データが表示されていたり、そもそもフィルターを使っていない場合は以下のように実行エラーが発生してしまいます。

 

なので、以下のようにFilterModeをチェックし、Trueの時だけShowAllDataを実行すると良いでしょう。

If ActiveSheet.FilterMode Then
  ActiveSheet.ShowAllData
EndIf
 

 

[ad#ad-1]

 - Excel, VBA