VBA - EXCEL - automaattisen suodattimen ja objektialueiden menetelmä

VBA-ohjelmointiin voi tarvita Excel-arkissa useita erilaisia ​​suodattimia. Excel-arkkia käytetään tylsiä laskelmia yksinkertaistamaan ja suodattimet ovat tärkeitä prosessissa. Tämä auttaa määrittämään alueen Excelissä käyttämällä yksinkertaisia ​​ohjelmia VBA: ssa. Tärkein kysely, joka ihmisillä on, on hakea esineitä objektialueella. Alla oleva artikkeli on pieni VBA-ohjelmointitunti, joka valitsee automaattisen suodattimen ja kohteen alueen tietyn solun kentässä Excel-levyllä. Käynnistä se käynnistämällä makro ja lopeta VBA-ohjelma. Solujen on oltava aktiivisia eikä suodattimien piilossa.

Ongelma

VBA-ohjelmoinnilla on mahdollista asettaa suodattimia arkille:

•  Valinta.AutoFilter Field: = 1, kriteerit1: = "FOO" 

• Suodatin näyttää tietyn määrän rivejä määriteltyjen kriteerien perusteella.
• Kuinka hakea nämä rivit Range-objektiin?

Ratkaisu

Tämän pitäisi vastata ongelmaan:

 Sub Macro2 () Sun rngSelect As Range: Oletin, että suodattimet ovat linjalla 1 Range ("A1"). Valitse 'Suodatus' Selection.AutoFilter Field: = 1, kriteerit1: = "FOO" valinta.AutoFilter Kenttä: = 7 kriteerit1: = "* paris *" 'RngSelect = kaikki solut, jotka ovat näkyvissä (ei ole piilossa suodattimella)' aktiivinen solu Aseta rngSelect = ActiveCell.CurrentRegion.SpecialCells (xlCellTypeVisible) 'Kopioi valittu alue rngSelect.Copy Debug.Print rngSelect.Address' ... 'Komennot' Monet ja monipuoliset '... Aseta rngSelect = Ei mitään End Sub