A continuación veremos un programa en Excel VBA que crea un patrón .
Situación:
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos dos variables de tipo Entero. Una llamada i y otra llamada j.
Dim i As Integer, j As Integer
2. Segundo, añadimos dos para los siguientes bucles.
Para i = 1 a 5 Paso 2 Para j = 1 a 5 Paso 2
3. A continuación, añadimos la línea que cambia el color de fondo de las celdas a gris claro.
Células(i, j).Interior.ColorIndex = 15
Nota: en lugar del número 15 del ColorIndex (gris claro), puedes usar cualquier número del ColorIndex.
4. Cierra los dos bucles de For Next.
Siguiente j Siguiente…
5. Pruebe el programa.
Resultado 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, Excel VBA colorea las celdas(1,5), para i = 3 (Paso 2) y j = 1, Excel VBA colorea las celdas(3,1), etc.
6. Ya casi llegamos. Lo único que tenemos que hacer, es colorear las celdas que están compensadas por 1 fila abajo y 1 columna a la derecha de las celdas ya coloreadas. Añade la siguiente línea de código al bucle.
Celdas(i, j).Compensación(1, 1).Interior.Índice de color = 15
7. Pruebe el programa.
Resultado:
