- Isključite Autofilter na aktivnom radnom listu u VBA -i
- Uključite Autofilter na aktivnom radnom listu u VBA
- Isključite Autofilter na svim radnim listovima u VBA -i.
- Isključite Autofilter na svim radnim listovima u VBA -i.
- Očistite sve filtre na aktivnom radnom listu u VBA
- Brisanje svih filtera na svim radnim listovima u VBA -i
- Brisanje svih filtara u tablici u VBA
Ovaj će vodič pokazati kako isključiti /izbrisati automatske filtere u VBA -i.
Autofiltri se mogu uključiti ili isključiti pomoću VBA koda.
Isključite Autofilter na aktivnom radnom listu u VBA -i
Sljedeći primjer koda isključuje Autofilter u aktivnom listu, prvo provjeravajući da već nije isključen.
| 12345 | Javni pomoćni filter KillFilter ()Ako ActiveSheet.AutoFilterMode ZatimActiveSheet.AutoFilterMode = NetačnoZavrši akoKraj podm |
Uključite Autofilter na aktivnom radnom listu u VBA
Sljedeći primjer koda uključuje Autofilter u aktivnom listu, prvo provjeravajući da već nije uključen.
| 12345 | Javni pomoćni početni filter ()Ako nije ActiveSheet.AutoFilterMode ZatimActiveSheet.Range ("A1"). AutofilterZavrši akoKraj podm |
Isključite Autofilter na svim radnim listovima u VBA -i.
Sljedeći primjer koda provlači se kroz svaki list u cijeloj radnoj knjizi i isključuje automatsko filtriranje na svakom radnom listu, prvo provjeravajući da li filter u trenutnoj radnoj knjizi već nije uključen.
| 12345678 | Javna podzaustaviAllFilters ()Zatamni kao radni listZa svaki ws u ActiveWorkbook.WorksheetsAko je ws.AutoFilterMode = Tačnows.AutoFilterMode = NetačnoZavrši akoSljedeći wsKraj podm |
Isključite Autofilter na svim radnim listovima u VBA -i.
Slično, sljedeći primjer koda prolazi kroz cijelu radnu knjigu i uključuje automatsko filtriranje na svakom listu, prvo provjeravajući da li filtar u trenutnoj radnoj knjizi već nije uključen.
| 12345678 | Javni podpocetakAllFilters ()Zatamni kao radni listZa svaki ws u ActiveWorkbook.WorksheetsAko nije ws.AutoFilterMode Ondaws.Range ("A1"). AutofilterZavrši akoSljedeći wsKraj podm |
Očistite sve filtre na aktivnom radnom listu u VBA
Sljedeći primjer koda ostavlja automatsko filtriranje uključenim u aktivnom listu, ali briše sve filtre koji se primjenjuju na podatke.
| 12345 | Javni podcisti ClearFilter ()Ako je ActiveSheet.FilterMode = TačnoActiveSheet.ShowAllDataZavrši akoKraj podm |
Brisanje svih filtera na svim radnim listovima u VBA -i
Slično, sljedeći primjer koda prolazi kroz cijelu radnu knjigu i ostavlja uključen automatski filtar na svakom listu ako je već uključen, ali briše sve filtre koji se primjenjuju na podatke.
| 12345678 | Javni pod ClearAllFilters ()Zatamni kao radni listZa svaki ws u ActiveWorkbook.WorksheetsAko je ws.FilterMode = Tačnows.ShowAllDataZavrši akoSljedeći wsKraj podm |
Brisanje svih filtara u tablici u VBA
Ako naš radni list sadrži objekt tablice, možemo prilagoditi kôd samo tako da obriše svaki filtar koji se primijeni na taj filtar, a da AutoFilter ostane uključen.
| 123456789 | Pod ClearFilterFromTable ()Zatamni kao radni listZatamni tablicu kao nizZatamni tablicu kao ListObjectsTable = "Tablica1"Postavite ws = ActiveSheetPostavi loTable = ws.ListObjects (sTable)loTable.AutoFilter.ShowAllDataKraj podm |
Ako bi objekt tablice bio povezan sa zaokretnom tablicom, zaokretna bi se tablica u skladu s tim osvježila.
