ВБА - ЕКСЦЕЛ - Метод АутоФилтер и Објецт Ранге
Можда ће бити потребно неколико типова филтера у Екцел листу да би помогли у ВБА програмирању. Екцел лист се користи да поједностави досадне прорачуне и постављање филтера је важно у процесу. Ово ће помоћи у постављању опсега у Екцелу користећи једноставне програме у ВБА. Главни упит који људи имају је како дохватити објекте у формату опсега објеката. У даљем тексту је мала лекција за програмирање ВБА о избору аутоматског филтера и опсега објеката у пољу одређене ћелије у Екцел листу. Покрените га покретањем макроа и завршите суб ВБА програм. Ћелије морају бити активне и не скривене филтерима.
Питање
Са ВБА програмирањем, могуће је поставити филтере на листу:
Селецтион.АутоФилтер Фиелд: = 1, Цритериа1: = "ФОО"
- Филтер приказује одређени број линија на основу дефинисаних критеријума.
- Како дохватити ове редове у Ранге објектима?
Решење
Ово би требало да одговори на ваш проблем:
Суб Мацро2 () Сун рнгСелецт Ас Ранге 'Претпоставио сам да су филтери на линији 1 Ранге ("А1"). Селецт 'Филтеринг' Селецтион.АутоФилтер Фиелд: = 1, Цритериа1: = "ФОО" Селецтион.АутоФилтер Фиелд: = 7 Цритериа1: = "* парис *" 'РнгСелецт = све ћелије видљиве (не скривене од стране филтера)' Континуирано ацтиве целл Сет рнгСелецт = АцтивеЦелл.ЦуррентРегион.СпециалЦеллс (клЦеллТипеВисибле) 'Копирај изабрану област рнгСелецт.Цопи Дебуг.Принт рнгСелецт.Аддресс' ... 'Наредбе' Много и разноврсно '... Постави рнгСелецт = Ништа није крај