- Izslēdziet automātisko filtru VBA aktīvajā darblapā
- Ieslēdziet automātisko filtru VBA aktīvajā darblapā
- Izslēdziet automātisko filtru visās darblapās VBA.
- Izslēdziet automātisko filtru visās darblapās VBA.
- Notīrīt visus filtrus VBA aktīvajā darblapā
- Notīrīt visus filtrus visās darblapās VBA
- Notīriet visus filtrus tabulā VBA
Šī apmācība parādīs, kā izslēgt /notīrīt automātiskos filtrus VBA.
Automātiskos filtrus var ieslēgt vai izslēgt, izmantojot VBA kodu.
Izslēdziet automātisko filtru VBA aktīvajā darblapā
Šis koda piemērs izslēdz automātisko filtru aktīvajā lapā, vispirms pārbaudot, vai tas jau nav izslēgts.
12345 | Public Sub KillFilter ()Ja ActiveSheet.AutoFilterMode TadActiveSheet.AutoFilterMode = NepareiziBeigas JaBeigu apakš |
Ieslēdziet automātisko filtru VBA aktīvajā darblapā
Šis koda piemērs ieslēdz automātisko filtru aktīvajā lapā, vispirms pārbaudot, vai tas jau nav ieslēgts.
12345 | Publiskais apakšfiltrs ()Ja nav ActiveSheet.AutoFilterMode TadActiveSheet.Range ("A1"). Automātiskais filtrsBeigas JaBeigu apakš |
Izslēdziet automātisko filtru visās darblapās VBA.
Šis koda piemērs iziet cauri katrai darbgrāmatas lapai un izslēdz automātisko filtru katrā darblapā, vispirms pārbaudot, vai pašreizējās darbgrāmatas filtrs jau nav ieslēgts.
12345678 | Public Sub StopAllFilters ()Dim ws kā darblapaPar katru ws ActiveWorkbook.WorksheetsJa ws.AutoFilterMode = Patiessws.AutoFilterMode = NepareiziBeigas JaNākamais wsBeigu apakš |
Izslēdziet automātisko filtru visās darblapās VBA.
Līdzīgi, šāds koda piemērs tiek pārvietots pa visu darbgrāmatu un katrā lapā ieslēdz automātisko filtru, vispirms pārbaudot, vai pašreizējās darbgrāmatas filtrs jau nav ieslēgts.
12345678 | Public Sub StartAllFilters ()Dim ws kā darblapaPar katru ws ActiveWorkbook.WorksheetsJa nē ws.AutoFilterMode Tadws.Range ("A1"). Automātiskais filtrsBeigas JaNākamais wsBeigu apakš |
Notīrīt visus filtrus VBA aktīvajā darblapā
Šis koda piemērs atstāj automātiskajā filtrā ieslēgtu aktīvo lapu, bet notīra visus filtrus, kas tiek lietoti datiem.
12345 | Public Sub ClearFilter ()Ja ActiveSheet.FilterMode = PatiessActiveSheet.ShowAllDataBeigas JaBeigu apakš |
Notīrīt visus filtrus visās darblapās VBA
Līdzīgi, šāds koda piemērs tiek pārvietots pa visu darbgrāmatu un atstāj automātisko filtru ieslēgtu katrā lapā, ja tas jau ir ieslēgts, bet notīra visus filtrus, kas tiek lietoti datiem.
12345678 | Public Sub Clear ClearAllFilters ()Dim ws kā darblapaPar katru ws ActiveWorkbook.WorksheetsJa ws.FilterMode = Patiessws.ShowAllDataBeigas JaNākamais wsBeigu apakš |
Notīriet visus filtrus tabulā VBA
Ja mūsu darblapā ir tabulas objekts, mēs varam pielāgot kodu, lai tikai notīrītu visus filtrus, kas tiek lietoti šim filtram, vienlaikus atstājot ieslēgtu automātisko filtru.
123456789 | Sub ClearFilterFromTable ()Dim ws kā darblapaDim tabula kā virkneDim loTable kā ListObjectsTable = "1. tabula"Iestatiet ws = ActiveSheetIestatīt loTable = ws.ListObjects (sTable)loTable.AutoFilter.ShowAllDataBeigu apakš |
Ja tabulas objekts būtu saistīts ar rakurstabulu, tad rakurstabula tiktu attiecīgi atsvaidzināta.