, als u een van de volgende gegevens die door een aantal normen filteren screenshot:,,,,, en nu kan ik het creëren van een gebruiker die functie van een filter normen in de cellen, u de volgende stap:,, 1.Op het Alt+F11, open de sleutel, Microsoft visuele van toepassing.,,,,, 2.- steek, >, modules en paste de volgende modules: de,,,, in het raam van de functie van de macro - economische autofilter_criteria (rng toepassingsgebied). Bij de functie updateby20140220 donkere touw, touw gebruikt. Vluchtige stoffen rng.parent.autofilter, filter (rng.column -. Range.column + 1) indien niet, dan uit De functie van de exploitant, = = = = = = = bij. Als de functie. Xland dan = en &. Criteria2 elseif. De exploitant = xlor en functie = "of" &. Criteria2 einde en autofilter_criteria = ucase (rng) & ":" & bij de & functie SIDE,,, 3, en het redden en het sluiten van deze code, in een lege cel een cel leeg. Bijvoorbeeld, de A1, invoerDe formule = autofilter_criteria (A4 - formaat), (A4 -, is de titel van cellen, de screening van gegevens), zie de schoten:,,,,,, 4.En dan, de invoer, de sleutel, en de keuze van A1 - cel, sleept het vullen tot de juiste cellen, moet je de controle van deze formule, en aan alle criteria is weergegeven in de cellen, zie schoten:,,,,,, noot: als er een lijst van meer dan twee criteria, omschreven functies worden niet de juiste resultaten.,,,, dat een automatische filters normen in het /de in de tabel van de VBA code, en ook hier kan ik zeggen met een interessant VBA code, het zou je kunnen helpen in de criteria voor de selectie van het Werkboek cel zien.,,, 1.Op het Alt+F11, open de sleutel, Microsoft visuele van toepassing.,,,,, 2.- steek, >, modules en paste de volgende modules: de,,,,, in het raam van de VBA - code: een automatische filters forfaitaire tabel,,, - showautofiltercriteria (") van de updateby20140219 schemering targetfilter Norton als de schemering van de gefilterde targetfield koord touw Fuzzy outrng XOUT bereik als activesheet.autofiltermode = onwaar en application.statusbar = het einde van een gat als valse xtitleid =" kutoolsforexcel "outrng = toepassing van toepassing. De keuze die outrng =. Inputbox (" cel ", xtitleid, outrng. Adres: = 8) voorzien van Norton = i = 1 xfilter.filters.count targetfield = Norton activesheet.autofilter. Bereik. Cellen (1, m). De waarde die targetfilter = Xfilter. filter (als ik dan targetfilter).Fout outnext XOUT = geschrapt & targetfield & targetfilter.criteria1 de keuze van de zaak targetfilter. Zaak xland XOUT = geschrapt & "en" & targetfield & targetfilter.criteria2 zaak xlor XOUT = geschrapt & "of" & targetfield & targetfilter.criteria2 zaak xlbottom10items gekonfijte = gekonfijte & "(minus 10)" in het geval van het schrappen van xlbottom10percent XOUT = & "(10%)" in het geval van xltop10items XOUT = geschrapt & "(punt 10)" in het geval van xltop10percent XOUT = het schrappen van & "" aan het einde van de Definitieve selectie (10%) als outrng waarde = wissen.Tnext geschrapt: Verwijder = & targetfield & "= meer dan één filter" - programma: een,,, 3.En de pers F5, die deze code van de dozen, komt dat je de keuze van een lege cel, normen, zie schoten:,,,,,, 4.En daarna, oké, en alle criteria hebben bewezen in de geselecteerde cellen die als volgt luidt:,,,,,,,,, noot: de VBA code, als je meer dan twee van de criteria vermeld in een, het is niet een gedetailleerde criteria als volgt:,,,,,,,