< návrat zpět

MS Excel


Téma: Změna barvy tlačítka po kliknutí rss

Zaslal/a 11.10.2022 10:51

Poradil by jste mi někdo prosím jak na to? Mám několik ovládacích tlačítek pro jednotlivá makra a potřeboval bych, aby se po kliknutí na jedno z nich jeho barva změnila a zůstala do doby, než se klikne na jiné. Moc děkuji

Zaslat odpověď >

#053605
avatar
http://wall.cz/index.php?m=topic&id=49930citovat
#053606
avatar
https://office.lasakovi.com/excel/PowerApps/Jak-na-Tlacitko-Button-PowerApps/citovat
#053608
avatar
Díky, to jsem samozřejmě koukal taky, ale já nevím, jak to zakomponovat. Našel jsem třeba tohle, ale nevím, jestli ten kód přidat k makru, které ovládá to tlačítko, nebo nějak sólo.
Sub zmenaBarvy()

End Sub

Private Sub Tlacitko_Click()

Select Case Tlacitko.BackColor

Case vbRed
Tlacitko.BackColor = vbGreen
Case vbGreen
Tlacitko.BackColor = vbRed
End Select

End Subcitovat
#053610
elninoslov
Takže máte nejaký menný zoznam tlačítok? A v nich má mať vbRed iba jedno tlačítko, a ostatné vbGreen? Na spôsob Option Buttons? Ak nemáte zoznam názvov tlačítok, ako ich má makro identifikovať spomedzi ostatné prvky formulára? Sú v skupine Group? Na to je vhodná príloha.
Příloha: zip53610_farebne-tlacitka-v-userform.zip (15kB, staženo 10x)
citovat
#053613
avatar
Ty barvy by mohly fungovat stejně, jako ve vašem userForm1, ale já ty tlačítka mám sólo v sešitě, celkem 5, stejně jako to vaše úvodní.citovat
#053615
elninoslov
Trochu to bliká
Příloha: zip53615_farebne-tlacitka-activex.zip (25kB, staženo 13x)
citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje