Nedan kommer vi att titta på ett program i Excel VBA det där skapar ett mönster.
Situation:
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Först deklarerar vi två variabler av typen Heltal. En som heter i och en som heter j.
Dim i As Integer, j As Integer
2. För det andra lägger vi till två för nästa slingor.
För i = 1 till 5 Steg 2
För j = 1 till 5 Steg 2
3. Därefter lägger vi till raden som ändrar bakgrundsfärgen på cellerna till ljusgrå.
Celler (i, j) .Interior.ColorIndex = 15
Obs! I stället för ColorIndex nummer 15 (ljusgrått) kan du använda valfritt ColorIndex -nummer.
4. Stäng de två For Next -slingorna.
Nästa j
Nästa i
5. Testa programmet.
Resultat hittills.
Till exempel, för i = 1 och j = 1, Excel VBA -fä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 förskjuts av 1 rad nedan och 1 kolumn till höger om de celler som redan är färgade. Lägg till följande kodrad i slingan.
Celler (i, j) .Offset (1, 1) .Interior.ColorIndex = 15
7. Testa programmet.
Resultat: