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

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

Как да изпълня следната задача

Бях определила седмицата за текущата дата във файла и преди това. И всички колони от Е до BD, в ред 6 имат номерата на седмиците, но под номерата на седмиците има данни за консолидиране и тъй като съм задала твърд рейндж за консолидиране, то консолидирането започва всеки път от седмица 1, а трябва да започва от текущата седмица +1.Трябва да видите кода.Public Sub ConsolidateData()'Присвоява номерата седмиците в колонитеFor i = 1 To 52Range("D6").Offset(0, i) = iNext' Задава стойност на редовете с видовете приходи и разходиRange("C11").SelectActiveCell.Value = "Плащания от клиенти"ActiveCell.Offset(1, 0).Value = "Факторинг"ActiveCell.Offset(2, 0).Value = "Авансови плащания"ActiveCell.Offset(3, 0).Value = "Други постъпления"Range("C16").SelectActiveCell.Value = "Течни суровини (вино,спирт,дестилат)"ActiveCell.Offset(1, 0).Value = "Зърно, грозде, слама"ActiveCell.Offset(2, 0).Value = "Други материали"ActiveCell.Offset(3, 0).Value = "Други търговски задължения (услуги)"ActiveCell.Offset(4, 0).Value = "Наеми и лизинг"ActiveCell.Offset(5, 0).Value = "Разходи за маркетинг"ActiveCell.Offset(6, 0).Value = "Слуебни аванси"ActiveCell.Offset(7, 0).Value = "Заплати"ActiveCell.Offset(8, 0).Value = "Осигуровки"ActiveCell.Offset(9, 0).Value = "Данъци"ActiveCell.Offset(10, 0).Value = "ДДС"ActiveCell.Offset(11, 0).Value = "Капиталови разходи"ActiveCell.Offset(12, 0).Value = "Други разходи"Range("E11").SelectWorkbooks.Open Filename:="C:\W13\Logistics Director.xlsx"Workbooks.Open Filename:="C:\W13\HR.xlsx"Workbooks.Open Filename:="C:\W13\Operations.xlsx"Workbooks.Open Filename:="C:\W13\Purchasing_1.xlsx"Workbooks.Open Filename:="C:\W13\Purchasing_2.xlsx"Workbooks.Open Filename:="C:\W13\Purchasing_3.xlsx"Workbooks.Open Filename:="C:\W13\Finance.xlsx"Workbooks.Open Filename:="C:\W13\Legal.xlsx"Workbooks.Open Filename:="C:\W13\Marketing.xlsx"Workbooks.Open Filename:="C:\W13\Bulk Sales.xlsx"Workbooks.Open Filename:="C:\W13\Sales Bulgaria.xlsx"Workbooks.Open Filename:="C:\W13\Export Sales.xlsx"Workbooks.Open Filename:="C:\W13\Technical.xlsx"' Консолидира данните от всички файловеWindows("Cashflow_W13_report.xlsm").Activate' Консолидира приходната частSelection.Consolidate Sources:=Array( _"'C:\W13\[Logistics Director.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[HR.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Operations.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Purchasing_1.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Purchasing_2.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Purchasing_3.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Finance.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Legal.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Marketing.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Bulk Sales.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Sales Bulgaria.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Technical.xlsx]Sheet1'!R11C5:R14C17", _"'C:\W13\[Export Sales.xlsx]Sheet1'!R11C5:R14C17"), Function:=xlSum'Консолидира разходната частRange("E16").SelectSelection.Consolidate Sources:=Array( _"'C:\W13\[Logistics Director.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Technical.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[HR.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Operations.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Purchasing_1.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Purchasing_2.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Purchasing_3.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Finance.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Legal.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Marketing.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Bulk Sales.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Sales Bulgaria.xlsx]Sheet1'!R16C5:R28C17", _"'C:\W13\[Export Sales.xlsx]Sheet1'!R16C5:R28C17"), Function:=xlSum

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

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

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

В инструкцията има 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. Съветът ми е да изгледате още веднъж урока. И разбира се пишете, ако имате въпроси. Весели празници!

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

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

Коя е началната точка, от която започва да брои променливата row_nu/col_nu

Да, това е логиката. Примерът е специално избран, за да покажа разликата между двете характеристики (properties): Row - Rows и Column - Columns.

Безплатно! Онлайн събитие: AI за 10x продуктивност Регистрация тук.

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

Пълен достъп до курса: Не

За пълен достъп или безплатна проба (2 модула), моля влезте или се регистрирайте.

Предишен Следващ

VBA за Excel В курса ще се научите как да автоматизирате и оптимизирате вашите задачи в Excel чрез програмиране с Visual Basic for Applications (VBA). Този специализиран курс е подходящ за напреднали и ще ви даде възможност да създавате персонализирани макроси, функции и процедури, които ще ускорят работата ви и ще ви позволят да решавате сложни аналитични предизвикателства.