/ / Képminta létrehozása Excel VBA-ban

Hozzon létre egy mintát az Excel VBA-ban

Az alábbiakban egy programot nézünk be Excel VBA hogy létrehoz egy mintát.

Helyzet:

Hozzon létre egy mintát az Excel VBA-ban

Helyezzen egy parancsgombot a munkalapra, és adja hozzá a következő kódsorokat:

1. Először kétféle változót deklarálunk az Integer. Az egyik i nevű és az egyik nevű j.

Dim i As Integer, j As Integer

2. Másodszor, hozzáadunk két For Next hurkot.

For i = 1 To 5 Step 2
    For j = 1 To 5 Step 2

3. Ezután hozzáadjuk a vonalat, amely a cellák háttérszínét világosszürkevé változtatja.

Cells(i, j).Interior.ColorIndex = 15

Megjegyzés: a ColorIndex 15 helyett (világosszürke) használhat bármely ColorIndex számot.

4. Zárja be a Two For Next hurkot.

    Next j
Next i

5. Vizsgálja meg a programot.

Eddig eddig.

Rendezze a minta eredményét eddig

Például i = 1 és j = 1, Excel VBA(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 (2. lépés) és j = 1, Excel VBA színek (3,1), stb.

6. Már majdnem ott vagyunk. Az egyetlen dolog, amit meg kell tennünk, színes a sejtek, amelyek ellensúlyozzák 1 sor alul és 1 oszlop jobb oldalán a sejtek már színezett. Adja hozzá a következő kódot a hurokhoz.

Cells(i, j).Offset(1, 1).Interior.ColorIndex = 15

7. Vizsgálja meg a programot.

Eredmény:

Minta eredmény létrehozása

Szintén olvasható: