U nastavku ćemo pogledati program u Excel VBA da stvara uzorak.
Situacija:
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo deklariramo dvije varijable tipa Integer. Jedan po imenu i jedan po imenu j.
Dim i kao cijeli broj, j kao cijeli broj
2. Drugo, dodajemo dvije petlje For Next.
Za i = 1 do 5 Korak 2
Za j = 1 do 5 Korak 2
3. Zatim dodajemo liniju koja mijenja boju pozadine ćelija u svijetlosivu.
Stanice (i, j). Unutrašnjost.Indeks boje = 15
Napomena: umjesto ColorIndex broj 15 (svijetlo siva), možete koristiti bilo koji ColorIndex broj.
4. Zatvorite dvije petlje For Next.
Sljedeće j
Sljedeći i
5. Testirajte program.
Dosadašnji rezultat.
Na primjer, za i = 1 i j = 1, Excel VBA boje ćelije (1,1), za i = 1 i j = 3 (korak 2), Excel VBA boje ćelije (1,3), za i = 1 i j = 5, Excel VBA boje ćelije (1,5), za i = 3 (korak 2) i j = 1, Excel VBA boje ćelije (3,1) itd.
6. Skoro smo stigli. Jedino što moramo učiniti je obojiti ćelije koje su pomaknute za 1 redak ispod i 1 stupac desno od već obojenih ćelija. U petlju dodajte sljedeći kodni redak.
Ćelije (i, j) .Omjer (1, 1) .Interijer.Indeks boje = 15
7. Testirajte program.
Proizlaziti: