/ / Crea un pattern in VBA di Excel

Crea un pattern in VBA di Excel

Di seguito vedremo un programma in Excel VBA quello crea un modello.

Situazione:

Crea un pattern in VBA di Excel

Inserire un pulsante di comando nel foglio di lavoro e aggiungere le seguenti linee di codice:

1. In primo luogo, dichiariamo due variabili di tipo Integer. Uno di nome i e uno di nome j.

Dim i As Integer, j As Integer

2. In secondo luogo, aggiungiamo due cicli For Next.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. Successivamente, aggiungiamo la linea che cambia il colore di sfondo delle celle in grigio chiaro.

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

Nota: al posto di ColorIndex numero 15 (grigio chiaro), è possibile utilizzare qualsiasi numero di ColorIndex.

4. Chiudere i due cicli For Next.

    Next j
Next i

5. Testare il programma.

Risultato finora.

Crate a Pattern Risultato fino ad ora

Ad esempio, per i = 1 e j = 1, Excel VBAcolori Celle (1,1), per i = 1 e j = 3 (Passaggio 2), Colori VBA di Excel Celle (1,3), per i = 1 e j = 5, Colori VBA di Excel Celle (1,5), per i = 3 (passaggio 2) e j = 1, colori Excel VBA celle (3,1), ecc.

6. Siamo quasi arrivati. L'unica cosa che dobbiamo fare è colorare le celle che sono sfalsate di 1 riga sotto e 1 colonna a destra delle celle già colorate. Aggiungere la seguente riga di codice al ciclo.

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

7. Testare il programma.

Risultato:

Crea un risultato di modello

Leggi anche: