Bepalen van de RGB kleurencode

[Masjimo]

Ik ben een planning aan het maken en wil voor de verschillende activiteiten verschillende kleuren invoegen.

Op een werkblad met de standaardinstellingen wil ik per hoofd-activiteit een kleur kunnen selecteren. Vervolgens wil ik de RGB/code naast de ingekleurde cel plaatsen(zodat ik deze in VBA kan gebruiken voor het inkleuren van de verschillende balken van de activiteiten)

Hoe laat ik in cell B1 de RGB-code zien voor de kleur die ik in cell A1 heb geselecteerd?

Alvast bedankt voor de goeie tip!

Henk

 

[danny147]

Beste Masjimo

Zie bestandje.

Kijk ook eens naar deze site

Groetjes Danny :thumb:

 

[zapatr]

RGB-kleuren zijn op deze site enkele maanden geleden nog aan de orde geweest,
dus als je even gezocht had... zie hier:
http://www.helpmij.nl/forum/showthread.php/570401-RGB-kleur-direct-weergeven-in-Excel

 

[danny147]

Beste zapatr

RGB-kleuren zijn op deze site enkele maanden geleden nog aan de orde geweest,
dus als je even gezocht had... zie hier:
http://www.helpmij.nl/forum/showthread.php/570401-RGB-kleur-direct-weergeven-in-Excel

Deze had ik ook zien staan, maar hij doet het omgekeerde
TS vraagt om de RGB waarden van een kleur en niet om de kleur van de RGB waarden.
Dus heeft TS misschien wel gezocht maar niet gevonden en jij TS zijn vraag niet goed gelezen.

Groetjes Danny. :thumb:

 

[zapatr]

.....en jij TS zijn vraag niet goed gelezen.

Toch wel !
Wat ik vooral wilde dat de vragensteller las, is dat het weinig zin heeft om in vba-code de rgb-kleuren te gebruiken (want dat wil hij) als je er in Excel maar 56 kunt gebruiken. Het is daarom veel eenvoudiger om colorindex te gebruiken.

 

[danny147]

Beste zapatr

Toch wel !
Wat ik vooral wilde dat de vragensteller las, is dat het weinig zin heeft om in vba-code de rgb-kleuren te gebruiken (want dat wil hij) als je er in Excel maar 56 kunt gebruiken. Het is daarom veel eenvoudiger om colorindex te gebruiken.

Dat is waar, maar dat vroeg hij niet.
Waarom moeilijk doen als het gemakkelijk gaat hé ?
Dat moet hij ook weten wat de colorindex is van een kleur en dat kan hij in dit bestandje dan vinden.
Hier kan je goed zien aan de 56 kleuren die je kan gebruiken.
Kijk naar cel A3 en A4 en naar de colorindex in cel C3 en C4.

Groetjes Danny. :thumb:

 

[Masjimo]

RGB kleurcodes

Danny,

Bedankt voor je bijdrage; ik ben weer een stapje verder!

Henk

Beste Masjimo

Zie bestandje.

Kijk ook eens naar deze site

Groetjes Danny :thumb:

 

[Warme bakkertje]

@ Danny
Vermijd het gebruik van worksheetfunction in VBA indien er een VBA-alternatief is

Sub test()
Dim rgb As String, r As String, g As String, b As String
rgb = showRGB(Range("A1"))
r = Val("&h" & Left(rgb, 2))
g = Val("&h" & Mid(rgb, 3, 2))
b = Val("&h" & Right(rgb, 2))
MsgBox r & vbTab & g & vbTab & b
End Sub

 

[danny147]

Beste Warme bakkertje

@ Danny
Vermijd het gebruik van worksheetfunction in VBA indien er een VBA-alternatief is

Sub test()
Dim rgb As String, r As String, g As String, b As String
rgb = showRGB(Range("A1"))
r = Val("&h" & Left(rgb, 2))
g = Val("&h" & Mid(rgb, 3, 2))
b = Val("&h" & Right(rgb, 2))
MsgBox r & vbTab & g & vbTab & b
End Sub

Bedankt voor de opmerking, maar het is een code die ik gevonden heb op het net en niet zelf in elkaar heb gestoken.

Groetjes Danny. :thumb: