Daca aveti Excel 2003, una din posibilitati este sa creeati un macro de forma urmatoare:
Function Culoare(ByVal Rind As Range, CelulaCuloareDefault As Range) As String
Dim v As Range, DefColor As Variant
DefColor = CelulaCuloare.Interior.Color
For Each r In CelRange.Cells
If r.Interior.Color <> DefColor Then
Culoare = Hex(r.Interior.Color)
Exit Function
End If
Next v
Culoare = Hex(DefColor)
End Function
Introduceti macro-ul si puneti formula :
=Culoare(D2:E2;D2)
Niciun comentariu:
Trimiteți un comentariu