Az alábbiakban megnézzük a programot Excel VBA hogy mintát hoz létre.
Helyzet:
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először két Integer típusú változót deklarálunk. Egy i nevű és egy j nevű.
Dim i Mint egész, j Mint egész
2. Másodszor két For Next hurkot adunk hozzá.
I = 1 -től 5 -ig 2. lépés
J = 1 -től 5 -ig 2. lépés
3. Ezután hozzáadjuk azt a sort, amely a cellák háttérszínét világosszürkévé változtatja.
Sejtek (i, j). Belső. Színindex = 15
Megjegyzés: a ColorIndex 15 -ös szám (világosszürke) helyett bármilyen ColorIndex -számot használhat.
4. Zárja be a két For Next hurkot.
Következő j
Következő i
5. Tesztelje a programot.
Eddigi eredmény.
Például i = 1 és j = 1 esetén az Excel VBA színek cellái (1,1), i = 1 és j = 3 (2. lépés), Excel VBA színek cellák (1,3), i = 1 és j = 5, Excel VBA színek cellák (1,5), i = 3 esetén (2. lépés) és j = 1, Excel VBA színek cellák (3,1) stb.
6. Már majdnem ott vagyunk. Az egyetlen dolog, amit tennünk kell, az, hogy kiszínezzük azokat a cellákat, amelyeket 1 sorral lejjebb és 1 oszloppal eltolunk a már színes celláktól. Adja hozzá a következő kód sort a hurokhoz.
Sejtek (i, j). Eltolás (1, 1). Belső.ColorIndex = 15
7. Tesztelje a programot.
Eredmény: