Sepertinya makro lama tidak berfungsi. Saya telah mengatur keamanan yang tepat untuk menjalankan makro VBA tetapi ketika saya telah mencoba beberapa metode untuk menghapus SEMUA filter pada lembar kerja, saya mendapatkan kesalahan kompilasi.
Inilah yang telah saya coba:
Sub AutoFilter_Hapus()
' Makro ini menghapus penyaringan apa pun untuk menampilkan semua data tetapi tidak menghapus panah filter
ActiveSheet.ShowAllData
End Sub
Saya memiliki tombol pada lembar untuk menghapus semua filter untuk kemudahan penggunaan bagi pengguna karena lembar memiliki banyak kolom yang memiliki filter pada mereka.
Cobalah sesuatu seperti ini:
Sub ClearDataFilters()
'Clears filters on the activesheet. Will not clear filters if the sheet is protected.
On Error GoTo Protection
If ActiveWorkbook.ActiveSheet.FilterMode Or _
ActiveWorkbook.ActiveSheet.AutoFilterMode Then _
ActiveWorkbook.ActiveSheet.ShowAllData
Exit Sub
Protection:
If Err.Number = 1004 And Err.Description = _
"ShowAllData method of Worksheet class failed" Then
MsgBox "Unable to Clear Filters. This could be due to protection on the sheet.", _
vbInformation
End If
End Sub
.FilterMode
mengembalikan true jika lembar kerja dalam mode filter. (Lihat ini untuk informasi lebih lanjut).
Lihat ini untuk informasi lebih lanjut tentang .AutoFilter
.
Dan akhirnya, ini akan memberikan informasi lebih lanjut tentang metode .ShowAllData
.