marți, 15 aprilie 2008

cum sa ... Sortati in Excel dupa culoare

Daca aveti Excel 2007, aveti noroc - este deja prevazut in filtre .



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: