Excelマクロでフィルターを確認し、かかっていればクリアする方法

Excelでフィルターがかかっているかを確認し、もしかかっていればそれをクリアするためのシンプルで軽いマクロ構文を知りたいという方へ向けて、簡単なVBAコードを紹介します。この記事では、Excelのアクティブシートにフィルターがかかっている場合、それを解除する方法を解説します。

フィルターがかかっているか確認する方法

Excelでマクロを使用してフィルターがかかっているかを確認するには、`AutoFilterMode`プロパティを使うことができます。これを使えば、シートにフィルターがかかっているかどうかを簡単に確認できます。

具体的には、以下のようなコードを使って、アクティブシートにフィルターがかかっているかを確認できます。

Sub CheckAndClearFilter()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilter.ShowAllData
    End If
End Sub

フィルターがかかっていればクリアする方法

上記のコードは、アクティブシートにフィルターがかかっているかを確認し、もしかかっていれば`ShowAllData`メソッドを使ってフィルターをクリアします。この方法は、フィルターが適用されているときにそのデータをすべて表示するためのものです。

ポイントは、`ActiveSheet.AutoFilterMode`を使ってフィルターの状態をチェックすることです。このプロパティが`True`の場合、フィルターがかかっていることを意味します。その場合、`ShowAllData`メソッドを呼び出すことで、フィルターを解除できます。

シンプルなマクロでの実装例

以下は、実際にフィルターを確認して解除するシンプルなマクロコードの例です。

Sub CheckAndClearFilter()
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilter.ShowAllData
    End If
End Sub

このコードは、アクティブシートにフィルターがかかっている場合のみ、そのフィルターをクリアします。`ShowAllData`メソッドは、フィルターで隠されたデータをすべて表示するため、フィルターを解除する機能を持っています。

マクロを自動実行させる方法

このマクロを実行するには、ExcelでVBAエディタを開き、上記のコードを新しいモジュールに貼り付けます。その後、ボタンを作成して、ボタンをクリックした際にこのマクロが実行されるように設定することもできます。

また、このマクロを特定のイベント（例：シートを開いた時）で自動的に実行したい場合は、`Workbook_Open`や`Worksheet_Activate`イベントにコードを追加することもできます。

まとめ

Excelマクロを使用して、アクティブシートにフィルターがかかっているか確認し、フィルターがかかっていればそれを解除する方法は非常にシンプルです。`AutoFilterMode`を使ってフィルター状態を確認し、`ShowAllData`を使ってフィルターをクリアできます。この方法を活用することで、データの表示を制御するマクロを簡単に作成することができます。