Dim colh As String
Dim colhd As String
Dim col10 As String
Sub カラー1()
Dim mydat() As Variant
Dim i As Integer, r As Integer, c As Integer, ra As Integer, kk As String
 
mydat = Array(Array(1, 53, 52, 51, 49, 11, 55, 56), _
 Array(9, 46, 12, 10, 14, 5, 47, 16), Array(3, 45, 43, 50, 42, 41, 13, 48), _
 Array(7, 44, 6, 4, 8, 33, 54, 15), Array(38, 40, 36, 35, 34, 37, 39, 2))
 
ra = 2
For i = 1 To 2
For r = 0 To 4
    For c = 0 To 7
        If i = 1 And c = 0 Then
            Cells(ra, 2).Value = ""
            Cells(ra + 1, 2).Value = "ColorIndex"
            Cells(ra + 2, 2).Value = "RGB"
            Cells(ra + 3, 2).Value = "RGB（10進）"
            Cells(ra + 4, 2).Value = "UserForm色"
        End If
 
        If i = 1 Then
            Cells(ra, c + 3).Interior.ColorIndex = mydat(r)(c)
                Cells(ra + 1, c + 3) = mydat(r)(c)
        Else
            kk = Cells(r * 5 + 2, c + 3).Interior.Color
                Call 色RGB(kk)
                Cells(ra, c + 3) = colh
                Cells(ra + 1, c + 3) = col10
                Cells(ra + 2, c + 3) = colhd
        End If
    Next c
    ra = ra + 5
Next r
    Set myrang = Range(Cells(2, 2), Cells(ra - 3, c + 2))
    With myrang
        .NumberFormat = "@"
        .Font.Size = 10
        .Borders.LineStyle = xlContinuous
    End With
    ra = 4
Next i
End Sub
------------------------------------------------------------
Sub 色RGB(col)
Dim col1  As String
Dim col1a As String, col2a As String, col3a As String
 
    col1 = "00000" & Hex(col)
    col1a = Mid(Right(col1, 6), 1, 2)
    col2a = Mid(Right(col1, 6), 3, 2)
    col3a = Mid(Right(col1, 6), 5, 2)
colh = col3a & col2a & col1a
colhd = "&h" & col1a & col2a & col3a
 
色十進数
col10 = CDec("&h" & col3a) & "," & CDec("&h" & col2a) & _
        "," & CDec("&h" & col1a)
 
End Sub

Sub カラー2()
    Cells(2, 2).Interior.ColorIndex = 39
 
    Cells(3, 2).Interior.Color = RGB(&HCC, &H99, &HFF)
 
    Cells(4, 2).Interior.Color = RGB(204, 153, 255)
End Sub
-----------------------------------------------------------
Sub カラー2a()
   Range("B2:B4").Interior.ColorIndex = xlNone
    Range("B1").Select
End Sub

Sub カラー3()
With UserForm1
    .txt1.BackColor = "&H42049c": .txt6.BackColor = "&H521c00"
    .txt2.BackColor = "&H6304e7": .txt7.BackColor = "&H732400"
    .txt3.BackColor = "&Hb586ff": .txt8.BackColor = "&Hff751d"
    .txt4.BackColor = "&Hceaeff": .txt9.BackColor = "&Hff9e1f"
    .txt5.BackColor = "&He7d7ff": .txt10.BackColor = "&Hffcfb5"
End With
    Cells(1, 1).Interior.Color = RGB(&H9C, &H4, &H42)
    Cells(1, 2).Interior.Color = RGB(&HE7, &H4, &H63)
    Cells(1, 3).Interior.Color = RGB(&HFF, &H86, &HB5)
    Cells(1, 4).Interior.Color = RGB(&HFF, &HAE, &HCE)
    Cells(1, 5).Interior.Color = RGB(&HFF, &HD7, &HE7)
 
    Cells(2, 1).Interior.Color = RGB(&H0, &H1C, &H52)
    Cells(2, 2).Interior.Color = RGB(&H0, &H24, &H73)
    Cells(2, 3).Interior.Color = RGB(&H1D, &H75, &HFF)
    Cells(2, 4).Interior.Color = RGB(&H1F, &H9E, &HFF)
    Cells(2, 5).Interior.Color = RGB(&HB5, &HCF, &HFF)
        UserForm1.Show
End Sub