Di seguito vedremo un programma in Excel VBA che crea un pattern.

Situazione:

Create a Pattern in Excel VBA

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

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

Dim i As Integer, j As Integer

  1. In secondo luogo, si aggiungono due cicli For Avanti.

For i = 1 To 5 Step 2

For j = 1 To 5 Step 2

  1. Successivamente, aggiungere la riga che cambia il colore di sfondo delle celle al grigio chiaro.

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

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

  1. Chiudere i due per Avanti loop.

Next j

Next i

  1. Verificare il programma.

Risultato finora.

Crate a Pattern Result so Far

Ad esempio, per i = 1 e J = 1, Excel VBA colori Cells (1,1), per i = 1 e j = 3 (link : / VBA esempi passo-parola chiave [Step] 2), Excel VBA colori Cells (1,3), per i = 1 e J = 5, Excel VBA colori Cells (1,5), per i = 3 (fase 2) e J = 1, Excel VBA colori Cells (3,1) , ecc

  1. Siamo quasi arrivati. L’unica cosa che dobbiamo fare, è il colore delle cellule che sono di collegamento: / VBA-esempi-offset [compensati] da 1 fila qui sotto e 1 colonna a destra delle celle già colorati. Aggiungere la seguente riga di codice al ciclo.

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

  1. Verificare il programma.

Risultato:

Create a Pattern Result