< 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

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32