/ / Skapa ett mönster i Excel VBA

Skapa ett mönster i Excel VBA

Nedan ser vi på ett program i Excel VBA den där skapar ett mönster.

Situation:

Skapa ett mönster i Excel VBA

Placera en kommandoknapp på ditt arbetsblad och lägg till följande kodlinjer:

1. Först deklarerar vi två variabler av typen Integer. En som heter jag och en heter j.

Dim i As Integer, j As Integer

2. För det andra lägger vi till två för nästa loopar.

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

3. Sedan lägger vi till raden som ändrar cellens bakgrundsfärg till ljusgrå.

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

Obs! I stället för ColorIndex nummer 15 (ljusgrå) kan du använda något ColorIndex-nummer.

4. Stäng de två till nästa looparna.

    Next j
Next i

5. Testa programmet.

Resultat hittills.

Crate ett mönsterresultat hittills

Till exempel, för i = 1 och j = 1, Excel VBAFärger Celler (1,1), för i = 1 och j = 3 (Steg 2), Excel VBA färger Celler (1,3), för i = 1 och j = 5, Excel VBA färger Celler (1,5), för i = 3 (Steg 2) och j = 1, Excel VBA färger celler (3,1), etc.

6. Vi är nästan där. Det enda vi behöver göra är att färga cellerna som kompenseras av 1 rad under och 1 kolumn till höger om cellerna som redan är färgade. Lägg till följande kodlinje i slingan.

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

7. Testa programmet.

Resultat:

Skapa ett mönsterresultat

Läs också: