【エクセルマクロ】ダブルクリックでフィルタをクリア:簡単解説

エクセルマクロ_ダブルクリックオートフィルタクリア_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、ダブルクリックでオートフィルタをクリアする方法をご紹介します。

私は、業務中にエクセルファイルを開いて、
オートフィルタでデータ絞込・クリアする作業を複数回行っています。

「オートフィルタの絞り込み解除」の手作業が面倒になったので、マクロで自動化しました。

自動化することで業務効率アップになります!
頻繁にオートフィルタクリアの操作する場合は、オススメです。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

ダブルクリックでオートフィルタクリア

以下のExcelVBAを実行すると、セルをダブルクリックするとオートフィルタをクリアします。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    If ActiveSheet.FilterMode = True Then        
        ActiveSheet.ShowAllData         
        Cancel = True
    End If

End Sub
マクロ実行後

セルをダブルクリックすると、

オートフィルタでデータが絞られている状態の場合、絞り込みを自動解除します。


 
 

ダブルクリックでオートフィルタクリア(応用)

以下のExcelVBAを実行すると、特定セルをダブルクリックしたときにオートフィルタをクリアします。


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Target = Range("A1") Then

        If ActiveSheet.FilterMode = True Then
            ActiveSheet.ShowAllData
            Cancel = True
        End If

    End If

End Sub
マクロ実行後

[If Target = Range(“A1”) Then] は、セルA1をダブルクリックしたときのみ、

マクロが実行されるように設定しています。

 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】ダブルクリックで処理を実行:超便利18選
...