4096 Colors

[Zenwood]

Excel can display 16,777,216 colors. 4,096 squared. How would I go about writing a macro that would show every 4,096th color?

 

[shg]

One way:

Sub Z()
  Dim iRed          As Long
  Dim iGrn          As Long
  Dim iBlu          As Long
  Dim iRow          As Long
  Dim iCol          As Long

  iRow = 1

  For iRed = 0 To 255 Step 16
    For iGrn = 0 To 255 Step 16
      For iBlu = 0 To 255 Step 16
        iCol = iCol + 1
        If iCol > 64 Then
          iCol = 1
          iRow = iRow + 1
        End If
        Cells(iRow, iCol).Interior.Color = RGB(iRed, iGrn, iBlu)
      Next iBlu
    Next iGrn
  Next iRed
End Sub

 

[shg]

This is prettier ...

Sub Z()
  Dim i             As Long
  Dim j             As Long
  Dim iRed          As Long
  Dim iGrn          As Long
  Dim iBlu          As Long

  For i = 0 To 63
    For j = 0 To 63
      iRed = 16 * (i Mod 16) + 15
      iGrn = j \ 16 + 64 * (i \ 16) + 15
      iBlu = 16 * (j Mod 16) + 15
      Cells(i + 1, j + 1).Interior.Color = RGB(iRed, iGrn, iBlu)
    Next j
  Next i
End Sub

 

[shg]

Upper right of 16 16x16 squares:

[td="bgcolor:#0F120F"][/td][td="bgcolor:#0F121F"][/td][td="bgcolor:#0F122F"][/td][td="bgcolor:#0F123F"][/td][td="bgcolor:#0F124F"][/td][td="bgcolor:#0F125F"][/td][td="bgcolor:#0F126F"][/td][td="bgcolor:#0F127F"][/td][td="bgcolor:#0F128F"][/td][td="bgcolor:#0F129F"][/td][td="bgcolor:#0F12AF"][/td][td="bgcolor:#0F12BF"][/td][td="bgcolor:#0F12CF"][/td][td="bgcolor:#0F12DF"][/td][td="bgcolor:#0F12EF"][/td][td="bgcolor:#0F12FF"][/td] [td="bgcolor:#1F120F"][/td][td="bgcolor:#1F121F"][/td][td="bgcolor:#1F122F"][/td][td="bgcolor:#1F123F"][/td][td="bgcolor:#1F124F"][/td][td="bgcolor:#1F125F"][/td][td="bgcolor:#1F126F"][/td][td="bgcolor:#1F127F"][/td][td="bgcolor:#1F128F"][/td][td="bgcolor:#1F129F"][/td][td="bgcolor:#1F12AF"][/td][td="bgcolor:#1F12BF"][/td][td="bgcolor:#1F12CF"][/td][td="bgcolor:#1F12DF"][/td][td="bgcolor:#1F12EF"][/td][td="bgcolor:#1F12FF"][/td] [td="bgcolor:#2F120F"][/td][td="bgcolor:#2F121F"][/td][td="bgcolor:#2F122F"][/td][td="bgcolor:#2F123F"][/td][td="bgcolor:#2F124F"][/td][td="bgcolor:#2F125F"][/td][td="bgcolor:#2F126F"][/td][td="bgcolor:#2F127F"][/td][td="bgcolor:#2F128F"][/td][td="bgcolor:#2F129F"][/td][td="bgcolor:#2F12AF"][/td][td="bgcolor:#2F12BF"][/td][td="bgcolor:#2F12CF"][/td][td="bgcolor:#2F12DF"][/td][td="bgcolor:#2F12EF"][/td][td="bgcolor:#2F12FF"][/td] [td="bgcolor:#3F120F"][/td][td="bgcolor:#3F121F"][/td][td="bgcolor:#3F122F"][/td][td="bgcolor:#3F123F"][/td][td="bgcolor:#3F124F"][/td][td="bgcolor:#3F125F"][/td][td="bgcolor:#3F126F"][/td][td="bgcolor:#3F127F"][/td][td="bgcolor:#3F128F"][/td][td="bgcolor:#3F129F"][/td][td="bgcolor:#3F12AF"][/td][td="bgcolor:#3F12BF"][/td][td="bgcolor:#3F12CF"][/td][td="bgcolor:#3F12DF"][/td][td="bgcolor:#3F12EF"][/td][td="bgcolor:#3F12FF"][/td] [td="bgcolor:#4F120F"][/td][td="bgcolor:#4F121F"][/td][td="bgcolor:#4F122F"][/td][td="bgcolor:#4F123F"][/td][td="bgcolor:#4F124F"][/td][td="bgcolor:#4F125F"][/td][td="bgcolor:#4F126F"][/td][td="bgcolor:#4F127F"][/td][td="bgcolor:#4F128F"][/td][td="bgcolor:#4F129F"][/td][td="bgcolor:#4F12AF"][/td][td="bgcolor:#4F12BF"][/td][td="bgcolor:#4F12CF"][/td][td="bgcolor:#4F12DF"][/td][td="bgcolor:#4F12EF"][/td][td="bgcolor:#4F12FF"][/td] [td="bgcolor:#5F120F"][/td][td="bgcolor:#5F121F"][/td][td="bgcolor:#5F122F"][/td][td="bgcolor:#5F123F"][/td][td="bgcolor:#5F124F"][/td][td="bgcolor:#5F125F"][/td][td="bgcolor:#5F126F"][/td][td="bgcolor:#5F127F"][/td][td="bgcolor:#5F128F"][/td][td="bgcolor:#5F129F"][/td][td="bgcolor:#5F12AF"][/td][td="bgcolor:#5F12BF"][/td][td="bgcolor:#5F12CF"][/td][td="bgcolor:#5F12DF"][/td][td="bgcolor:#5F12EF"][/td][td="bgcolor:#5F12FF"][/td] [td="bgcolor:#6F120F"][/td][td="bgcolor:#6F121F"][/td][td="bgcolor:#6F122F"][/td][td="bgcolor:#6F123F"][/td][td="bgcolor:#6F124F"][/td][td="bgcolor:#6F125F"][/td][td="bgcolor:#6F126F"][/td][td="bgcolor:#6F127F"][/td][td="bgcolor:#6F128F"][/td][td="bgcolor:#6F129F"][/td][td="bgcolor:#6F12AF"][/td][td="bgcolor:#6F12BF"][/td][td="bgcolor:#6F12CF"][/td][td="bgcolor:#6F12DF"][/td][td="bgcolor:#6F12EF"][/td][td="bgcolor:#6F12FF"][/td] [td="bgcolor:#7F120F"][/td][td="bgcolor:#7F121F"][/td][td="bgcolor:#7F122F"][/td][td="bgcolor:#7F123F"][/td][td="bgcolor:#7F124F"][/td][td="bgcolor:#7F125F"][/td][td="bgcolor:#7F126F"][/td][td="bgcolor:#7F127F"][/td][td="bgcolor:#7F128F"][/td][td="bgcolor:#7F129F"][/td][td="bgcolor:#7F12AF"][/td][td="bgcolor:#7F12BF"][/td][td="bgcolor:#7F12CF"][/td][td="bgcolor:#7F12DF"][/td][td="bgcolor:#7F12EF"][/td][td="bgcolor:#7F12FF"][/td] [td="bgcolor:#8F120F"][/td][td="bgcolor:#8F121F"][/td][td="bgcolor:#8F122F"][/td][td="bgcolor:#8F123F"][/td][td="bgcolor:#8F124F"][/td][td="bgcolor:#8F125F"][/td][td="bgcolor:#8F126F"][/td][td="bgcolor:#8F127F"][/td][td="bgcolor:#8F128F"][/td][td="bgcolor:#8F129F"][/td][td="bgcolor:#8F12AF"][/td][td="bgcolor:#8F12BF"][/td][td="bgcolor:#8F12CF"][/td][td="bgcolor:#8F12DF"][/td][td="bgcolor:#8F12EF"][/td][td="bgcolor:#8F12FF"][/td] [td="bgcolor:#9F120F"][/td][td="bgcolor:#9F121F"][/td][td="bgcolor:#9F122F"][/td][td="bgcolor:#9F123F"][/td][td="bgcolor:#9F124F"][/td][td="bgcolor:#9F125F"][/td][td="bgcolor:#9F126F"][/td][td="bgcolor:#9F127F"][/td][td="bgcolor:#9F128F"][/td][td="bgcolor:#9F129F"][/td][td="bgcolor:#9F12AF"][/td][td="bgcolor:#9F12BF"][/td][td="bgcolor:#9F12CF"][/td][td="bgcolor:#9F12DF"][/td][td="bgcolor:#9F12EF"][/td][td="bgcolor:#9F12FF"][/td] [td="bgcolor:#AF120F"][/td][td="bgcolor:#AF121F"][/td][td="bgcolor:#AF122F"][/td][td="bgcolor:#AF123F"][/td][td="bgcolor:#AF124F"][/td][td="bgcolor:#AF125F"][/td][td="bgcolor:#AF126F"][/td][td="bgcolor:#AF127F"][/td][td="bgcolor:#AF128F"][/td][td="bgcolor:#AF129F"][/td][td="bgcolor:#AF12AF"][/td][td="bgcolor:#AF12BF"][/td][td="bgcolor:#AF12CF"][/td][td="bgcolor:#AF12DF"][/td][td="bgcolor:#AF12EF"][/td][td="bgcolor:#AF12FF"][/td] [td="bgcolor:#BF120F"][/td][td="bgcolor:#BF121F"][/td][td="bgcolor:#BF122F"][/td][td="bgcolor:#BF123F"][/td][td="bgcolor:#BF124F"][/td][td="bgcolor:#BF125F"][/td][td="bgcolor:#BF126F"][/td][td="bgcolor:#BF127F"][/td][td="bgcolor:#BF128F"][/td][td="bgcolor:#BF129F"][/td][td="bgcolor:#BF12AF"][/td][td="bgcolor:#BF12BF"][/td][td="bgcolor:#BF12CF"][/td][td="bgcolor:#BF12DF"][/td][td="bgcolor:#BF12EF"][/td][td="bgcolor:#BF12FF"][/td] [td="bgcolor:#CF120F"][/td][td="bgcolor:#CF121F"][/td][td="bgcolor:#CF122F"][/td][td="bgcolor:#CF123F"][/td][td="bgcolor:#CF124F"][/td][td="bgcolor:#CF125F"][/td][td="bgcolor:#CF126F"][/td][td="bgcolor:#CF127F"][/td][td="bgcolor:#CF128F"][/td][td="bgcolor:#CF129F"][/td][td="bgcolor:#CF12AF"][/td][td="bgcolor:#CF12BF"][/td][td="bgcolor:#CF12CF"][/td][td="bgcolor:#CF12DF"][/td][td="bgcolor:#CF12EF"][/td][td="bgcolor:#CF12FF"][/td] [td="bgcolor:#DF120F"][/td][td="bgcolor:#DF121F"][/td][td="bgcolor:#DF122F"][/td][td="bgcolor:#DF123F"][/td][td="bgcolor:#DF124F"][/td][td="bgcolor:#DF125F"][/td][td="bgcolor:#DF126F"][/td][td="bgcolor:#DF127F"][/td][td="bgcolor:#DF128F"][/td][td="bgcolor:#DF129F"][/td][td="bgcolor:#DF12AF"][/td][td="bgcolor:#DF12BF"][/td][td="bgcolor:#DF12CF"][/td][td="bgcolor:#DF12DF"][/td][td="bgcolor:#DF12EF"][/td][td="bgcolor:#DF12FF"][/td] [td="bgcolor:#EF120F"][/td][td="bgcolor:#EF121F"][/td][td="bgcolor:#EF122F"][/td][td="bgcolor:#EF123F"][/td][td="bgcolor:#EF124F"][/td][td="bgcolor:#EF125F"][/td][td="bgcolor:#EF126F"][/td][td="bgcolor:#EF127F"][/td][td="bgcolor:#EF128F"][/td][td="bgcolor:#EF129F"][/td][td="bgcolor:#EF12AF"][/td][td="bgcolor:#EF12BF"][/td][td="bgcolor:#EF12CF"][/td][td="bgcolor:#EF12DF"][/td][td="bgcolor:#EF12EF"][/td][td="bgcolor:#EF12FF"][/td] [td="bgcolor:#FF120F"][/td][td="bgcolor:#FF121F"][/td][td="bgcolor:#FF122F"][/td][td="bgcolor:#FF123F"][/td][td="bgcolor:#FF124F"][/td][td="bgcolor:#FF125F"][/td][td="bgcolor:#FF126F"][/td][td="bgcolor:#FF127F"][/td][td="bgcolor:#FF128F"][/td][td="bgcolor:#FF129F"][/td][td="bgcolor:#FF12AF"][/td][td="bgcolor:#FF12BF"][/td][td="bgcolor:#FF12CF"][/td][td="bgcolor:#FF12DF"][/td][td="bgcolor:#FF12EF"][/td][td="bgcolor:#FF12FF"][/td]

 

[Zenwood]

Thank You. This is exactally what I was looking for.

 

[shg]

You're welcome.