Lijst met RGB-nummers van kleuren in Excel

[Senso]

Is er iemand op dit forum die een lijst heeft gemaakt zoals op de afbeelding of iets dergelijks. Of bestaat een lijst op internet? Dus je zet in een cel een kleur (opvul- of fontkeur) en andere kolommen de gegevens. Het gaat dan om de standaardkleuren in Excel.

 

[Aar]

https://nl.wikipedia.org/wiki/Lijst_van_HTML-kleuren

 

[edmoor]

Zoiets?
https://nl.wikipedia.org/wiki/Lijst_van_RAL-kleuren

Of deze:
http://dmcritchie.mvps.org/excel/colors.htm

 

[edmoor]

https://nl.wikipedia.org/wiki/Lijst_van_HTML-kleuren

Helaas wijken de RGB waarden van de HTML lijst soms af van de kleuren met dezelfde RGB waarden in Excel.

 

[Senso]

Ja, dat is heel mooi. Die laatste zal voor Excel zijn. Helaas is mij dat veel te uitgebreid en dat duizelt mij een beetje. Ik zoek iets eenvoudiger, alleen de standaardkleuren binnen die groepen van Excel. Wellicht kom ik nog wat tegen op internet.

Ik heb deze net ontdekt. Die zou dan net omgekeerd moeten zijn. Dus je geeft in A de kleur en BCD de RGB-waarden.

 

[edmoor]

Mijn 2e link gaat over de Excel Color Index.
Dat zijn er maar 56.

Anders zijn het er 16.000.000

 

[Senso]

Ja, dat zal ook best kloppen. Echter het schema is mij veel te ingewikkeld. Onderstaande bedoel ik en dan omgekeerd.

Public Regel As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
    Cells(Regel, 4).Interior.Color = RGB(Cells(Regel, 1).Value, Cells(Regel, 2).Value, Cells(Regel, 3).Value)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Regel = ActiveCell.Row
End Sub

 

[edmoor]

Met een simpel stukje VBA kan je van die index kleuren eenvoudig zo'n lijstje maken als in je voorbeeld.
Waarschijnlijk heb je genoeg aan de LONG waarde en de RGB waarden.
De LONG waarde kan je gebruiken bij .Interior.Color en heb je dat RGB verhaal niet nodig.

Daarvoor heb je niet meer nodig dan dit:

Sub IndexKleuren()
    For i = 1 To 56
        Cells(i, 1).Interior.ColorIndex = i
    Next i
End Sub

Function Long2RGB(target As Range, RGB As String) As Long
    longC = target.Interior.Color
    Select Case RGB
        Case "R":   longC = (longC Mod 256)
        Case "G":   longC = (longC \ 256) Mod 256
        Case "B":   longC = (longC \ 65536) Mod 256
        Case "L"
    End Select
    
    Long2RGB = longC
End Function

 

[Senso]

Ik ga er mee aan de slag. Was even druk met bedrijven berichten te sturen. Zie sectie Members Chat.

 

[snb]

Of zo:

Sub M_snb()
   For j = 2 To 57
      Cells(j, 1).Interior.ColorIndex = j - 1
      Cells(j, 2) = Cells(j, 1).Interior.Color
      Cells(j, 3) = Application.Dec2Hex(Cells(j, 2))
      Cells(j, 4) = IIf(Len(Cells(j, 3)) = 6, Application.Hex2Dec(Left(Cells(j, 3), 2)), 0)
      Cells(j, 5) = IIf(Len(Cells(j, 3)) > 2, Application.Hex2Dec(Left(Right(Cells(j, 3), 4), 2)), 0)
      Cells(j, 6) = Application.Hex2Dec(Right(Cells(j, 3), 2))
   Next
End Sub

NB. Ik probeerde de kleur vast te stellen met de formule '=Cell("color";A7)', maar dat gaf overal 0 als resultaat. Wie weet hoe dat moet ?

 

[Senso]

Ja, mooi en zal allemaal kloppen. Ik wil wat meer schema toepassen in het geheel. Bijgaand een voorbeeld.

Kan iemand hier de nummers dan ingevuld krijgen met vba of formule?
Bekijk bijlage Excel Kleur - Kleuren met RGB-instelling.xlsm

 

[edmoor]

Dat is exact wat ik in #8 laat zien en snb op een andere manier in #10.

 

[AD1957]

@snb,

Dit gevonden: https://thefinch.wordpress.com/2008/01/28/excel-kleur-cel-achterhalen-zonder-vba/

 

[Senso]

Als ik alles direct zou begrijpen dan was ik volmaakt.:d:d:d
Zal nog eens kijken, ben al een stukje verder.

 

[edmoor]

Doe je best
Uiteraard moet het aan je eigen layout worden aangepast.

 

[snb]

@AD

Dankjewel, maar dat maakt gebruik van VBA.
En dan kan het veel simpeler dan daar beschreven.
Waarom =Cell("color";A1) niets oplevert is daarmee nog niet opgelost.

 

[Senso]

@Edmoor
Het schema is gelukt. Bedankt.
1. Hoe kom jij aan die lijst met kleuren. Zit daar een systeem in? Ik vind dat alles door elkaar staat.
2. Waar staan die getallen onder de L voor? Waar toegepast? Dus kolom R, G, B en L.

 

[edmoor]

Die lijst met kleuren kan je vinden middels de 2e link in #3.
De L staat voor Long.
De RGB functie levert ook een getal van het type Long op.

 

[Senso]

Mooi, de praktische toepassing moet ik dan nog een beetje uitvinden. Ik heb in ieder geval een mooi schema voor Excel. Bedankt allemaal voor de hulp.:thumb:Een nieuwe printer die met kleuren werkt is toch mooi. Altijd met zwart/wit gewerkt.

 

[HSV]

@snb,

Met naam bepalen: bv. kleur

=cel.lezen(63,a2)
In de cel: =kleur