A continuación, veremos un programa en Excel VBA ese crea un patrón.
Situación:
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 como entero, j como entero
2. En segundo lugar, agregamos dos bucles For Next.
Para i = 1 a 5 Paso 2
Para j = 1 a 5 Paso 2
3. A continuación, agregamos la línea que cambia el color de fondo de las celdas a gris claro.
Celdas (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.
Siguiente j
Siguiente yo
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, 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.
Celdas (i, j). Desplazamiento (1, 1) .Interior.ColorIndex = 15
7. Pruebe el programa.
Resultado: