/ / Creați un model în Excel VBA

Creați un model în Excel VBA

Mai jos ne vom uita la un program în Excel VBA acea creează un model.

Situatie:

Creați un model în Excel VBA

Plasați un buton de comandă pe foaia dvs. de lucru și adăugați următoarele linii de cod:

1. În primul rând, declarăm două variabile de tip Integer. Un numit i și unul numit j.

Dim i As Integer, j As Integer

2. În al doilea rând, adăugăm două bucle For Next.

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

3. Apoi adăugăm linia care schimbă culoarea de fundal a celulelor în gri deschis.

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

Notă: în locul numărului ColorIndex 15 (gri deschis), puteți utiliza orice număr ColorIndex.

4. Închideți cele două bucle For Next.

    Next j
Next i

5. Testați programul.

Rezultatul până acum.

Crate un model rezultă atât de departe

De exemplu, pentru i = 1 și j = 1, Excel VBAculorile Celule (1, 1), pentru i = 1 și j = 3 (Etapa 2), culori Excel VBA Celule (1,3), pentru i = 1 și j = pentru i = 3 (Etapa 2) și j = 1, culorile VBA Excel Excel (3,1), etc.

6. Suntem aproape acolo. Singurul lucru pe care trebuie să-l facem este colorarea celulelor care sunt compensate cu un rând de mai jos și o coloană din dreapta celulelor deja colorate. Adăugați următoarea linie de cod în buclă.

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

7. Testați programul.

Rezultat:

Creați un rezultat al modelului

De asemenea, citiți: