¿Cómo aplicar de forma aleatoria un fondo o color de relleno a celdas en Excel?

Mediante VBA (Visual Basic para Aplicaciones), puede asignar automáticamente un color de relleno aleatorio a cada celda de un rango seleccionado. Esta funcionalidad resulta especialmente útil cuando desea que cada celda tenga un color distinto y necesita aplicar esta acción de forma repetida en diferentes conjuntos de datos.

1. Pulse Alt+F11 para abrir el editor de Microsoft Visual Basic para Aplicaciones.

2. En el editor de VBA, haga clic en Insertar > Módulo para crear un nuevo módulo.

3.Copie y pegue el siguiente código VBA en la ventana del módulo (no edite el código):

VBA: Agregar fondo o Color de relleno a celdas con color aleatorio

Sub TrimExcessSpaces()
Dim rng As Range
Dim WorkRng As Range
Dim xRed As Byte
Dim xGreen As Byte
Dim xBule As Byte
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
xRed = Application.WorksheetFunction.RandBetween(0, 255)
xGreen = Application.WorksheetFunction.RandBetween(0, 255)
xBule = Application.WorksheetFunction.RandBetween(0, 255)
rng.Pattern = xlSolid
rng.PatternColorIndex = xlAutomatic
rng.Interior.Color = VBA.RGB(xRed, xGreen, xBule)
Next
End Sub

4. Pulse F5 o haga clic en el botón Ejecutar para ejecutar la macro.

5. Cuando se le solicite, seleccione el rango de celdas que desea rellenar con colores aleatorios y haga clic en Aceptar.

6. Las celdas seleccionadas se rellenarán con colores generados aleatoriamente. Para aplicarlo a otro rango, simplemente vuelve a ejecutar la macro y selecciona el nuevo rango.

En muchos escenarios prácticos, es posible que prefiera seleccionar aleatoriamente solo un subconjunto de celdas en lugar de todo el rango y, a continuación, aplicar el color de fondo que desee. Kutools para Excel ofrece una utilidad intuitiva llamada Reorganizar aleatoriamente que simplifica esta tarea sin necesidad de recurrir a VBA ni fórmulas. Esta función resulta especialmente útil para quienes quieren añadir un toque de color a un número determinado de celdas en una lista o conjunto de datos; por ejemplo, para resaltar ganadores seleccionados al azar, asignar grupos o extraer muestras para pruebas.

1. Seleccione todo el rango de celdas en el que desea rellenar aleatoriamente algunas con color de fondo. Para obtener mejores resultados, asegúrese de que sus datos no contengan celdas combinadas ni otros formatos que puedan afectar a la selección.

2. Vaya a la pestaña Kutools de la Cinta de opciones, elija Rango y, a continuación, haga clic en Reorganizar aleatoriamente.

3. En el cuadro de diálogo, vaya a la pestaña Seleccionar. Introduzca el número de celdas que desea seleccionar al azar en el cuadro Número de Celdas a Seleccionar y active la casilla Celda. Haga clic en Aceptar para confirmar.

4. Se resaltará (seleccionará) el número especificado de celdas. Para aplicar un color de relleno, vaya a la pestaña Inicio, haga clic en la flecha situada junto a Color de relleno y elija un color. ¡Las celdas seleccionadas se colorearán al instante!

Este método es ideal si desea controlar la cantidad de celdas coloreadas aleatoriamente y prefiere elegir su Color de relleno. El enfoque de Kutools evita la necesidad de escribir código o utilizar fórmulas, lo que hace que el proceso sea accesible incluso para usuarios menos familiarizados con las funciones avanzadas de Excel. La principal limitación es que solo asigna un color elegido cada vez; para un coloreado totalmente aleatorio de todas las celdas, el enfoque con VBA descrito anteriormente puede ser más adecuado. Si necesita volver a seleccionar o cambiar las celdas aleatorias, simplemente repita el proceso de selección mediante Reorganizar aleatoriamente y aplique un nuevo color según sea necesario.

Ordenar aleatoriamente celdas en una columna o rango

Seleccionar celdas aleatoriamente

Generar cadenas aleatorias