Excel: Cellers baggrundsfarvekode i RGB-format?

http://www.enetplace.com/color-picker.html

http://www.linxexplorer.com/colorpicker.html

Øverst: Online
Nederst: Program, lås dig fast et sted, f.eks en celle, peg på en farve og aflæs RGB.

Tak for forslaget - det gør ganske rigtigt det jeg efterspurgte, men jeg kan se, at jeg manglede at tydeliggøre, at det skal ske i VBA koden... altså uden at jeg manuelt skal ind og aflæse hver gang.

I koden kender jeg de celler, som får en anden farve (sættes pt. via colorindex), men den baggrundsfarve de får, afhænger af den aktuelle iteration.

Lidt baggrundsinfo:

Til et specialudviklet regneark har jeg lavet en funktion i VBA, som tjekker efter ord, der er identiske.

Hvis der i celle A1 findes ord X som er identisk med ord Y i f.eks. celle K8, så vil mit program via en dialogboks fortælle brugeren, at ordene i celle A1 og K8 er identiske.

Dette sker via en iteration af data i et bestemt celleområde.

---------------------Ovenstående er lavet og fungerer---------------------

Mit ønske er så, at for at brugeren kan se hvilke celler, der har ens ord, så skal disse cellers baggrundsfarve matche, men stadig være forskellig for evt. fundne ord i næste iteration (som nu har bevæget sig videre og derfor tager udgangspunkt i A2 og påny sammenligner ordet heri med cellerne i det afgrænsede område).

Dette har jeg også implementeret dog indtil videre kun sådan, så alle celler med matchende ord (uanset iteration) får baggrundsfarven rød.

Hagen ved et sådan farveskift er, at man selv efterfølgende skal ind og manuelt sætte baggrundsfarven tilbage til hvid.
Derfor er jeg igang med at implementere en timerfunktion, der over 5-10 sekunder fader den pågældende baggrundsfarve tilbage til hvid. Fade-effekten kræver at jeg i koden kan få adgang til RGB-værdien af baggrundsfarven.

Nå, nu har jeg fundet en løsning med hjælp fra gutterne hos Ozgrid: http://www.ozgrid.com/forum/showthread.php?t=144541&s=0cae5cbab75428c336897ddaf9873aff&p=514673#post514673

Jeg har oprettet funktionen SingleColorFromRGB, som returnerer den røde, blå eller grønne farvekode ud fra den værdi, der returneres af range.interior.color.


Function SingleColorFromRGB(colorWanted As String, RGBValue As Long) As Long
    Dim rColor As Long, gColor As Long, bColor As Long
    If RGBValue < 0 Then GoTo ReturnError

    rColor = RGBValue Mod 256
    RGBValue = Int(RGBValue / 256)
    gColor = RGBValue Mod 256
    bColor = Int(RGBValue / 256)

    If bColor >= 256 Then GoTo ReturnError
 
    Select Case LCase(Trim(colorWanted))
        Case "red"
            SingleColorFromRGB = rColor
        Case "green"
            SingleColorFromRGB = gColor
        Case "blue"
            SingleColorFromRGB = bColor
        Case Else
            Rem colorWanted is not red, green, or blue
            GoTo ReturnError
    End Select
    Exit Function
ReturnError:
    If TypeName(Application.Caller) = "Range" Then
        SingleColorFromRGB = "error"
    Else
        SingleColorFromRGB = -1
    End If
End Function