[es] - algoritam za dodeljivanje vrednosti na osnovu boje celije

Laki024

Član broj: 161293
Poruke: 585
*.dynamic.isp.telekom.rs.

+64 Profil

algoritam za dodeljivanje vrednosti na osnovu boje celije

^{04.04.2013. u 00:29 - pre 146 meseci}

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

Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com

+49 Profil

Re: algoritam za dodeljivanje vrednosti na osnovu boje celije

^{04.04.2013. u 10:03 - pre 146 meseci}

mozda ovo pomogne

[email protected]=

Prikačeni fajlovi

IndeksBoja.xlsm - 16.32k

Odgovor na temu

Brodoplovac
Beograd

Član broj: 171299
Poruke: 838
*.adsl.verat.net.

+166 Profil

Re: algoritam za dodeljivanje vrednosti na osnovu boje celije

^{04.04.2013. u 10:20 - pre 146 meseci}

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

Prikačeni fajlovi

4-4-2013 11-19-19.png - 3.78k

Boja u vrednost.xlsm - 15k

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1330

Jabber: 3okc@elitesecurity.org

+121 Profil

Re: algoritam za dodeljivanje vrednosti na osnovu boje celije

^{04.04.2013. u 11:18 - pre 146 meseci}

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

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Prikačeni fajlovi

CellColor_v2.xls - 42k

Odgovor na temu