/ / Opprett et mønster i Excel VBA

Opprett et mønster i Excel VBA

Nedenfor ser vi på et program i Excel VBA at skaper et mønster.

Situasjon:

Opprett et mønster i Excel VBA

Legg en kommandoknapp på regnearket og legg til følgende kodelinjer:

1. Først erklærer vi to variabler av typen Integer. En som heter jeg og en heter j.

Dim i As Integer, j As Integer

2. For det andre legger vi til to for neste løkker.

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

3. Deretter legger vi til linjen som endrer bakgrunnsfargen til cellene til lysegrå.

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

Merk: i stedet for ColorIndex nummer 15 (lysegrå), kan du bruke et hvilket som helst ColorIndex-nummer.

4. Lukk de to for neste løkkene.

    Next j
Next i

5. Test programmet.

Resultat hittil.

Krat et mønsterresultat så langt

For eksempel, for i = 1 og j = 1, Excel VBAfarger Celler (1,1), for i = 1 og j = 3 (trinn 2), Excel VBA farger Celler (1,3), for i = 1 og j = 5, Excel VBA farger Celler (1,5), for i = 3 (trinn 2) og j = 1, Excel VBA farger celler (3,1), etc.

6. Vi er nesten der. Det eneste vi trenger å gjøre er å farge cellene som er motvirket av 1 rad under og 1 kolonne til høyre for cellene som allerede er farget. Legg til følgende kode linje i sløyfen.

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

7. Test programmet.

Resultat:

Lag et mønsterresultat

Les også: