Читать всем Нид хелп, посоны

[Песатель]

WARNING1! Блок-схема (мб не совсем правильная, но у меня проканало) к этому коду

Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub


ну и схема

[[\m/] писюкан]

Сообщение от Песатель

WARNING1! Блок-схема (мб не совсем правильная, но у меня проканало) к этому коду

Public Sub Stoimost()
Dim d As Long
i = 3
d = 1
Do While Cells(i, 2) <> ""
If Cells(i, 2) = "Монитор" Then
d = Cells(i, 4) * Cells(i, 5) - Cells(i, 4) * Cells(i, 5) * 0.15
Cells(i, 6) = d
Else: d = Cells(i, 4) * Cells(i, 5)
Cells(i, 6) = d
End If
i = i + 1
Loop
Range("F2") = "Стоимость"
End Sub


ну и схема Вложение 34719

аа такая хуита нужна?)пло, около года назад сам такой ерундой занимался