Supposing du ha følgende data som har blitt filtrert av noen kriterium, se skjermbilde:?
Og nå kan jeg lage en brukerdefinert funksjon for å vise filterkriterium inn celler, kan du gjøre med følgende:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications Window.
2. Klikk Sett > Modul, og lim inn følgende makroen i modulen Window:
Funksjon AutoFilter_Criteria (RNG As Range) As String'Updateby20140220Dim str1 As String, str2 Som StringApplication.VolatileWith Rng.Parent.AutoFilter Med .Filters (Rng.Column - .Range .Column + 1) Hvis ikke .På Then Exit Function str1 = .Criteria1 Hvis .Operator = xlAnd Så str2 = "og" & .Criteria2 ElseIf .Operator = xlOr Så str2 = "OR" & .Criteria2 End If End WithEnd WithAutoFilter_Criteria = UCase (RNG) & ":" &Amp; str1 & str2End Function3. Deretter lagre og lukke denne koden, i en tom celle i en tom rad, for eksempel celle A1, angir denne formelen = AutoFilter_Criteria (A4) (A4 er tittelcellen av de filtrerte data), se skjermbilde:
4. Deretter trykker Enter-tasten, og velg deretter celle A1, drar fyllhåndtaket over til riktige celler som du trenger å inneholde denne formelen, og alle kriteriet har blitt vist inn i cellene, se skjermbilde:
Merk: Hvis det er mer enn to kriterium i en kolonne, vil denne brukerdefinert funksjon ikke gi riktig resultat.
Vis /Vis auto avgrensninger i regnearket med VBA kode
Her kan jeg også snakke om et interessant VBA-kode, kan det hjelpe deg å vise filterkriteriene i en celle i arbeidsboken.
en. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications Window.
2. Klikk Sett > Modul, og lim inn følgende makroen i modulen Window:
VBA-kode: Skjerm auto avgrensninger i regneark
Sub ShowAutoFilterCriteria () 'Updateby20140219Dim xFilter Som AutoFilterDim TargetFilter Som FilterDim TargetField Som StringDim xOut Som StringDim OutRng Som RangeIf Active. AutoFilterMode = False Deretter Application.StatusBar = False Exit SubEnd IfxTitleId = "KutoolsforExcel" Set OutRng = Application.SelectionSet OutRng = Application.InputBox ("Cell", xTitleId, OutRng.Address, Type: = 8) Sett xFilter = ActiveSheet.AutoFilterFor jeg = 1 Å xFilter.Filters.Count TargetField = xFilter.Range.Cells (1, i) .Value Set TargetFilter = xFilter.Filters (i) Hvis TargetFilter.On Så On Error GoTo OutNext xOut = xOut & TargetField & TargetFilter.Criteria1 Velg Sak TargetFilter.Operator sak xlAnd xOut = xOut & "Og" & TargetField & TargetFilter.Criteria2 sak xlOr xOut = xOut & "Eller" & TargetField & TargetFilter.Criteria2 sak xlBottom10Items xOut = xOut & "(Nederste 10 stk)" Case xlBottom10Percent xOut = xOut & "(Nederst 10%)" Case xlTop10Items xOut = xOut & "(Topp 10 stk)" Case xlTop10Percent xOut = xOut & "(Topp 10%)" End Select End IfNextOutRng.Value = xOutOutNext: xOut = xOut & TargetField & "= Flere filtre" Errorhandler: Resume NextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, en rask boks vil komme ut for å la deg velge en tom celle for å sette kriteriet, se skjermbilde:
4. Og klikk deretter på OK, har all kriteriet vært vist i den valgte cellen som følger:
Merk:
Med denne VBA-kode, hvis kriteriet mer enn to i en kolonne, vil det ikke bli vist på detaljert filter kriterium, men vises som følger:
Datamaskin læring 