【エクセルマクロ】ダブルクリックでオートフィルタをクリア：動画あり

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

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

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

以下の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選

...

kirinote.com

2021.06.16