Nedenfor ser vi på et program i Excel VBA at skaber et mønster.
Situation:
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi to variabler af typen Integer. En ved navn i og en ved navn j.
Dim i As Integer, j As Integer
2. For det andet tilføjer vi to For Next -sløjfer.
For i = 1 til 5 Trin 2
For j = 1 til 5 Trin 2
3. Dernæst tilføjer vi den linje, der ændrer cellernes baggrundsfarve til lysegrå.
Celler (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 For Next -sløjfer.
Næste j
Næste i
5. Test programmet.
Resultat indtil videre.
For eksempel for i = 1 og j = 1, Excel VBA -farver 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, der er forskudt med 1 række nedenfor og 1 kolonne til højre for de celler, der allerede er farvet. Tilføj følgende kodelinje til sløjfen.
Celler (i, j). Forskydning (1, 1). Interiør.ColorIndex = 15
7. Test programmet.
Resultat: