エクセルマクロで、ダブルクリックでオートフィルタをクリアする方法をご紹介します。
私は、業務中にエクセルファイルを開いて、
オートフィルタでデータ絞込・クリアする作業を複数回行っています。
「オートフィルタの絞り込み解除」の手作業が面倒になったので、マクロで自動化しました。
自動化することで業務効率アップになります！
頻繁にオートフィルタクリアの操作する場合は、オススメです。
このページのマクロコードは、コピペで使えます。
せひ、お試しください。
ダブルクリックでオートフィルタクリア
以下の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.03.29
