Требуется найти сумму вырученную от продаж бакалейной продукции Первомайского района.

Автор Посетитель, 19 декабря 2022, 20:44

Посетитель

Помогите пожалуйста упростить код ВБА, долго решает.
Требуется найти сумму вырученную от продаж бакалейной продукции Первомайского района.

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
Мой код верно решает, но как ускорить не знаю