Rezultatul lucrării sale este următorul:
Să ne explicăm ce face funcția noastră.
În primul rând, există două cicluri. Bucla exterioară este trecută prin toate coloanele, bucla interioară este trecută prin toate rândurile coloanei.
Registrele de lucru ("Book1") .File de lucru ("Sheet1") Activare - activați foaia "Sheet1" din cartea "Book1".
«I j» - variabile intermediare, care determină coordonatele celulei din tabel Excel ( «i» - numărul de rând - o primă valoare, «j» - numărul coloanei - al doilea coordonatei).
«În timp ce celulele (i, j). Valoare <> "" "- face, până la valoarea«Cells (i, j) celula .value»coordonatele«(i, j)»nu va fi același" gol“. Acesta este începutul primului ciclu, așa că vom trece prin toate coloanele de la "A" la "F".
"Suma = 0" este o variabilă care va acumula suma valorilor celulare într-o coloană.
«În timp ce celulele (i, j). Valoare <> "-" până când valoarea celulei "Celule (i, j) .Value" cu coordonatele "(i, j)" este "goală". Acesta este începutul bucla interioară, așa că treceți prin toate celulele din coloana "j" de la "1" la "6".
"Suma = suma + Celule (i, j) Valoare" - acumulăm suma.
"I = i + 1" - schimbați contorul pentru a trece la linia următoare.
"Celule (i, j) .Value = amount" - scrie suma la sfârșitul coloanei.
"J = j + 1" - schimbați contorul pentru a merge la următoarea coloană.
"I = 1" - pentru a începe citirea în noua coloană din prima linie.
Programul funcționează după cum urmează, executăm macroul. macro-ul solicită o funcție (procedură), care, de fapt, efectuează calcularea sumei.