Обект Range - характеристики (properties), които определят текущия ред и колона

Q: Как се тълкува знакът "<>"

Знакът "<>" е аритметичен оператор, който означава "Не е равно", така както се използва и в екселските формули. А инструкцията означава "ако записаното в клетка Cells(row_nu + 6, 4) не е равно на "Средно", да завърши процедурата - Exit Sub.В модул 5 подробно разглеждам аритметичните оператори и блок-оператори на VBA. Моля пишете, ако нещо не Ви е ясно. Успех!

Q: Как да изпълня задача - изображения.

Бихте ли прикачили изображение на проблема, който срещате, за да бъде по-ясно и да можем да помогнем?

Q: Защо има разлика в изпълнението?

В инструкцията има 2 грешки. 1. Range("A1").End(xlDown).Activate.Copy Една инструкция изпълнява само едно нещо - команда (method) или характеристика (property). Във Вашата инструкция има 2 команди (methods) - Activate i Copy. Трябва да запишете 2 инструкции. 2. Втората грешка е в синтаксиса на Copy. Синтаксисът на команда Copy изисква аргумент къде ще се копира и затова команда Paste e излишна. Аргументът се отделя с интервал. Също така погрешно е дефиниран диапазона, в който трябва да се копира формулата. Правилните инструкции: Range("A1").End(xlDown).Select (по-добре е от Activate, защото имате 1 клетка) ActiveCell.Copy Range(Cells(ActiveCell.Row,2), Cells(ActiveCell.Row, column_nu)) Обърнете внимание, обект Range се дефинира с референциите на 2 клетки (Cells), където първият аргумент е индекс на реда, а вторият - на колоната. За да определя индекса на реда, използвам характеристиката Row ActiveCell.Row. В този и следващите уроци подробно обяснявам как се дефинира обект Range. Съветът ми е да изгледате още веднъж урока. И разбира се пишете, ако имате въпроси. Весели празници!

Q: Може ли да поясните кода за изтриване на формули?

Здравейте, Мария. Имате пред вид урок 4 от модул 3, нали? Ако е така, променливата row_nu съхранява числото на последния ред в таблицата, а row_nu-1 - един ред над него. Така обект Range включва последните два реда от таблицата, които ще се изтрият, ако в колона А има текст "Средно". Ще стане още по-ясно, ако тествате процедурата по стъпки (с клавиш F8). Ако имате още въпроси, пишете.