Allpool vaatame programmi Exceli VBA seda loob mustri.
Olukord:
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
1. Esiteks deklareerime kaks Integer tüüpi muutujat. Üks nimega i ja teine nimega j.
Dim i täisarvuna, j täisarvuna
2. Teiseks lisame kaks For Next silmust.
I = 1 kuni 5 2. samm
J = 1 kuni 5 2. samm
3. Järgmisena lisame rea, mis muudab lahtrite taustavärvi helehalliks.
Lahtrid (i, j). Sisemine. Värviindeks = 15
Märkus: ColorIndexi numbri 15 (helehall) asemel võite kasutada mis tahes ColorIndexi numbrit.
4. Sulgege kaks silmust järgmise jaoks.
Järgmine j
Edasi i
5. Testige programmi.
Tulemus siiani.
Näiteks i = 1 ja j = 1 puhul Exceli VBA värvid Lahtrid (1,1), i = 1 ja j = 3 (2. etapp), Exceli VBA värvid Lahtrid (1,3), i = 1 ja j = 5, Exceli VBA värvid Lahtrid (1,5), i = 3 (2. etapp) ja j = 1, Exceli VBA värvid Lahtrid (3,1) jne.
6. Oleme peaaegu kohal. Ainuke asi, mida peame tegema, on värvida lahtrid, mis on nihutatud 1 rida allpool ja 1 veerg paremal juba värvitud lahtritest. Lisage silmusesse järgmine koodirida.
Lahtrid (i, j). Nihe (1, 1). Interjöör. Värviindeks = 15
7. Testige programmi.
Tulemus: