Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.63
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.63

Option Base 1

Function Прибыль (покуп As Variant) As Variant

Dim NRows, i, j, Цпрод, Цпок

Dim Цсдач As Integer, Res() As Integer

NRows = покуп.Rows.Count

Цпрод = Range("Продажа").Value

Цпок = Range("Покупка").Value

Цсдач = Range("Возврат").Value

ReDim Res (Nrows, NRows)

For i = 1 To NRows

For j = I To NRows

If i <= j Then Res(i, j) = покуп(i) * (Цпрод - Цпок) If i > j Then Res(i, j) = покуп(]) *

14. Модель управлення запасами

(Цпрод - Цпок)-(покуп (i) (Цпок - Цсдач) Next j Next i

Прибыль = Res End Function

покуп (j))

Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications

Рис. 14.2. Диалоговые окна модели управления запасами

В ячейках ЫЗ:Ы7 с помощью формулы

{1=МУМНОЖ(П2: Лб; ТРАНСП (¥9 : 39) ) }

находим ожидаемую прибыль, соответствующую различным вариантам покупки журналов. Напомним, что при выполнении операции над массивами для подтверждения ввода формулы необходимо нажать комбинацию клавиш ОН+БЫЛ+Етег.

110 Программирование в среде Visual Basic for Applications

В ячейке 117 (Максимальная прибыль) с помощью формулы

НАИБОЛЬШИЙ ( L13 : L17 ; 1 )

вычисляем максимальную прибыль. Ее также можно найти, воспользовавшись функцией МАКС, находящей максимальный элемент из списка

=MAKC(L13:L17)

В ячейке 118 по формуле

= (ПОИСКПОЗ(НАИБОЛЬШИЙ(L13:L17;1);L13: LI 7;0)-1)*5

вычисляем соответствующий оптимальный объем покупок газет. Затем процедура Cale выводит эти оптимальные значения в окне сообщений.

Функция НАИБОЛЬШИЙ (LARGE) возвращает £-е наибольшее значение из множества данных. Эта функция используется, чтобы выбрать значение по его относительному местоположению. Например, функцию НАИБОЛЬШИЙ можно использовать, чтобы определить наилучший, второй или третий результат в баллах, показанный при тестировании. Приведем синтаксис использованной выше функции НАИБОЛЬШИЙ.

Синтаксис :

НАИБОЛЬШИЙ(массив; к) ,

где

• массив - это массив или диапазон, для которых определяется к-е наибольшее значение;

• к - это позиция (начиная с наибольшей) в массиве или в диапазоне.

Функция Format осуществляет форматирование значения вычисляемого выражения по указанному формату. Синтаксис:


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta