< návrat zpět

MS Excel

Téma: barva jako proměnná rss

Zaslal/a guma 6.6.2019 14:04

Dobrý den, chtěl bych labely ve form obarvit podle barev buněk v listu. Tento kod mi ale nefunguje. Kde je chyba?
B1 = Sheets("List1").Cells(1, 1).Interior.Color
B2 = Sheets("List1").Cells(2, 1).Interior.Color
B3 = Sheets("List1").Cells(3, 1).Interior.Color
B4 = Sheets("List1").Cells(4, 1).Interior.Color
For i = 1 To 4
Me.Controls("label" & i).BackColor = "B" & i
Next i

Zaslat odpověď >
Anonym(6.6.2019 14:22)#043492
avatar
"B" & i
vrací text "B1", "B2", ... nikoli hodnotucitovat
Anonym(6.6.2019 14:34)#043494
avatar
a proč ne

For i = 1 To 4
Me.Controls("label" & i).BackColor = Sheets("List1").Cells(i, 1).Interior.Color
Next icitovat
Darbujan(6.6.2019 19:09)#043496
avatar
Barvu pozadí přenášet do barvy písma - to je trošku ujeté, ostatně bez pardonů KAŽDÉ řešení pracující čistě jen s barvou písma je bejkárna.citovat
guma(6.6.2019 19:43)#043497
avatar
Děkujicitovat

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