Showing RGB Colors in a Cell

Thanks @J. Woolley... I've left my response on your comments page.

@KV
Re. your comment dated 2024-07-08, My Excel Toolbox now includes the following dynamic array function to list macro shortcut keys for all open add-ins and workbooks plus Personal.xlsb (if applicable):
    =ListMacroShortcuts()
Expect 4 columns containing Workbook, Component, Macro, and Shortcut.
See https://sites.google.com/view/MyExcelToolbox/Caution for additional information re. ListProcs, ListMacroSortcuts, and ListAddIns.

@J. Woolley

I've done as you suggested and posted my comment on your website. Thanks.

@KV
Thank you for your interest. Please post questions about My Excel Toolbox here: https://sites.google.com/view/MyExcelToolbox/Comment/

@J. Woolley,

I've been going thru the documentation file and already found a few gems that I might start using often!
THANK YOU once again for sharing this. :-)

Just wanted to ask whether there is any feature in the add-in which lists all the keyboard shortcuts assigned to various macros in my Personal.xlsb and other open files ?
That would be really, really useful to me, because I have run out of keyboard shortcuts to assign for any new macros that I might need to use frequently!

As of now, I have to assign such macros to a button on the QAT.

@J. Woolley... Many thanks for sharing your collection. Will surely go thru it over the next few days. :-)

The AboutColors macro in My Excel Toolbox creates a worksheet illustrating all colors defined by Excel: Current Palette, Default Palette, Theme Color, Standard Color, vbColor, vbSystemColor, and xlRgbColor. (see Figure 1 below)
The following Public Functions are included in My Excel Toolbox, where ColorRGB is equivalent to RGB Long:
    =ColorName(ColorRGB)
    =ColorIndex_Name(ColorIndex)
    =ColorAsRed(ColorRGB)
    =ColorAsGreen(ColorRGB)
    =ColorAsBlue(ColorRGB)
    =ColorAsHex(ColorRGB)
    =IsCurrentPalette(ColorRGB)
    =IsDefaultPalette(ColorRGB)
    =FillColor([Cell]) -- returns Cell's fill ColorRGB
    =FontColor([Cell]) -- returns Cell's font ColorRGB
    =SetFill([Color], [PatternStyle], [PatternColor], [Target])
    =SetFont([Name], [Size], [Style], [Color], [Underline], ..., [Target])
    =ChooseColor_Dialog(DefaultColor, CustomColors())
See https://sites.google.com/view/MyExcelToolbox/

Hi Barry, thanks for the code you shared.

I couldn't get it to work, but after posting my comment yesterday, I tried using Copilot to generate the code for me, and it came up with this UDF.
This gives the R, G, B values as comma separated values in a single cell. Hope you find it useful. :-)

Function GetRGB(rng As Range) As String
Dim R As Long, G As Long, B As Long
R = rng.Interior.Color Mod 256
G = (rng.Interior.Color \ 256) Mod 256
B = rng.Interior.Color \ 65536
GetRGB = R & ", " & G & ", " & B
End Function

Hi KV,
The following works but there may be a more robust way to do this!!!

Sub RGBColours() ''Return RGB values

Dim R As Long, G As Long, B As Long, FillColour As Long

FillColour = Cells(1, 3).Interior.Color
R = FillColour Mod 256
G = FillColour \ 256 Mod 256
B = FillColour \ 65536 Mod 256

Cells(1, 1) = "R " & R
Cells(2, 1) = "G " & G
Cells(3, 1) = "B " & B

End Sub

Very interesting macro Allen! Thanks for sharing it.

I have a follow-up question.

Given that cell C1 is shaded with a certain background, is it possible to populate A1, A2 and A3 with the respective RGB values of cell C1?


~KV

Hi, thanks for the code for the coloring of cells acording to rgb values. Is there also a way you can put that in a for loop to fill multiple rows at once. Counting the rows always +1 after each loop. Thank you in advance.