Di seguito vedremo un programma in Excel VBA Quello crea uno schema.
Situazione:
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, 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.
Per i = da 1 a 5 Passaggio 2
Per j = da 1 a 5 Passaggio 2
3. Successivamente, aggiungiamo la linea che cambia il colore di sfondo delle celle in grigio chiaro.
Cells(i, j).Interior.ColorIndex = 15
Nota: invece del numero ColorIndex 15 (grigio chiaro), puoi utilizzare qualsiasi numero ColorIndex.
4. Chiudere i due cicli For Next.
Avanti j
Avanti io
5. Testare il programma.
Risultato finora.
Ad esempio, per i = 1 e j = 1, Excel VBA colora le celle (1,1), per i = 1 e j = 3 (passaggio 2), Excel colora le celle (1,3), per i = 1 e j = 5, Excel VBA colora Celle(1,5), per i = 3 (Passaggio 2) e j = 1, Excel VBA colora Celle(3,1), ecc.
6. Ci siamo quasi. 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. Aggiungi la seguente riga di codice al ciclo.
Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15
7. Testare il programma.
Risultato: