Saltar al contenido

COLOR EN COLUMNA

publicado

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

gracias

Featured Replies

publicado

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

 

publicado
  • Autor

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

publicado

Hola,

Asi obtienes los 56 principales 

 

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

 

publicado

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

 

publicado

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

 

publicado
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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.