Продажа и скидки

[Wander]

Суть задачи:
Диапазон цен (столбец А1)
Диапазон стоимость (столбец В1).
Для каждой цены и стоимости соответствует скидка с1, с2 и т.д (т.е. например 10 цен значит берется 10 скидка)
Брать MAX цену, стоимость и соответствующую MAX скидку.


Private Sub CommandButton1_Click()
S = WorksheetFunction.CountA(Columns("A ")) 'подсчет элиментов цена
k = WorksheetFunction.CountA(Columns("B ")) 'подсчет элиментов количество
c = Range("K1").Value 'скидка для постоянных покупателей
c1 = Range("E1").Value 'скидка 1
c2 = Range("G1").Value 'скидка 2
c3 = Range("I1").Value 'скидка 3

For i = 1 To S
Set z = r.Offset(rowoffset:=1, columnoffset:=0).Value
For j = 1 To k

If OptionButton1 = True Then
res = S * k
Label6.Caption = c
ElseIf OptionButton2 = True Then
res = S * k * c2
Label6.Caption = c2
ElseIf OptionButton3 = True Then
res = S * k * c3
Label6.Caption = c3
Else
res = S * k * c1
Label6.Caption = c1
End If

If CheckBox1 = True Then
res = res * c
Else
res = res
End If

Label6.Caption = c
Label7.Caption = k
Label8.Caption = S
Label9.Caption = res
Exit For

Next j
Next i

End Sub

Private Sub CommandButton2_Click()

Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
OptionButton1 = True
OptionButton2 = False
OptionButton3 = False
CheckBox1 = False

End Sub

Private Sub CommandButton3_Click()
End
End Sub

Private Sub Label7_Click()

End Sub

Private Sub UserForm_Click()

End Sub

Очень надеюсь на помощь! Заранее спасибо!