Как да напиша инструкция...
Здравейте, как да напиша инструкция с If, ако има формули да пропусне само инструкциите с формулите, а не да излиза от цялата процедура, защото след формулите имам други процедури и искам макросът да продължи с тях?
Здравейте Цветелина. Така както сте написали процедурата може да използвате HasFormula=False (в модул 2, урок 5 има подобен пример).Тук искам да направя едно уточнение: предполагам, че Calculate е процедура, която попълва колоните на таблицата преди да изчисли Сумата и Средно аритметичната стойност (от картинката не се вижда Calculate). В такъв случай е коректно проверката да се извършва за колоната, в която се попълват формулите (например колона C), т.е. в първата инструкция на процедурата вместо Rаnge("A1") да се запише Range(C1").End(xlDown).Select.
Тогава инструкцията с IF e:
If ActiveCell.HasFormula = False Then Calculate.
Моля пишете ми, ако имате още въпроси.
Благодаря ви.Ще опитам.
Вашият отговор
