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

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

Посетитель 19.12.2022

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

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

Администратор

Это задание из института или реальная задача?
Просто для института нужно делать по правилам, которым вас учили.

Посетитель 19.12.2022

Задача из университета. Правил никаких нет, ВБА дано было на самообучение, даже подсмотреть некуда. Методички тоже нет(

Администратор


Посетитель 19.12.2022


Администратор

Словесное описание задание, без использования кода.
Например, задача такая, нужно сделать то то и то то.

Посетитель 19.12.2022

задача найти выручку от продажи бакалейной продукции магазинами Первомайского
района. Нужно найти магазины первомайского района, затем посмотреть артикулы бакалейной продукции, которая продается в них и затем посчитать сколько продалось умножив цену за шт на кол-во.

Посетитель 19.12.2022

выручка это просто сумма на которую продали товар без вычитания затрат

Посетитель 19.12.2022

правильный ответ : 1429921
Мой код верно решает, но как ускорить не знаю