/ / Maak een patroon in Excel VBA

Maak een patroon in Excel VBA

Hieronder zullen we een programma bekijken in Excel VBA dat maakt een patroon.

Situatie:

Maak een patroon in Excel VBA

Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:

1. Eerst verklaren we twee variabelen van het type Integer. Een met de naam i en een met de naam j.

Dim i As Integer, j As Integer

2. Ten tweede voegen we twee For Next-loops toe.

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

3. Vervolgens voegen we de regel toe die de achtergrondkleur van de cellen verandert in lichtgrijs.

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

Opmerking: in plaats van ColorIndex nummer 15 (lichtgrijs), kunt u elk ColorIndex-nummer gebruiken.

4. Sluit de twee Volgende lussen.

    Next j
Next i

5. Test het programma.

Resultaat tot nu toe.

Maak tot nu toe een patroonresultaat

Bijvoorbeeld voor i = 1 en j = 1, Excel VBAkleuren Cellen (1,1), voor i = 1 en j = 3 (Stap 2), Excel VBA-kleuren Cellen (1,3), voor i = 1 en j = 5, Excel VBA-kleuren Cellen (1,5), voor i = 3 (stap 2) en j = 1, Excel VBA-kleuren cellen (3,1), enz.

6. We zijn er bijna. Het enige dat we moeten doen, is de cellen kleuren die zijn verschoven door 1 rij lager en 1 kolom rechts van de cellen die al gekleurd zijn. Voeg de volgende coderegel toe aan de lus.

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

7. Test het programma.

Resultaat:

Creëer een patroonresultaat

Lees ook: