🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.vbasic
Article #104993

VBA Excel autofilter kryteria z tablicy

#104993
From: komar
Date: Wed, 12 Feb 2014 12:15
29 lines
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-mail

Show 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