Šlo by to třeba přes podmíněné formátování. Barevná škála na jiném listu ale bude v tomto případě k ničemu.
Pomocí vzorců, pokud vím, nejde odkazovat na barvu, takže by se pak jedině muselo využít nějaké makro ve VBA.
P.
Př.:
Podmíněné formátování/ Nové pravidlo/ Vzorec
Zadej toto a vyber výplň... (pro každou barvu)
=$A$1="černá"Nebo využij VBA kód:Private Sub Worksheet_Change(ByVal Target As Range)
Dim radek As Long
Dim cislo_barvy As Long
On Error Resume Next
radek = WorksheetFunction.Match(Range("A1"), Sheets("List2").Range("A1:A30"), 0)
cislo_barvy = Sheets("List2").Range("B" & radek).Interior.Color
Range("B1").Interior.Color = cislo_barvy
End Subcitovat
Pomocí vzorců, pokud vím, nejde odkazovat na barvu, takže by se pak jedině muselo využít nějaké makro ve VBA.
P.
Př.:
Podmíněné formátování/ Nové pravidlo/ Vzorec
Zadej toto a vyber výplň... (pro každou barvu)
=$A$1="černá"Nebo využij VBA kód:Private Sub Worksheet_Change(ByVal Target As Range)
Dim radek As Long
Dim cislo_barvy As Long
On Error Resume Next
radek = WorksheetFunction.Match(Range("A1"), Sheets("List2").Range("A1:A30"), 0)
cislo_barvy = Sheets("List2").Range("B" & radek).Interior.Color
Range("B1").Interior.Color = cislo_barvy
End Subcitovat
RSS nejnovější články