Article View: pl.comp.lang.vbasic
Article #104993VBA Excel autofilter kryteria z tablicy
From: komar
Date: Wed, 12 Feb 2014 12:15
Date: Wed, 12 Feb 2014 12:15
29 lines
2317 bytes
2317 bytes
Mam dziwny problem z autofiltrem w Excelu 2003. Otóż mam tablice
zawierająca ciągi tekstowe /np. x=Array("AAA", "BBB")/.
Chcę zapisać do zmiennej zakres komórek w arkuszu Excela spełniający
warunki podane w autofiltrze (na górze zakresu są komórki z tytułami
kolumn, a na dole zakresu jedna kolumna jest sumowana, dlatego
filtrowany zakres jest pomniejszany o te 2 wiesze) - podam fragment
kodu, to będzie lepiej widać o co mi chodzi:
.Range("A4").AutoFilter Field:=15, Criteria1:=1
.Range("A4").AutoFilter Field:=10, Criteria1:=x(1)
Set rng =
.AutoFilter.Range.Offset(1,0).Resize(.AutoFilter.Range.Rows.Count
2).SpecialCells(xlCellTypeVisible)
Załóżmy, że w wyfiltrowanym zakresie nie ma w kolumnie 10 komórek z
wartością "AAA". Mimo to polecenie rng.Rows.Count podaje wynik..... 1 !
Czemu??? Jak zmienić kod aby podawał poprawną wartość?
Dodam, że kiedy ustawienie tego filtra zmienię na:
.Range("A4").AutoFilter Field:=10, Criteria1:="AAA"
to wtedy wszystko jest ok - polecenie rng.Rows.Count podaje wynik 'Empty'
Stąd moje pytanie - jak podać do autofiltra jako kryteria dane z tablicy
zawierającej ciągi tekstowe, aby zwracana była poprawna ilość wierszy w
wybranym zakresie, spełniającym zapytanie autofiltra?
komar
Technical Details
Message-ID:
<52fb65d1$0$2155$65785112@news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!news.glorb.com!news-out.readnews.com!transit3.readnews.com!nx02.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!agh.edu.pl!news.agh.edu.pl!newsfeed2.atman.pl!newsfeed.atman.pl!news.nask.pl!news.nask.org.pl!newsfeed.pionier.net.pl!news.glorb.com!news-out.readnews.com!transit3.readnews.com!nx02.iad01.newshosting.com!newshosting.com!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!unt-spo-a-02.news.neostrada.pl!news.neostrada.pl.POSTED!not-for-mail Date: Wed, 12 Feb 2014 13:15:11 +0100 From: komar <stanjach@poczta.onet.pl> Reply-To: stanjach@poczta.onet.pl User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:24.0) Gecko/20100101 Thunderbird/24.1.0 MIME-Version: 1.0 Newsgroups: pl.comp.lang.vbasic Subject: VBA Excel autofilter kryteria z tablicy Lines: 29 Message-ID: <52fb65d1$0$2155$65785112@news.neostrada.pl> Organization: Telekomunikacja Polska NNTP-Posting-Host: 83.5.224.19 X-Trace: 1392207314 unt-rea-a-02.news.neostrada.pl 2155 83.5.224.19:50522 X-Complaints-To: abuse@news.neostrada.pl Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit