【エクセルマクロ】ダブルクリックでオートフィルタをクリア:今すぐできる

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

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

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

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

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

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説