VBA-Kodo por Filtri Datumojn en Excel (8 Ekzemploj)

  • Kundividu Ĉi Tion
Hugh West

Excel Ordi & Filtrila komando havas limigitan gamon al Filtrildatenoj . Sed uzante VBA vi povas Filtri datumojn en larĝa gamo laŭ via deziro. Ĉi tiu artikolo provizos al vi 8 utilajn ekzemplojn por uzi VBA kodon por Filtri datumojn en Excel uzante VBA kodojn kun viglaj ilustraĵoj.

Elŝutu Praktikan Laborlibron

Vi povas elŝuti la senpagan Excel-ŝablonon de ĉi tie kaj ekzerci memstare.

VBA-Kodo por Filtri Datumojn.xlsm

8 Ekzemploj por Uzi VBA-Kodon por Filtri Datumojn en Excel

Ni unue prezentiĝu al nia datumaro, kiu reprezentas la sekson, staton kaj staton de iuj studentoj. Aĝo .

1. Uzu VBA-Kodon por Filtri Datumojn Bazitajn sur Tekstaj Kriterioj en Excel

En nia unua ekzemplo, ni uzos VBA por Filtri nur Viraj studentoj el la kolumno Genro de la datumaro.

Paŝoj:

  • Dekstre alklaku sur la foliotitolo .
  • Tiam elektu Vidi Kodon el la Kunteksta menuo .

Baldaŭ poste malfermiĝos VBA fenestro.

  • Tajpu la jenajn kodojn en it-
7763
  • Poste, minimumigu la VBA

Kodo-Difekto

  • Ĉi tie, mi kreis Sub proceduron, Filtril_Data_Text() .
  • Tiam uzis la Range posedaĵo por deklari nian respektivan folionomon kaj gamo
  • Sekva, mi uzis la Aŭtomatan filtrilon por uzi Kriteriojn laŭ mia elekto kie Kampo:=2 signifas kolumno 2 . Kaj Criteria1:=”Vira” por Filtri la datumojn por Vira.
  • Post tio, al >malfermu la Makroojn dialogujo , klaku tiel: Programisto > Makrooj.

  • Elektu la makronomo kiel menciite en la kodoj .
  • Fine, simple premu Run .

Nun rigardu, ke ni havas nur Datumoj de viraj studentoj post Filtrado .

Legu Pli: Datumoj de Excel Filtriloj Bazitaj sur Ĉela Valoro (6 Efikaj Manieroj)

2. Apliki VBA-Kodon por Filtri Datumojn kun Multoblaj Kriterioj en Unu Kolumno

Ĉi tie, ni Filtros por pluraj kriterioj en unu kolumno. De la kolumno numero tri de la datumaro, ni Filtros por Diplomiĝintaj kaj Postdiplomaj studentoj.

Paŝoj:

  • Sekvu la unuajn du paŝojn de la unua ekzemplo por malfermi la VBA-fenestron .
  • Poste, tajpu la jenajn kodojn en ĝi-
4667
  • Tiam minimumigu la VBA

Kodo-Difekto

  • Jen, mi kreis Sub proceduron, Filter_One_Column() .
  • Tiam uzis la posedaĵon Range por deklari niajn respektivajn folionomon kaj intervalon
  • Poste, mi uzis laAŭtofiltrila metodo por uzi la Kriteriojn laŭ mia elekto kie Kampo:=3 signifas kolumno 3 . Ĉi tie, Kriterio1:=”Diplomiĝinto” kaj Kriterio2:=”Postdiplomiĝinto” por Filtri la Stato de la studento.
  • Fine, mi uzis Operatoro:=xlOr por apliki OR kondiĉon Filtrilon por pluraj kriterioj.
  • Ĉe ĉi tio momento, sekvu la trian paŝon el la unua ekzemplo por malfermi la Makro-dialogon keston .
  • Poste, elektu la specifitan makronomo kaj premu Run .

Baldaŭ poste, vi ricevos la Filtritajn vicojn bazitajn sur pluraj kriterioj kiel la suba bildo.

Legu Pli: Filtri Multoblajn Kriteriojn en Excel. (4 Taŭgaj Vojoj)

3. Apliki VBA-Kodon por Filtri Datumojn kun Multoblaj Kriterioj en Malsamaj Kolumnoj en Excel

Nun ni Filtros por multoblaj kriterioj- Vira kaj Diplomiĝinto lernantoj.

Paŝoj:

  • Sekvu la unuajn du paŝojn de la unua ekzemplo por malfermu la VBA
  • Poste, skribu la jenajn kodojn en ĝi-
7052
  • Post ke minimumigu la VBA-fenestron .

