🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

Re: [VBA Excel 2003] jak się dostać do CommandButton

#104435
From: Michal AKA Miki
Date: Thu, 14 Jan 2010 00:02
44 lines
2518 bytes
Użytkownik "Borafu" <borafu_NIELUBIESPAMU@gazeta.pl> napisał w wiadomości 
news:hilfvn$1lk$1@inews.gazeta.pl...
> janusz pisze:
>> Witam
>>
>> Po prostu napisz
>>
>> NazwaAkrusza.CommandButton1.Enabled = True
>
> Niestety :-(
>
> Run-time error '424':
> Object required
>

To w takim razie zle napisales, bo normalnie to dziala.
Zobacz w edytorze VBA wlasciwosci arkusza - ma on 2 wlasciwosci Name - jedna 
w nawiasach, a druga bez. Ta w nawiasach to nazwa kodowa i ja wlasnie 
uzywasz. Jesli chcesz uzywac nazwy na zakladce, mozesz uzywac cos na 
ksztalt:
ThisWorkbook.Worksheets("Arkusz1").CommandButton1.Enabled = False

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

Jesli znowu zwroci "Method or data member not found", zweryfikuj, czy 
rzeczywiscie tak sie nazywa przycisk (u ciebie byl to btnWykonaj, czy nie 
walnales gdzies literowki).

tylko taka uwaga:
Rozwiazanie wskazane przez kolege jest o tyle lepsze, ze jesli masz wszystko 
OK, VBA powinien podpowiedziec ci wlasnosci i funkcje obiektow - czyli 
mozesz z listy wybrac ten wlasciwy. W twoim rozwiazaniu (lub tym 
zmodyfikowanym powyzej) tych obiektow nie zobaczysz.

Pozdrawiam
Michal
Technical Details
Message-ID: <hilmu5$of7$1@inews.gazeta.pl>
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
References: <hiklqs$e9u$1@inews.gazeta.pl> <hil2f2$854$1@atlantis.news.neostrada.pl> <hilfvn$1lk$1@inews.gazeta.pl>

Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!not-for-mail
From: "Michal AKA Miki" <jakistammichal@z.onetu.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: [VBA Excel 2003] jak się dostać do
 CommandButton
Date: Thu, 14 Jan 2010 01:02:08 +0100
Organization: "Portal Gazeta.pl -> http://www.gazeta.pl"
Lines: 46
Message-ID: <hilmu5$of7$1@inews.gazeta.pl>
References: <hiklqs$e9u$1@inews.gazeta.pl> <hil2f2$854$1@atlantis.news.neostrada.pl> <hilfvn$1lk$1@inews.gazeta.pl>
NNTP-Posting-Host: mjelinski.tsi.tychy.pl
X-Trace: inews.gazeta.pl 1263427333 25063 83.142.120.170 (14 Jan 2010 00:02:13 GMT)
X-Complaints-To: usenet@agora.pl
NNTP-Posting-Date: Thu, 14 Jan 2010 00:02:13 +0000 (UTC)
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5512
X-Priority: 3
X-RFC2646: Format=Flowed; Response
X-Newsreader: Microsoft Outlook Express 6.00.2900.5512
X-User: michalakamiki
X-MSMail-Priority: Normal
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit