Maybe you don't need to have all the colors (16 million) on the sheet.
It may be sufficient to have the corresponding colors on the screen.
That is, every time you scroll through the sheet, and select a cell, a code will be activated and paint the cells you have on the screen.
Run the following macro only to put the RGB codes in the 16 million cells, from cell A1 to cell IV65536.
VBA Code:
Sub RGB_Colors()
Dim r As Long, g As Long, b As Long, i As Long, j As Long
i = 1
j = 1
For r = 0 To 255
For g = 0 To 255
For b = 0 To 255
Cells(i, j).Value = "RGB(" & r & "," & g & "," & b & ")"
i = i + 1
Next
Next
j = j + 1
i = 1
Next
End Sub
___________________________________________________________
Put the following code in the events on the sheet.
VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Left(Target.Value, 4) <> "RGB(" Then Exit Sub
Dim ri As Long, ci As Long, rn As Range, c As Range, cs, r, g, b
Application.ScreenUpdating = False
Cells.Interior.Color = xlNone
If Target.Row < 25 Then ri = 1 Else ri = Target.Row - 25
If Target.Column < 16 Then ci = 1 Else ci = Target.Column - 16
Set rn = Range(Cells(ri, ci), Cells(Target.Row + 25, Target.Column + 16))
For Each c In rn
If Left(c.Value, 4) = "RGB(" Then
cs = Split(Replace(Replace(c, ")", ""), "RGB(", ""), ",")
r = Val(cs(0))
g = Val(cs(1))
b = Val(cs(2))
c.Interior.Color = RGB(r, g, b)
End If
Next
End Sub
___________________________________________________
Each time you select a cell, the macro on sheet will paint the cells you see on the screen, the result will be something like this:
Book1 |
---|
|
---|
| A | B | C | D | E | F | G | H | I | J | K | L | M |
---|
1 | RGB(25,25,50) | RGB(25,50,50) | RGB(25,75,50) | RGB(25,100,50) | RGB(25,125,50) | RGB(25,150,50) | RGB(25,175,50) | RGB(25,200,50) | RGB(25,225,50) | RGB(25,250,50) | RGB(25,275,50) | RGB(25,300,50) | RGB(25,325,50) |
---|
2 | RGB(25,25,75) | RGB(25,50,75) | RGB(25,75,75) | RGB(25,100,75) | RGB(25,125,75) | RGB(25,150,75) | RGB(25,175,75) | RGB(25,200,75) | RGB(25,225,75) | RGB(25,250,75) | RGB(25,275,75) | RGB(25,300,75) | RGB(25,325,75) |
---|
3 | RGB(25,25,100) | RGB(25,50,100) | RGB(25,75,100) | RGB(25,100,100) | RGB(25,125,100) | RGB(25,150,100) | RGB(25,175,100) | RGB(25,200,100) | RGB(25,225,100) | RGB(25,250,100) | RGB(25,275,100) | RGB(25,300,100) | RGB(25,325,100) |
---|
4 | RGB(25,25,125) | RGB(25,50,125) | RGB(25,75,125) | RGB(25,100,125) | RGB(25,125,125) | RGB(25,150,125) | RGB(25,175,125) | RGB(25,200,125) | RGB(25,225,125) | RGB(25,250,125) | RGB(25,275,125) | RGB(25,300,125) | RGB(25,325,125) |
---|
5 | RGB(25,25,150) | RGB(25,50,150) | RGB(25,75,150) | RGB(25,100,150) | RGB(25,125,150) | RGB(25,150,150) | RGB(25,175,150) | RGB(25,200,150) | RGB(25,225,150) | RGB(25,250,150) | RGB(25,275,150) | RGB(25,300,150) | RGB(25,325,150) |
---|
6 | RGB(25,25,175) | RGB(25,50,175) | RGB(25,75,175) | RGB(25,100,175) | RGB(25,125,175) | RGB(25,150,175) | RGB(25,175,175) | RGB(25,200,175) | RGB(25,225,175) | RGB(25,250,175) | RGB(25,275,175) | RGB(25,300,175) | RGB(25,325,175) |
---|
7 | RGB(25,25,200) | RGB(25,50,200) | RGB(25,75,200) | RGB(25,100,200) | RGB(25,125,200) | RGB(25,150,200) | RGB(25,175,200) | RGB(25,200,200) | RGB(25,225,200) | RGB(25,250,200) | RGB(25,275,200) | RGB(25,300,200) | RGB(25,325,200) |
---|
8 | RGB(25,25,225) | RGB(25,50,225) | RGB(25,75,225) | RGB(25,100,225) | RGB(25,125,225) | RGB(25,150,225) | RGB(25,175,225) | RGB(25,200,225) | RGB(25,225,225) | RGB(25,250,225) | RGB(25,275,225) | RGB(25,300,225) | RGB(25,325,225) |
---|
9 | RGB(25,25,250) | RGB(25,50,250) | RGB(25,75,250) | RGB(25,100,250) | RGB(25,125,250) | RGB(25,150,250) | RGB(25,175,250) | RGB(25,200,250) | RGB(25,225,250) | RGB(25,250,250) | RGB(25,275,250) | RGB(25,300,250) | RGB(25,325,250) |
---|
10 | RGB(25,25,275) | RGB(25,50,275) | RGB(25,75,275) | RGB(25,100,275) | RGB(25,125,275) | RGB(25,150,275) | RGB(25,175,275) | RGB(25,200,275) | RGB(25,225,275) | RGB(25,250,275) | RGB(25,275,275) | RGB(25,300,275) | RGB(25,325,275) |
---|
11 | RGB(25,25,300) | RGB(25,50,300) | RGB(25,75,300) | RGB(25,100,300) | RGB(25,125,300) | RGB(25,150,300) | RGB(25,175,300) | RGB(25,200,300) | RGB(25,225,300) | RGB(25,250,300) | RGB(25,275,300) | RGB(25,300,300) | RGB(25,325,300) |
---|
12 | RGB(25,25,325) | RGB(25,50,325) | RGB(25,75,325) | RGB(25,100,325) | RGB(25,125,325) | RGB(25,150,325) | RGB(25,175,325) | RGB(25,200,325) | RGB(25,225,325) | RGB(25,250,325) | RGB(25,275,325) | RGB(25,300,325) | RGB(25,325,325) |
---|
13 | RGB(25,25,350) | RGB(25,50,350) | RGB(25,75,350) | RGB(25,100,350) | RGB(25,125,350) | RGB(25,150,350) | RGB(25,175,350) | RGB(25,200,350) | RGB(25,225,350) | RGB(25,250,350) | RGB(25,275,350) | RGB(25,300,350) | RGB(25,325,350) |
---|
14 | RGB(25,25,375) | RGB(25,50,375) | RGB(25,75,375) | RGB(25,100,375) | RGB(25,125,375) | RGB(25,150,375) | RGB(25,175,375) | RGB(25,200,375) | RGB(25,225,375) | RGB(25,250,375) | RGB(25,275,375) | RGB(25,300,375) | RGB(25,325,375) |
---|
15 | RGB(25,25,400) | RGB(25,50,400) | RGB(25,75,400) | RGB(25,100,400) | RGB(25,125,400) | RGB(25,150,400) | RGB(25,175,400) | RGB(25,200,400) | RGB(25,225,400) | RGB(25,250,400) | RGB(25,275,400) | RGB(25,300,400) | RGB(25,325,400) |
---|
16 | RGB(25,25,425) | RGB(25,50,425) | RGB(25,75,425) | RGB(25,100,425) | RGB(25,125,425) | RGB(25,150,425) | RGB(25,175,425) | RGB(25,200,425) | RGB(25,225,425) | RGB(25,250,425) | RGB(25,275,425) | RGB(25,300,425) | RGB(25,325,425) |
---|
17 | RGB(25,25,450) | RGB(25,50,450) | RGB(25,75,450) | RGB(25,100,450) | RGB(25,125,450) | RGB(25,150,450) | RGB(25,175,450) | RGB(25,200,450) | RGB(25,225,450) | RGB(25,250,450) | RGB(25,275,450) | RGB(25,300,450) | RGB(25,325,450) |
---|
18 | RGB(25,25,475) | RGB(25,50,475) | RGB(25,75,475) | RGB(25,100,475) | RGB(25,125,475) | RGB(25,150,475) | RGB(25,175,475) | RGB(25,200,475) | RGB(25,225,475) | RGB(25,250,475) | RGB(25,275,475) | RGB(25,300,475) | RGB(25,325,475) |
---|
19 | RGB(25,25,500) | RGB(25,50,500) | RGB(25,75,500) | RGB(25,100,500) | RGB(25,125,500) | RGB(25,150,500) | RGB(25,175,500) | RGB(25,200,500) | RGB(25,225,500) | RGB(25,250,500) | RGB(25,275,500) | RGB(25,300,500) | RGB(25,325,500) |
---|
20 | RGB(25,25,525) | RGB(25,50,525) | RGB(25,75,525) | RGB(25,100,525) | RGB(25,125,525) | RGB(25,150,525) | RGB(25,175,525) | RGB(25,200,525) | RGB(25,225,525) | RGB(25,250,525) | RGB(25,275,525) | RGB(25,300,525) | RGB(25,325,525) |
---|
21 | RGB(25,25,550) | RGB(25,50,550) | RGB(25,75,550) | RGB(25,100,550) | RGB(25,125,550) | RGB(25,150,550) | RGB(25,175,550) | RGB(25,200,550) | RGB(25,225,550) | RGB(25,250,550) | RGB(25,275,550) | RGB(25,300,550) | RGB(25,325,550) |
---|
22 | RGB(25,25,575) | RGB(25,50,575) | RGB(25,75,575) | RGB(25,100,575) | RGB(25,125,575) | RGB(25,150,575) | RGB(25,175,575) | RGB(25,200,575) | RGB(25,225,575) | RGB(25,250,575) | RGB(25,275,575) | RGB(25,300,575) | RGB(25,325,575) |
---|
23 | RGB(25,25,600) | RGB(25,50,600) | RGB(25,75,600) | RGB(25,100,600) | RGB(25,125,600) | RGB(25,150,600) | RGB(25,175,600) | RGB(25,200,600) | RGB(25,225,600) | RGB(25,250,600) | RGB(25,275,600) | RGB(25,300,600) | RGB(25,325,600) |
---|
24 | RGB(25,25,625) | RGB(25,50,625) | RGB(25,75,625) | RGB(25,100,625) | RGB(25,125,625) | RGB(25,150,625) | RGB(25,175,625) | RGB(25,200,625) | RGB(25,225,625) | RGB(25,250,625) | RGB(25,275,625) | RGB(25,300,625) | RGB(25,325,625) |
---|
|
---|