/ / Stvorite uzorak u programu Excel VBA

Izradite uzorak u programu Excel VBA

U nastavku ćemo pogledati program u Excel VBA da stvara obrazac.

Situacija:

Izradite uzorak u programu Excel VBA

Stavite gumb naredbe na radni list i dodajte sljedeće retke koda:

1. Prvo, izjavljujemo dvije varijable tipa Integer. Jedan imenovan i jedan zvan j.

Dim i As Integer, j As Integer

2. Drugo, dodamo dvije For Next petlje.

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

3. Zatim dodajemo liniju koja mijenja pozadinsku boju ćelija na svijetlo sive.

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

Napomena: umjesto ColorIndex broja 15 (svijetlo siva), možete koristiti bilo koji ColorIndex broj.

4. Zatvorite dvije For Next petlje.

    Next j
Next i

5. Ispitajte program.

Do sada.

Dovršite uzorak

Na primjer, za i = 1 i j = 1, Excel VBA(1), za i = 1 i j = 5, Excel VBA boje Stanice (1,5), za i = 1 i j = 3 (korak 2) za i = 3 (korak 2) i j = 1, Excel VBA boje stanica (3,1) itd.

6. Gotovo smo tamo. Jedina stvar koju trebamo učiniti jest da bjeline stanice koje su pomaknute za 1 red ispod i 1 stupac desno od već postojećih ćelija. Dodajte sljedeću liniju koda u petlju.

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

7. Ispitajte program.

Proizlaziti:

Izradite rezultat uzorka

Također pročitajte: