/ / Opret et mønster i Excel VBA

Opret et mønster i Excel VBA

Nedenfor vil vi se på et program i Excel VBA at skaber et mønster.

Situation:

Opret et mønster i Excel VBA

Placer en kommandoknap på dit regneark og tilføj følgende kodelinjer:

1. Først erklærer vi to variabler af typen Integer. En hedder jeg og en hedder j.

Dim i As Integer, j As Integer

2. For det andet tilføjer vi to til næste sløjfer.

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

3. Næste tilføjer vi linjen, som ændrer cellens baggrundsfarve til lysegrå.

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

Bemærk: I stedet for ColorIndex nummer 15 (lysegrå) kan du bruge et hvilket som helst ColorIndex-nummer.

4. Luk de to forfølgende sløjfer.

    Next j
Next i

5. Test programmet.

Resultat hidtil.

Crate et mønster resultat så langt

For eksempel, for i = 1 og j = 1, Excel VBAfarver Celler (1,1), for i = 1 og j = 3 (Trin 2), Excel VBA farver Celler (1,3), for i = 1 og j = 5, Excel VBA farver Celler (1,5) for i = 3 (Trin 2) og j = 1, Excel VBA farver celler (3,1) osv.

6. Vi er næsten der. Det eneste, vi skal gøre, er at farve cellerne, som kompenseres af 1 række under og 1 kolonne til højre for cellerne, der allerede er farvet. Tilføj følgende kode linje til sløjfen.

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

7. Test programmet.

Resultat:

Opret et mønsterresultat

Læs også: