Nedenfor ser vi på et program i Excel VBA at lager et mønster.
Situasjon:
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. Først deklarerer vi to variabler av typen Heltall. En som heter i og en som heter j.
Dim i As Integer, j As Integer
2. For det andre legger vi til to For Next -løkker.
For i = 1 til 5 Trinn 2
For j = 1 til 5 Trinn 2
3. Deretter legger vi til linjen som endrer bakgrunnsfargen til cellene til lys grå.
Celler (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 Next -løkkene.
Neste j
Neste jeg
5. Test programmet.
Resultat så langt.
For eksempel, for i = 1 og j = 1, Excel VBA -farger 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 forskjøvet med 1 rad nedenfor og 1 kolonne til høyre for cellene som allerede er farget. Legg til følgende kodelinje i løkken.
Celler (i, j) .Offset (1, 1) .Interior.ColorIndex = 15
7. Test programmet.
Resultat: