Hozzon létre egy hasznos makrót excel-ben

Munkája eredménye a következő:

Magyarázzuk el, mi a funkcióunk.

Először két ciklus van. A külső hurok áthalad minden oszlopon, a belső hurok áthalad az oszlop minden során.

Munkafüzetek ("Book1") Munkalapok ("Sheet1") Aktiválás - aktiválja a "Book1" könyv "Sheet1" lapját.

"I, j" közbenső változók, meghatározzák a cella koordinátáit az Excel táblában ("i" - a sor száma az első érték, "j" az oszlopszám a második koordináta).

«Do While cellák (i, j) .Value <> "" - addig, amíg a "(i, j) .Value" cellák értéke "(i, j)" koordinátákkal "üres" lesz. Ez az első ciklus kezdete, ezért átmegyünk az összes "A" és "F" oszlopon.

"Amount = 0" egy olyan változó, amely felhalmozza az oszlopban lévő cellaértékek összegét.

«Do While cellák (i, j) .Value <> "" - addig, amíg a "(i, j) .Value" cellák értéke "(i, j)" koordinátákkal "üres" lesz. Ez a belső hurok kezdete, ezért a "j" oszlop összes celláját átmegyünk az "1" -ről a "6" -ra.

"Összeg = összeg + Cellák (i, j) Érték" - összegyűjtjük az összeget.

"I = i + 1" - változtassa meg a számlálót a következő sorra lépéshez.

"Cellák (i, j) .Value = összeg" - írja be az összeget az oszlop végére.

"J = j + 1" - változtassa meg a számlálót a következő oszlopra lépéshez.

"I = 1" - annak érdekében, hogy eloltson az első sorban az új oszlopban.

A program a következőképpen működik: a makrót futtatjuk. a makró egy függvényt (eljárást) hív meg, amely ténylegesen elvégzi az összeg kiszámítását.