【マクロ】RGB色見本を作成するマクロ

Sub RGB値色見本作成()
  Dim rr As Long, gg As Long, bb As Long
  Dim r As Long: r = 1  ' 行番号
  Dim c As Long: c = 1  ' 列番号
  For rr = 0 To 255 Step 51
    For gg = 0 To 255 Step 51
      For bb = 0 To 255 Step 51
        With Cells(r, c)
          .Interior.Color = RGB(rr, gg, bb)
          .Value = "#" & _
            Format(Hex(rr), "00") & _
            Format(Hex(gg), "00") & _
            Format(Hex(bb), "00")
        End With
        r = r + 1
      Next bb
      r = r - 6
      c = c + 1
    Next gg
    r = r + 6
    c = c - 6
  Next rr
  Columns("A:F").AutoFit
End Sub