Помогите пожалуйста упростить код ВБА, долго решает.
Требуется найти сумму вырученную от продаж бакалейной продукции Первомайского района.
Sub dddddb()
a = 0
v = 0
Sum = 0
For i = 1 To 2274
For j = 1 To 66
For k = 1 To 17
If Worksheets(3).Cells(k, 2) = "Первомайский" And Worksheets(1).Cells(i, 3) = Worksheets(3).Cells(k, 1) And Worksheets(1).Cells(i, 6) = "Продажа" Then
a = Worksheets(1).Cells(i, 4)
If Worksheets(2).Cells(j, 1) = a And Worksheets(2).Cells(j, 2) = "Бакалея" Then
v = Worksheets(1).Cells(i, 5) * Worksheets(1).Cells(i, 7)
End If
End If
Sum = Sum + v
v = 0
Next k
Next j
Next i
MsgBox "Сумма, вырученная от продаж бакалейной продукции магазинами Первомайского района = " & Sum
End Sub
Это задание из института или реальная задача?
Просто для института нужно делать по правилам, которым вас учили.
Задача из университета. Правил никаких нет, ВБА дано было на самообучение, даже подсмотреть некуда. Методички тоже нет(
Опишите задание словесно без использования кода.
описать решение или что надо найти? Не совсем понял Вас.
Словесное описание задание, без использования кода.
Например, задача такая, нужно сделать то то и то то.
задача найти выручку от продажи бакалейной продукции магазинами Первомайского
района. Нужно найти магазины первомайского района, затем посмотреть артикулы бакалейной продукции, которая продается в них и затем посчитать сколько продалось умножив цену за шт на кол-во.
выручка это просто сумма на которую продали товар без вычитания затрат
правильный ответ : 1429921
Мой код верно решает, но как ускорить не знаю
Сколько у вас макрос работает по времени?
35 сек