/ / Crear un patrón en Excel VBA

Crear un patrón en Excel VBA

A continuación veremos un programa en Excel VBA ese crea un patrón.

Situación:

Crear un patrón en Excel VBA

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos dos variables de tipo Integer. Uno llamado i y otro llamado j.

Dim i As Integer, j As Integer

2. Segundo, agregamos dos bucles For Next.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. A continuación, agregamos la línea que cambia el color de fondo de las celdas a gris claro.

Cells(i, j).Interior.ColorIndex = 15

Nota: en lugar del número 15 de ColorIndex (gris claro), puede usar cualquier número de ColorIndex.

4. Cierre los dos bucles For Next.

    Next j
Next i

5. Probar el programa.

Resultado hasta ahora.

Crear un resultado de patrón hasta ahora

Por ejemplo, para i = 1 y j = 1, Excel VBAceldas de colores (1,1), para i = 1 y j = 3 (Paso 2), celdas de colores Excel VBA (1,3), para i = 1 y j = 5, celdas de colores Excel VBA (1,5), para i = 3 (Paso 2) y j = 1, Celdas de colores VBA de Excel (3,1), etc.

6. Ya casi estamos allí. Lo único que tenemos que hacer es colorear las celdas que están desplazadas 1 fila abajo y 1 columna a la derecha de las celdas ya coloreadas. Agregue la siguiente línea de código al bucle.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. Probar el programa.

Resultado:

Crear un resultado de patrón

Lea también: