Crear un patrón

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:

Deja un comentario