Mai jos vom analiza un program în Excel VBA acea creează un model.
Situatie:
Plasați un buton de comandă pe foaia de lucru și adăugați următoarele linii de cod:
1. În primul rând, declarăm două variabile de tip Întreg. Unul numit i și unul numit j.
Dim i Integer, j As Integer
2. În al doilea rând, adăugăm două bucle For Next.
Pentru i = 1 - 5 Pasul 2
Pentru j = 1 - 5 Pasul 2
3. Apoi, adăugăm linia care schimbă culoarea de fundal a celulelor în gri deschis.
Celule (i, j) .Interior.ColorIndex = 15
Notă: în loc de ColorIndex numărul 15 (gri deschis), puteți utiliza orice număr ColorIndex.
4. Închideți cele două bucle For Next.
Următorul j
Apoi eu
5. Testați programul.
Rezultatul de până acum.
De exemplu, pentru i = 1 și j = 1, Excel VBA culori Celule (1,1), pentru i = 1 și j = 3 (Pasul 2), Excel VBA culori Celule (1,3), pentru i = 1 și j = 5, Excel VBA culori Celule (1,5), pentru i = 3 (Pasul 2) și j = 1, Excel VBA culori Celule (3,1) etc.
6. Suntem aproape acolo. Singurul lucru pe care trebuie să-l facem este să colorați celulele care sunt compensate cu 1 rând mai jos și 1 coloană în dreapta celulelor deja colorate. Adăugați următoarea linie de cod la buclă.
Celule (i, j). Offset (1, 1) .Interior.ColorIndex = 15
7. Testați programul.
Rezultat:
