Saltar al contenido

COLOR EN COLUMNA


Recommended Posts

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.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.