Article View: pl.comp.lang.vbasic
Article #104437Re: [VBA Excel 2003] jak się dostać do CommandButton
From: Tajan
Date: Fri, 15 Jan 2010 10:22
Date: Fri, 15 Jan 2010 10:22
28 lines
2202 bytes
2202 bytes
Użytkownik "Michal AKA Miki" <jakistammichal@z.onetu.pl> napisał w
wiadomości news:hilmu5$of7$1@inews.gazeta.pl...
>
> Użytkownik "Borafu" <borafu_NIELUBIESPAMU@gazeta.pl> napisał w wiadomości
> news:hilfvn$1lk$1@inews.gazeta.pl...
(...)
> Oczywiscie wszystko musisz dokladnie sprawdzic - jak sie nazywa twoj
> CommandButton, jak sie nazywa arkusz (wg nazwy kodowej albo na zakladce w
> zaleznosci od wersji).
> wg twojej analogii powinno to wygladac tak:
>
> Dim arkuszFZ As Worksheet
> Set arkuszFZ = ThisWorkbook.Worksheets("FZ")
> arkuszFZ.CommandButton1.Enabled = False
>
To nie zadziała, gdyż klasa Worksheet faktycznie nie posiada własciwości
"CommandButton1".
Zawiera go dopiero instancja tej klasy, czyli obiekt arkusza "FZ".
Kompilator sprawdza właściwościi metody danej klasy a nie obiektu arkusza,
więc zgłasza błąd.
Obejściem jest zadeklarowanie zmiennej jako ogólnego typu obiektowego:
Dim arkuszFZ As Object
Tajan
Technical Details
Message-ID:
<hipfsu$gbo$1@atlantis.news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mailReferences:
<hiklqs$e9u$1@inews.gazeta.pl> <hil2f2$854$1@atlantis.news.neostrada.pl> <hilfvn$1lk$1@inews.gazeta.pl> <hilmu5$of7$1@inews.gazeta.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!news.nask.pl!news.nask.org.pl!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsfeed.neostrada.pl!unt-exc-01.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail From: "Tajan" <Tajan@interia.pl> Newsgroups: pl.comp.lang.vbasic Subject: Re: [VBA Excel 2003] jak się dostać do CommandButton Date: Fri, 15 Jan 2010 11:22:40 +0100 Organization: TP - http://www.tp.pl/ Lines: 29 Message-ID: <hipfsu$gbo$1@atlantis.news.neostrada.pl> References: <hiklqs$e9u$1@inews.gazeta.pl> <hil2f2$854$1@atlantis.news.neostrada.pl> <hilfvn$1lk$1@inews.gazeta.pl> <hilmu5$of7$1@inews.gazeta.pl> NNTP-Posting-Host: hmn221.internetdsl.tpnet.pl Mime-Version: 1.0 X-Trace: atlantis.news.neostrada.pl 1263551198 16760 79.188.65.221 (15 Jan 2010 10:26:38 GMT) X-Complaints-To: usenet@news.neostrada.pl NNTP-Posting-Date: Fri, 15 Jan 2010 10:26:38 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.3598 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3350 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit