Как да дефинираме обект Range - блок-оператор While

Q: Кое е оптималното решение на домашната задача?

Здравей, решението, което предлагам е свързано с темата на урока. Разбира се, че могат да се намерят и други решения. Вярното решение е това, което дава коректен резултат. Грешката в кода, който си написал, е в дефинирането на обект Range за сумата. В предишните уроци показах макроси, които записват въвеждане на екселски функции - SUM, AVERAGE (виж урок 6 от модул 2). Или запиши макрос, в който въвеждаш функцията SUM, така веднага ще видиш грешката. Във VBA също се използват вградените екселски функции, но има различен синтаксис и ги разглеждам в следващите модули. Използването на променливи е много важно, за да се научи VBA. Надявам се, че успях да отговоря на въпроса ти.

Q: Какъв е проблемът в кода за сумиране на комисионната?

Проблемът е в променливата за реда (i), във втория блок-оператор While. В първия блок-оператор While се изчислява комисионната, докато не срещне празна клетка и за всеки ред променливата (i) се увеличава с 1. Когато завърши блок-оператора, променливата (i), съхранява последната увеличена стойност, но тя е различна от първоначалната стойност i=2. Ако в таблицата има 20 реда, тя ще бъде 22, например. Тогава за втория блок-оператор While, променливата започва от 22-ри ред While Not IsEmpty(Cells(i,j)) няма стойности и затова резултатът е 0. Проблемът може да се реши по два начина: 1. Да остане само един блок-оператор While, като след инструкцията за изчисляване на комисионната, се добави инструкцията: Total_commiss = Total_commiss + Cells(i,j) 2. Преди втория блок-оператор While да се зададе първоначалната стойност на променливата i=2. Аз предпочитам първия вариант. Пишете, ако имате още въпроси.

Q: Защо i става единица?

Първият блок-оператор While, преброява редовете - преминава на следващия ред с инструкцията i=i+1. Когато завърши, променливата i има нова стойност, i=14. Ето защо във втория While, адресът се дефинира Cells(1,j). Инструкцията Range(Cells(1,1),Cells(i,j)).Select определя обект Range, а това е таблицата. Select избира (маркира) обекта Range.