A continuación vamos a ver un programa en Excel VBA que crea un patrón.

Situación:

Create a Pattern in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declaramos dos variables de tipo entero. Una llamada i y j una llamada.

Dim i As Integer, j As Integer

  1. En segundo lugar, añadir dos bucles for Next.

For i = 1 To 5 Step 2

For j = 1 To 5 Step 2

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

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

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

  1. Cierre los dos bucles para el próximo.

Next j

Next i

Prueba 5. el programa.

Como resultado hasta el momento.

Crate a Pattern Result so Far

Por ejemplo, para i = 1 y j = 1, Excel VBA colores Las células (1,1), para i = 1 y j = 3 (enlace : / VBA-ejemplos-paso-palabra clave [Paso] 2), Excel VBA colores Las células (1,3), para i = 1 y j = 5, Excel VBA colores Las células (1,5), para i = 3 (paso 2) y j = 1, Excel VBA colores Las células (3,1) , etc.

  1. Estamos casi allí. Lo único que tenemos que hacer, es el color de las células que son enlace: / VBA-ejemplos-offset [desplazamiento] por 1 fila de abajo y 1 columna a la derecha de las celdas ya color. Agregue la siguiente línea de código para el bucle.

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

  1. El programa de prueba.

Resultado:

Create a Pattern Result