Spodaj si bomo ogledali program v Excel VBA to ustvari vzorec .
Situacija:
Postavite a ukazni gumb na delovnem listu in dodajte naslednje kodne vrstice:
1. Najprej razglasimo dve spremenljivki tipa Integer. Ena z imenom i in ena z imenom j.
NobenajazAs Celo število, jAs Celo število
2. Drugič, dodamo dve zanki For Next.
Zai = 1Za5Korak2Zaj = 1Za5Korak2
3. Nato dodamo vrstico, ki spremeni barvo ozadja celic v svetlo sivo.
kako šteti pojavitve vCelice (i, j). Notranjost. Indeks barv = 15
Opomba: namesto ColorIndex številka 15 (svetlo siva) lahko uporabite katero koli številko ColorIndex.
4. Zaprite dve zanki For Next.
NaslednjijNaslednjijaz
5. Preizkusite program.
Doslej rezultat.
Na primer, za i = 1 in j = 1, Excel VBA obarva celice (1,1), za i = 1 in j = 3 ( Korak 2), celice barv Excel VBA (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 ( 3,1) itd.
6. Skoraj smo že tam. Edino, kar moramo narediti, je obarvati celice, ki so odmik 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 = 157. Preizkusite program.
Rezultat:
Pojdi na naslednje poglavje: Napake makra