algoritam za dodeljivanje vrednosti na osnovu boje celije

[ Laki024 @ 04.04.2013. 00:29 ] @

Imam pitanje pa me zanima kao i naslovu da li je moguce postaviti algoritam za dodeljivanje vrednosti na osnovu boje celije.

da pojednostavim

Imam kolunu A ( boje ) i kolonu B ( potrebno je da dobijem vrednost na osovu te boje )

Npr

ako je A - green onda je B =2

ako je A - red onda je B = 3

[ FOX028 @ 04.04.2013. 10:03 ] @

mozda ovo pomogne

[ Brodoplovac @ 04.04.2013. 10:20 ] @

Moguće je samo pomoću VBA.
Ovakvom funkcijom možeš da saznaš koji broj predstavlja neku boju:

Code:
Function fncKojaJeBoja(rngCell As Range)
Dim lngBoja As Long
fncKojaJeBoja = rngCell.Interior.Color
End Function

Koristeći te brojeve možeš da definišeš funkciju koja će ti za datu boju ćelije vraćati neku željenu vrednost:

Code:
Function fncBojaUVrednost(rngCell As Range)
Dim lngBoja As Long
    lngBoja = rngCell.Interior.Color
    Select Case lngBoja
        Case 65535
            fncBojaUVrednost = "žuta"
        Case 5296274
            fncBojaUVrednost = "zelena"
        Case 14281213
            fncBojaUVrednost = "roze"
        Case 14994616
            fncBojaUVrednost = "plava"
    End Select
End Function

[ 3okc @ 04.04.2013. 11:18 ] @

Imali smo ovo pre 5 godina u Sabiranje vrednosti obojenih ćelija

Danas bih koristio Application.Volatile umesto opcionog argumenta - za istu svrhu tj osvežavanje vrednosti nakon izmene.

Code:

Function CellCol(Target As Range) As Long

Application.Volatile
CellCol = Target.Interior.ColorIndex
End Function