Alla tarkastelemme ohjelmaa Excel VBA että luo kuvion.
Tilanne:
Aseta komentopainike laskentataulukkoosi ja lisää seuraavat koodirivit:
1. Ilmoitamme ensin kaksi Integer -tyyppistä muuttujaa. Yksi nimeltä i ja toinen nimeltä j.
Dim i kokonaislukuna, j kokonaislukuna
2. Toiseksi lisäämme kaksi For Next -silmukkaa.
I = 1 - 5 Vaihe 2
J = 1 - 5 Vaihe 2
3. Seuraavaksi lisätään viiva, joka muuttaa solujen taustavärin vaalean harmaaksi.
Solut (i, j). Sisätilojen väriindeksi = 15
Huomautus: ColorIndex -numeron 15 (vaaleanharmaa) sijasta voit käyttää mitä tahansa ColorIndex -numeroa.
4. Sulje kaksi For Next -silmukkaa.
Seuraava j
Seuraavaksi minä
5. Testaa ohjelma.
Tulos tähän mennessä.
Esimerkiksi, jos i = 1 ja j = 1, Excel VBA -värisolut (1,1), i = 1 ja j = 3 (vaihe 2), Excel VBA -värisolut (1,3), i = 1 ja j = 5, Excel VBA -värisolut (1,5), i = 3 (vaihe 2) ja j = 1, Excel VBA -värisolut (3,1) jne.
6. Olemme melkein perillä. Ainoa asia, joka meidän on tehtävä, on värittää solut, jotka ovat 1 rivin alapuolella ja 1 sarake oikealla soluista oikealla. Lisää silmukkaan seuraava koodirivi.
Solut (i, j). Siirtymä (1, 1). Sisätiloissa.
7. Testaa ohjelma.
Tulos: