【エクセルマクロ】ダブルクリックでオートフィルタ解除：作業効率化

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

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

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

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

マクロ実行後

アクティブシート内にて、

オートフィルタがオンになっている場合、オートフィルタを解除します。

特定のセルをダブルクリックしたときのみマクロを実行したい時は？

下記コードのように、IF文を追加します。

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

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

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

頻繁にオートフィルタを操作する場合は、マクロで自動実行すると作業が楽になると思いますよ！