Kodrompo

  • Ĉi tie, mi kreis Sub proceduron, Filtri_Malsamajn_Kolumnojn() .
  • Tiam, mi uzis la Kun deklaron por uzi Multobla Kolumno .
  • Tiam uzis la Gamon posedaĵo por deklari niajn respektivajn folionomon kaj gamon
  • Sekva, mi uzis la Aŭtofiltrilan metodon por uzi Kriteriojn de mia elekto kie Kampo:=2 signifas kolumno 2 kaj Kampo:=3 signifas kolumno 3 .
  • Ĉi tie , elektita Criteria1:=”Vira” por Sekso kolumno kaj Criteria1:=”Diplomiĝinto” por Stato kolumno al Filtrilo datumoj de malsamaj kolumnoj .
  • Tiam sekvu la trian paŝon de la unua ekzemplo por malfermi la Dialogkesto de makrooj .
  • Poste, elektu la specifita makronomo kaj premu Run .

Jen la eligo de la multoblaj kriterioj.

Legu pli: Excel VBA Filtri en Sama Kolumno per Multoblaj Kriterioj (6 Ekzemploj)

4. Uzu VBA-Kodon por Filtri la Suprajn 3 Erojn en Excel

En ĉi tiu ekzemplo, ni Filtros la plej tri studentojn laŭ ilia aĝo .

Paŝoj:

  • Sekvu la unuajn du paŝojn de la unua ekzemplo por malfermi la VBA-fenestron .
  • Tiam tajpu la jenajn kodojn en ĝi-
5322
  • Post tio minimumigu la VBA-fenestro .

Kodo-Difekto

  • Jen, mi kreis Sub proceduron, Filtri_Top3_Items() .
  • Kaj poste uzis Operatoro:=xlTop10Items al Filtri por la supraj tri datumoj .
  • Nun sekvu la trian paŝon de la unua ekzemplo por malfermi la Dialogo de makrooj kesto .
  • Tiam elektu la makronomo kiel menciite en la kodoj kaj premu Run .

Tiam vi ricevos la eligon kiel la suba bildo-

Legu Pli: Kiel Filtri Surbaze de Ĉela Valoro Uzante Excel VBA (4 Metodoj)

Similaj Legadoj

  • Kiel Kopii kaj Alglui Kiam Filtrilo Estas Aplikata en Excel
  • Kiel Filtri Unikajn Valorojn en Excel (8 Facilaj Manieroj)
  • Filtri Multoblajn Kriteriojn en Excel kun VBA (Ambaŭ KAJ kaj AŬ Tipoj)
  • Kiel Uzi Tekstan Filtrilon en Excel (5 Ekzemploj)
  • Kiel Filtri laŭ Dato en Excel (4 Rapidaj Metodoj)

5. Uzu VBA-kodon por filtri la plej bonajn 50 procentojn en Excel

Ni uzu VBA kodojn por filtri la suprajn kvindek procentojn de studentoj baze de ilia aĝo .

Paŝoj:

  • Unue, Sekvu la unuajn du paŝojn de la unua ekzemplo por malfermi la VBA-fenestron .
  • Poste, tajpu la jenajn kodojn en ĝi-
1154
  • Minimumigu la VBA-fenestron .

Kodo-Difekto

  • Ĉi tie, mi kreis Sub proceduron, Filtrilo_Supro50_Procento() .
  • Poste, uzita Operatoro:=xlTop10Procento al Filtru la suprajn kvindek procentojn de kolumno-4 .
  • En ĉi tiu momento, sekvu la trian paŝon de la unua ekzemplo por malfermi la Dialogkesto de makrooj.
  • Tiam elektu la specifita makronomo kaj premu Run .

Entute estis 7 studentoj do por 50 elcentoj , ĝi montras proksimume tri studentoj .

Legu Pli: Kiel Uzi Procentan Formulon en Excel (3 Ekzemploj)

6 . Apliki VBA-Kodon al Filtri Datumoj Uzante Ĵetanteron

Ni povas uzi Silterkarakterojn-* (asterisko) en VBA-kodoj por Filtri datumojn en Excel. El la Statusa kolumno , ni Filtros nur la valorojn kiuj enhavas 'Afiŝu' .

Paŝoj:

  • Sekvu la unuajn du paŝojn de la unua ekzemplo por malfermi la VBA-fenestron .
  • Tiam skribi jenaj kodoj en ĝi-
6411
  • Poste, minimumigu la VBA-fenestron .

Kodo-diskompiĝo

  • Ĉi tie, mi kreis Sub proceduron, Filtrilo_kun_Ŝonkarto() .
  • Tiam uzite Range (“B4”) por agordi la intervalon.
  • Sekva , uzata Aŭtomata Filtrilo al Filtri en Kampo:=3 signifas kolumno 3.
  • Kriterio1:=”*Afiŝu *” por Filtri la valorojn kiuj enhavas 'Afiŝu'.
  • Nun sekvu la trian paŝon de la unua ekzemplo por malfermi la dialogon Makroojskatolo.
  • Elektu la specifitan makronomo kaj premu Run .

