• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: barva jako proměnná

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

"B" & i
vrací text "B1", "B2", ... nikoli hodnotucitovat

Anonym(6.6.2019 14:34)#043494

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

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

Děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse