Составление цикла в VBA Excle

[thefair]

Здравствуйте, я уже года как три не занимался (если занятия с выводом сообщений и не большой работой с массивами можно вообще назвать занятием, я больше пхп полюбил =)) VB 6.0, а VBA Excel вообще в глаза не видел Я не удивлюсь если никто не откликнется на мою просьбу, но все же может кому не лень будет написать небольшой код для простого алгоритма который я опишу ниже:

Есть документ, к примеру Книга1.xls, в ней есть два листа: Лист1 и Лист2 соответсвенно.

В первом листе есть пять колонок: Артикул | Наименование | Количество | Цена | Разница
Во втором листе две колонки: Артикул | Цена

A теперь суть алгоритма: Если ячейка в колонке Артикул первого листа равняется ячейке в колонке Артикул второго листа, то ячейка данной строки в колонке Разница первого листа должна равняться ячейке Цена из первого листа минус ячейка Цена из второго листа умноженная на ячейку колонки Количество первого листа и так для каждой строки.

Вот что по-идеи должно получиться:

Лист1


Лист2


После алгоритма
Лист1


Если не понятно, готов попытаться объяснить более подробно. Буду очень благодарен за каждый ответ, я бы отблагодарил финансово, но на WebMoney у меня осталось только пол доллара, если поможет отправлю тому кто напишет мне код работающего цикла (выполнение такого алгоритма я себе представляю выполнением цикла)

[VictorM]

Если не понятно,

Конечно мало что понятно))
Вы бы лучше пример файла прикрепили

[VictorM]

А насчет циклов, посмотрите здесь Управляющие структуры ... Циклы
Очень тольково расписано и с примерами

[thefair]

Сообщение от VictorM

Конечно мало что понятно))
Вы бы лучше пример файла прикрепили

Пример экселевского файла я не прикрепляю, так как даже базу для составления цикла не могу написать, ну в упор я не знаю VBA, а именно как обращаться к той или иной ячейке определенной строки того или иного листа (Писал только на php и чуть-чуть на VB 6.0), а сейчас по работе понадобилось сделать такой макрос для упрощения работы. А вот скрины с тем, что должно получится я прикрепил в первом посте. и большое спасибо за линк!

[Depressive]

Зачем именно нужен цикл?
не проще ли просто формулой?
Например, если второй лист называется "Лист2", то вставить в ячейку E2 на таблице "Лист1" такую формулу:

=(D2-Лист2!B2)*C2

затем размножить эту формулу копированием по столбцу "E"

[VictorM]

Зачем именно нужен цикл?
не проще ли просто формулой?

Вот и я так подумал)))
Кстати, согласно Вашего алгоритма, в Е3 будет 1,5 а не 1 как у Вас на скрине

[thefair]

Сообщение от Depressive

Зачем именно нужен цикл?
не проще ли просто формулой?
Например, если второй лист называется "Лист2", то вставить в ячейку E2 на таблице "Лист1" такую формулу:

=(D2-Лист2!B2)*C2

затем размножить эту формулу копированием по столбцу "E"

все было бы хорошо, если бы не одно НО, во втором листе будет не две записи, а около 3000 и с кучей артикулов, и мне нужно, чтобы эта формула применялась только к тем строкам в которых совпадает артикул в первой колонке
Что-то типо:
Если ячейка A2 (Лист1) равняется Ячейке A2 (Лист2), то применяем формулу, если нет, то сравниваем ячейку А2 (Лист1) с ячейкой A3 (лист2) и т.д. пока формула не выполниться и точно такая же процедура с ячейкой А3 (Лист1)

Сообщение от VictorM

Кстати, согласно Вашего алгоритма, в Е3 будет 1,5 а не 1 как у Вас на скрине

Блин, хотел в скрине вписать не 0,5, а 0,6, получилось вверх знаний арифметики

[R Dmitry]

можно SQL вообще без циклов

[R Dmitry]

Sub start_sql()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

  sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
  & ";Extended Properties=""Excel 8.0;HDR=No"";"
 cn.Open sCon
 If Not cn.State = 1 Then Exit Sub

sSql = "SELECT ([Лист1$A2:D65535].F4-[Лист2$A2:B65535].F2)*[Лист1$A2:D65535].F3" _
& " FROM [Лист1$A2:D65535] LEFT JOIN [Лист2$A2:B65535] ON [Лист1$A2:D65535].F1 = [Лист2$A2:B65535].F1"
   
  rs.Open sSql, cn, adOpenStatic, adLockReadOnly
With Worksheets("Лист1")
.Cells(2, 5).CopyFromRecordset rs
End With
rs.Close: cn.Close
Set cn = Nothing: Set rs = Nothing
End Sub

библиотека должна быть подключена
Microsoft ActiveX Data Objects Library

[The_Prist]

К чему вообще макросы? ВПР Вам в помощь.
(D2-ВПР(Критерий;Таблица;Столбец;0))*C2