Article View: pl.comp.lang.vbasic
Article #92668Re: Wiele arkuszy w Exceclu (VBA)
From: mmpiekarz
Date: Sun, 06 Nov 2005 22:52
Date: Sun, 06 Nov 2005 22:52
24 lines
1527 bytes
1527 bytes
> Czesc, > > Moze tak: > > ile_zakladek = ThisWorkbook.Worksheets.Count > i = 1 > Do While i <= ile_zakladek > ThisWorkbook.Worksheets(i).Activate > Makro > i = i + 1 > Loop Bardzo dziekuje za odpowiedz:) Juz prawde mowiac sobie poradzilem, ale zawsze nowy pomysl jest inspieujacy:) Tak sie zastanawiam, czy przy takim kodzie nie bedzie problemu z tym ze te arkusze nie sa kolejno numerowane? po prostu kilka z nich jest wykasowanych a tu w sumie sie odwolujemy do ThisWorkbook.Worksheets(i) gdzie i jest kolejna liczba... Zaciekawilo mnie to bede musial sprawdzic:) Pozdrawiam -- Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
Technical Details
Message-ID:
<2b97.0000095f.436e893c@newsgate.onet.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsgate.onet.pl!niusy.onet.plReferences:
<dkla18$d5a$1@atlantis.news.tpi.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsgate.onet.pl!niusy.onet.pl From: mmpiekarz@poczta.onet.pl Newsgroups: pl.comp.lang.vbasic Subject: Re: Wiele arkuszy w Exceclu (VBA) Date: 6 Nov 2005 23:52:45 +0100 Organization: Onet.pl SA Lines: 24 Message-ID: <2b97.0000095f.436e893c@newsgate.onet.pl> References: <dkla18$d5a$1@atlantis.news.tpi.pl> NNTP-Posting-Host: newsgate.onet.pl Mime-Version: 1.0 X-Trace: newsgate.test.onet.pl 1131317565 9182 213.180.130.18 (6 Nov 2005 22:52:45 GMT) X-Complaints-To: abuse@onet.pl NNTP-Posting-Date: 6 Nov 2005 22:52:45 GMT X-Mailer: http://niusy.onet.pl X-Forwarded-For: 83.31.0.143, 192.168.243.43 X-User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.0.3705) Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit