A continuación, veremos un programa en Excel VBA que 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. En segundo lugar, 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 utilizar cualquier número de ColorIndex.

4. Cierre los dos bucles For Next. 

    Next j
Next i

5. Pruebe el programa.

Resultado hasta ahora.

Crear un resultado de patrón hasta ahora

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

6. Ya casi llegamos. Lo único que tenemos que hacer es colorear las celdas que están desplazadas 1 fila debajo 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. Pruebe el programa.

Resultado:

Crear un resultado de patrón

6/11 Completado! Obtenga más información sobre los bucles>
Capítulo siguiente: Errores de macro