VBA за Excel: Създаване на обобщаваща таблица с едномерен динамичен масив, тип User Data Type

Q: Защо total_sales = total_sales +....?

Знак "=" се тълкува като оператор за присвояване, а не като знак за равенство. Смисълът на присвояването тук може да опишем в следните стъпки: 1. На променливата total_sales=0 (дава се начална стойност на променливата 0, за да сме сигурни, че натрупването на сумата започва на чисто. 2. Към старата стойност на променливата добави стойността на определена зона и я превърни в нова стойност на същата променлива. (total_sales(ново)=total_sales(старо)+Range("B"&m).Value

Q: Защо сумира total_sales и total_commis с натрупване от първия към последния лист?

Здравей Цветелина. В урока обръщам специално внимание, че в процедурата има една "особеност". Това е една "уловка" и предизвикателство да се намери причината за некоректното натрупване на сумите. Много добре си се справила с това предизвикателство, точно така стойностите на двете променливи total_sales и total_commmis трябва да натрупват сумите само за активния лист. За следващия лист двете променливи трябва да се нулират, за да започне отново натрупването. Дарина много подробно е отговорила на предишния ти въпрос как променливите съхраняват стойности. За да се нулират или "изчистят" променливите, се присвоява 0. И така, за да сумира само за активния лист, може да добавиш в началото на блок-оператор For each sht, в процедурата Fill_Table следните инструкции: total_sales=0 total_commis=0

Q: Как да разбирам обект дефиниран с: Range("B2:C" & sht_nu +2).

Обект Range може да се дефинира по различни начини. Например: Range("B2:C4") - това е абсолютна референция за обекта и при всяко изпълнение на процедурата ще посочва този обект. Но вместо номера на реда може да се използва променлива ( в примера променливата е sht_nu, на която предварително се присвоява стойност, да кажем sh_nu=5). Следователно обект Range("B2:C"& sht_nu + 2) определя референцията "B2:C7". Когато в процедурите дефинираме обект, е много по-удобно, по-гъвкаво да се използват променливи. Припомни си примерите от предишния модул 4, урок 9, Sub Array_Sales, module Step6. Надявам се, че бях полезна с отговора, но ако все още не е ясно пиши.

Q: Може ли да се зададе така процедурата, че да не се изпълнява във всеки Sheet?

Достатъчно е в процедурата да се зададе условие за кои листове да се изпълнява. Например, ако процедурата трябва да се изпълнява само за листове, чието име започва с "Primer*", условието може да се запише така: If sht.Name Like "Primer" Then ... и следва програмен код. Обърнете внимание, sht е декларираната променлива-обект Worksheet. Ако дадете конкретен пример при какво условие да се изпълнява процедурата, ще се опитам да помогна

Q: Защо Range(cells(1,3),cells(Ubound(Arr)+1,3)) се променя така?

По подразбиране, първият елемент на масива има индекс 0, това е стойността на LBound. Когато определяте i = 1, попълването започва от втория елемент, който има индекс 1. Елементите на масива се попълват със стойностите, но индексите са отместени с 1 - първият елемент на масива Arr(0) е празен и се записва в С1, вторият елемент Arr(1) се записва в С2. Масивът има 23 елемента, защото UBound = last_row = 22. Когато определяте i=0, тогава диапазонът включва един празен ред, това е последният елемент Arr(22), но масивът също има 23 елемента. Объркването идва от първия елемент на масива, който има индекс 0. За да видите сама как се записват данните от масива, добавете инструкция rng.Select, след дефинирането на rng (Set rng = ...) Надявам се, че отговорих на въпроса. Разбира се, ако имате още въпроси, пишете.

Q: Защо така дефинирано полето за сума в Klient_data се закръгля до цяло число и 2 нули сл.дес.точка? Беше дефинирано и Long Същият резултат. В таблицата източник е с 2 зн. след десетичната точка.

Здравейте, едно уточнение. Променливите, декларирани като Long съхраняват цели числа. Затова числата се закръгляват до цяло число. По всяка вероятност е останало форматиране в Excel като 2 знака след десетичната точка. Променливите, декларирани като Currency съхраняват числата с точност то 4-я знак след десетичната точка. Форматирането в Excel за диапазона, в който показвате стойностите се запазва. Стойностите се представят във формата, зададен по подразбиране. Ако искате стойностите да се представят така, както са зададени в таблицата източник, изберете тип Variant. Ако имате още въпроси или нещо не е ясно, моля пишете.