Tiam vi ricevos la deziratan eligon.

Legu Pli: Kiel Aldoni Filtrilon en Excel (4 Metodoj) )

7. Enmetu Excel VBA por Kopii Filtritajn Datumojn en Nova Folio en Excel

Vidu, ke estas iuj Filtritaj datumoj en mia datumaro. Nun mi kopios ilin en novan folion per VBA . Ĉi tiuj kodoj ne funkcios ĝuste en la folio, vi devos apliki ilin en la modulo.

Paŝoj:

  • Premu Alt+F11 por malfermi la VBA

  • Tiam alklaku Enmeti > Modulo por malfermi modulon .

  • Nun skribi la jenajn kodojn
9861
  • Tiam minimumigu la VBA

> Kodo-Difekto

  • Ĉi tie, mi kreis Sub proceduron, Kopii_Filtritajn_Datumojn_NewSheet() .
  • Post tio deklarita du-variabla- x Rng Kiel Range kaj xWS Kiel Laborfolio.
  • Tiam uzis an IF-deklaron por kontrolu Filtrita
  • Poste, uzata MsgBox por montri la eligon.
  • Tiam uzata Laborfolioj ("Kopiu Filtritajn Datumojn"). Aŭtomata Filtrilo .Range por elekti la Filtritan gamon kaj uzis Aldoni por aldoni novan folion.
  • Fine, Kopiu Gamon(“G4”) kopios la Filtritajn datumojn al la nova folio .
  • Poste, sekvu latria paŝo de la unua ekzemplo por malfermi la Makro-dialog-katonon .
  • Tiam elektu la specifitan makronommon kaj Premu Run .

Nun vidu, ke Excel malfermis novan folion kaj kopiis la Filtritajn vicojn.

Legu Pli: Mallongigo por Excel-Filtrilo (3 Rapidaj Uzoj kun Ekzemploj)

8. Apliki VBA-Kodon por Filtri Datumojn Uzante Falan Liston

En nia lasta ekzemplo, ni unue faros falliston por seksoj, poste ni uzos tion por Filtri datumojn. Por tio, mi metis la seksajn kriteriojn en alian lokon kaj ni faros falliston en Ĉelo D14 .

Paŝoj:

  • Elektu Ĉelon D14 .
  • Tiam klaku jene: Datumoj > Datumaj Iloj > Datenvalidigo > Valido de datumoj.

Baldaŭ poste, dialogo-skatolo malfermos.

Elektu Listo el la Permesu falmenuo .

Tiam alklaku la Malfermi ikonon el la Fontokesto .

Nun elektu la kriterion kaj premu la Enigu butonon .

  • En ĉi tiu momento, simple premu OK .

Nun nia falu listo estas preta.

  • Nun Sekvu la unuajn du paŝojn de la unua ekzemplo por malfermi la VBA-fenestron .
  • Tiam skribu la jenajn kodojn en ĝi-
6109
  • Tiam minimumu la VBA.fenestro .

Kodo-Difekto

  • Jen, mi kreis a Privata Sub procedo, Laborfolio_Ŝanĝo(ByVal Celo Kiel Intervalo).
  • Tiam, mi elektis Laborfolion el Ĝenerala kaj Ŝanĝi el Deklaroj .
  • Tiam agordu la Adreson por koni la lokon.
  • Fine ene de la IF proklamo uzis la Aŭtofiltril metodon kun Kampo kaj Kriterioj
  • Nun nur elektu kriteriojn el la fallisto kaj la Filtrilo estos aktivigita .

Jen la Filtrita eligo post elekto de Vira el la falu .

Legu Pli: Kiel Filtri per Listo en Alia Folio en Excel (2 Metodoj)

Praktika sekcio

Vi ricevos praktikfolion en la Excel-dosiero donita supre por ekzerci la klarigitajn manierojn.

Konkludo.

Mi esperas, ke la supre priskribitaj proceduroj estos sufiĉe bonaj por uzi VBA kodon por Filtri datenojn en excel. Bonvolu demandi ajnan demandon en la komenta sekcio kaj bonvolu doni al mi komentojn.

Hugh West estas tre sperta Excel-trejnisto kaj analizisto kun pli ol 10 jaroj da sperto en la industrio. Li tenas bakalaŭron en Kontado kaj Financo kaj magistron en Komercadministracio. Hugh havas entuziasmon por instruado kaj evoluigis unikan instruan aliron kiu estas facile sekvi kaj kompreni. Lia sperta scio pri Excel helpis milojn da studentoj kaj profesiuloj tutmonde plibonigi siajn kapablojn kaj elstari en siaj karieroj. Per sia blogo, Hugh dividas sian scion kun la mondo, proponante senpagajn Excel-lernilojn kaj interretan trejnadon por helpi individuojn kaj entreprenojn atingi sian plenan potencialon.