Реально ли выполнить такую формулу в Microsoft Office Excel

[t-e-x-a-c]

Добрый день!
Я работаю торговым представителем в оптовой компании (продукты)
У нас существует мотивация под названием "21 клиент", схема следующая: например я продал пиво в 42 торговых точки, с 20 по 25 точку получаю по 10 рублей за каждую точку; с 26 по 30 - 20 рублей; с 31 по 35 - 30 рублей; с 36 - все последующие точки по 40 рублей за каждую. За 42 сработавшие точки получил бонус 580 рублей.

Очень хотелось бы оформить такую формулу в Microsoft Office Excel, это реально ?

[Serge 007]

Сообщение от t-e-x-a-c

Добрый день!

Очень хотелось бы оформить такую формулу в Microsoft Office Excel, это реально ?

Здравствуйте.
Более чем реально. Файл выкладывайте.

[ZORRO2005]

Наверно правильнее 580 руб. получить за 37 точек,а 780 руб. за 42 точки.

=ВЫБОР((A1>=0)+(A1>=20)+(A1>25)+(A1>30)+(A1>35);0;A1*10;250+(A1-25)*20;350+(A1-30)*30;500+(A1-35)*40)

В A1 кол-во точек.

[doober]

То ZORRO2005 правильный ответ 580 =5*10+5*20+5*30+5*40+2*40

=Pivo(A1)

Время было написал для прикола.

Function Pivo(Rn As Range) As Long
  Dim rez, rezult As String
  Dim Pv As Long
  Dim Md As Long: Dim mm As Long: Dim n As Long
  Pv = Rn.Value
  If Pv < 21 Then Pivo = 0: Exit Function
 For n = 0 To Pv - 21
   mm = n: rez = ""
 Do While mm >= 5
      Md = mm Mod 5
      mm = Int(mm / 5)
      rez = Md & rez
     Loop
 rezult = rezult & mm & rez & vbCrLf
Next
rezu = Split(rezult, vbCrLf, -1)
Dim Tuborg As Long
For n = 0 To UBound(rezu) - 1
If Int(rezu(n) / 10) > 3 Then
Tuborg = Tuborg + 40
Else
Tuborg = Tuborg + (1 + Int(rezu(n) / 10)) * 10
End If: Next
Pivo = Tuborg
End Function

[IgorGO]

вот вариант чуть короче:

=СУММПРОИЗВ((A1>{4;5;6}*5)*МИН(A1-{4;5;6}*5;5)*{10;20;30})+(A1>35)*(A1-35)*40

В А1 пишем количество точек, которые приобрели пиво. Для 42 точек формула выдала 580 руб. бонусов.

[ZORRO2005]

Подправил:

=ВЫБОР((A1>=0)+(A1>20)+(A1>25)+(A1>30)+(A1>35);0;(A1-20)*10;50+(A1-25)*20;150+(A1-30)*30;300+(A1-35)*40)

только в условии тогда должно быть:
с 21 по 25 точку получаю по 10 рублей

IgorGO, проверь с 21 по 30

[IgorGO]

ZORRO2005, спасибо! да, уж... штанга та еще
исправлено, проверено

=СУММПРОИЗВ((A1>{4;5;6}*5)*ЕСЛИ(A1-{5;6;7}*5>=0;5;A1-{4;5;6}*5)*{10;20;30})+(A1>35)*(A1-35)*40

а если обьявить три имени
д1 ={20;25;30}
д2 ={25;30;35}
д3 ={10;20;30}
то формулу можно записать намного короче (только теперь это формула массива)

=СУММПРОИЗВ((A1>д1)*ЕСЛИ(A1-д2>=0;5;A1-д1)*д3)+(A1>35)*(A1-35)*40

[t-e-x-a-c]

Всем большущее спасибо , тему впринципе можно закрыть

[t-e-x-a-c]

Всем огромное спасибо !!!!!!!!!! Всем признателен!