300 Primerov

Ustvarite vzorec

Create Pattern

Spodaj si bomo ogledali program v Excel VBA to ustvari vzorec .





Situacija:

Ustvarite vzorec v Excelu VBA





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 = 1Za5Korak2
Zaj = 1Za5Korak2

3. Nato dodamo vrstico, ki spremeni barvo ozadja celic v svetlo sivo.

kako šteti pojavitve v
Celice (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.

Naslednjij
Naslednjijaz

5. Preizkusite program.

Doslej rezultat.

Doslej zapišite vzorec

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 = 15

7. Preizkusite program.

Rezultat:

Ustvarite rezultat vzorca

6/11 Dokončano! Preberite več o zankah>
Pojdi na naslednje poglavje: Napake makra



^