Žemiau apžvelgsime programą Excel VBA kad sukuria modelį.
Situacija:
Įdėkite komandų mygtuką į savo darbalapį ir pridėkite šias kodo eilutes:
1. Pirmiausia deklaruojame du kintamuosius, kurių tipas yra Integer. Vienas pavadintas i ir vienas vardu j.
Dim i kaip sveikasis skaičius, j kaip sveikasis skaičius
2. Antra, pridedame dvi „For Next“ kilpas.
Jei i = 1 iki 5 2 žingsnis
J = 1–5 2 veiksmas
3. Toliau pridedame eilutę, kuri pakeičia langelių fono spalvą į šviesiai pilką.
Ląstelės (i, j). Interjeras.ColorIndex = 15
Pastaba: vietoj „ColorIndex“ numerio 15 (šviesiai pilka) galite naudoti bet kurį „ColorIndex“ numerį.
4. Uždarykite dvi „For Next“ kilpas.
Kitas j
Kitas I.
5. Išbandykite programą.
Rezultatas iki šiol.
Pavyzdžiui, jei i = 1 ir j = 1, „Excel“ VBA spalvų langeliai (1,1), i = 1 ir j = 3 (2 veiksmas), „Excel VBA“ spalvos langeliai (1,3), jei i = 1 ir j = 5, „Excel“ VBA spalvų langeliai (1,5), jei i = 3 (2 veiksmas) ir j = 1, „Excel“ VBA spalvų langeliai (3,1) ir kt.
6. Mes beveik ten. Vienintelis dalykas, kurį turime padaryti, yra nuspalvinti ląsteles, kurios yra atskirtos 1 eilute žemiau ir 1 stulpeliu dešinėje nuo jau nuspalvintų langelių. Pridėkite šią kodo eilutę prie kilpos.
Ląstelės (i, j). Poslinkis (1, 1). Interjeras.ColorIndex = 15
7. Išbandykite programą.
Rezultatas: