Проверка массива

[Wander]

Привет! Требуется помочь!
Есть код (представлен ниже).
Надо в экселе вместо цифр 100, 200 и 300 была переменная и подставляла данные через цикл.
Вместо 0,93; 0,9; 0,85 была переменная которая считывала и выбирала нужное число.
Attribute VB_Name = "Module1"
Function МассивСтоимость(ЦенаОднойКниги, Количество, Скидка)
If Количество < 100 Then
СтоимостьБезСкидки = ЦенаОднойКниги * Количество
ElseIf Количество <= 200 Then
СтоимостьБезСкидки = ЦенаОднойКниги * Количество * 0.93
ElseIf Количество <= 300 Then
СтоимостьБезСкидки = ЦенаОднойКниги * Количество * 0.9
Else
СтоимостьБезСкидки = ЦенаОднойКниги * Количество * 0.85
End If
If Скидка = 0 Then
Стоимость = СтоимостьБезСкидки
Else
Стоимость = СтоимостьБезСкидки * 0.95
End If
End Function

[SAS888]

У Вас несоответствие имени функции с переменной, возвращающей результат. Измените заголовок функции. Вместо

Function МассивСтоимость(ЦенаОднойКниги, Количество, Скидка)

нужно

Function Стоимость(ЦенаОднойКниги, Количество, Скидка)

[Wander]

не все так просто

[SAS888]

Сообщение от Wander

не все так просто

По крайне мере, тогда все работает, Может не так, как Вам нужно?

[Wander]

не получается через операторы и цикл For

[SAS888]

Сообщение от Wander

не получается через операторы и цикл For

Вам нужен макрос? Или Вы хотите цикл встроить в функцию? Зачем?

[Wander]

встроить цикл но если не получится тогда макрос

[SAS888]

Сообщение от Wander

встроить цикл но если не получится тогда макрос

Не экономьте слова. Объясните подробно. Какой цикл Вам нужен? Если использовать функцию, то она вернет значение в одну ячейку. Затем эту формулу можно просто "растягивать". А если, например, цикл по ячейкам столбца с изменением их значений, то это будет макрос, который потребуется каким-то образом запускать (например, по событию изменения в нужных ячейках и т.п). Кроме того, макрос будет "привязан" к ячейкам (строкам, столбцам), и при добавлении (удалении) строк (столбцов), его работа будет (может) нарушаться.