Spodaj si bomo ogledali program v Excel VBA to ustvari vzorec.
Situacija:
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasimo dve spremenljivki tipa Integer. Ena z imenom i in ena z imenom j.
Dim i kot celo število, j kot celo število
2. Drugič, dodamo dve zanki For Next.
Za i = 1 do 5 Korak 2
Za j = 1 do 5 2. korak
3. Nato dodamo vrstico, ki spremeni barvo ozadja celic v svetlo sivo.
Celice (i, j). Notranjost. Indeks barv = 15
Opomba: namesto številke ColorIndex 15 (svetlo siva) lahko uporabite katero koli številko ColorIndex.
4. Zaprite dve zanki For Next.
Naprej j
Naprej i
5. Preizkusite program.
Doslej rezultat.
Na primer, za i = 1 in j = 1, Excel VBA barve celice (1,1), za i = 1 in j = 3 (korak 2), Excel VBA barve celice (1,3), za i = 1 in j = 5, celice barv Excel VBA (1,5), za i = 3 (korak 2) in j = 1, celice barv Excel VBA celice (3,1) itd.
6. Skoraj smo že tam. Edino, kar moramo narediti, je obarvati celice, ki so zamaknjene za 1 vrstico spodaj in 1 stolpec desno od že obarvanih celic. V zanko dodajte naslednjo kodno vrstico.
Celice (i, j). Odmik (1, 1). Notranjost. Indeks barv = 15
7. Preizkusite program.
Rezultat: