algun codigo que arroje todos los colores de excel en una sola columna

gracias

¿A que colores te refieres?, hay mas de un millón de colores.

 

hola maestro pueden ser los mas comunes para darle color a 730 celdas 

Hola,

Asi obtienes los 56 principales 

 

For i = 1 To 56
    Cells(i + 1, 1).Interior.ColorIndex = i
Next i

 

Esta macro genera 730 colores al azar en la columna A:

Sub Colores730()
Randomize
For x = 1 To 730
   k = Int(256 ^ 3 * Rnd)
   Cells(x, "A") = k
   Cells(x, "A").Interior.Color = k
Next
End Sub

 

Editado el el 17 de agosto4 años por Antoni

Hola @jhon fredy

Parecido, pero no igual. Te dejo mi aporte.

Maestro @Antoni, me copio vuestro código para mi biblioteca personal....(creí que terminaban con 56)

Qué tengas un buen día! Suerte!

Sub prueba_colores()
Cells.Delete
i = 6: j = 1
Cells(i, 1).Select
For i = 6 To 61
    Cells(i, 1).Value = j
    color = Int(j): Cells(i, 2).Interior.ColorIndex = color
    j = j + 1
Next i
End Sub

 

Hace 13 minutos , tierra_pampa dijo:

Hola @jhon fredy

Parecido, pero no igual. Te dejo mi aporte.

Maestro @Antoni, me copio vuestro código para mi biblioteca personal....(creí que terminaban con 56)

Qué tengas un buen día! Suerte!

Sub prueba_colores()
Cells.Delete
i = 6: j = 1
Cells(i, 1).Select
For i = 6 To 61
    Cells(i, 1).Value = j
    color = Int(j): Cells(i, 2).Interior.ColorIndex = color
    j = j + 1
Next i
End Sub

 

El número total de colores viene de la combinación de 256(Rojo) * 256(Verde) * 256(Azul)=16777216