Заметим, что комиссионные, начисленные по максимальному проценту, будут окрашены красным цветом, по наименьшему -черным, а по среднему синим.

2 3 4 5 6 7 8 9 10

Петров Н.П. Иванов А.С. Сидоров Т.Е. Федоров А.Г. Смирнов Е.Л. Ивлев Е.Г Орлов В.Ф. Туркин ГТ.

Выручка Комиссионные

1000000 5500000 340000 390000 606000 560000 5000 234600

40000 220000 13600 15600 1818 22400 100 9384

Вариант 1

Вариант 2

Рис. 13.2. Сценарии начисления комиссионных Dim fl As Integer

Function Red, pi, p2, p3 As Double, fl As Integer) Dim si, s2, s3 As Double If i >= 100000 Then

Pl 1

100000 And

si =

fl = End If If i <

s2 -

fl = End If

If i < 50000 Then s2 = p3 fl = 3 End If Re = (si + End Function

i >= 50000 Then

s2 + s3)

Sub Ta (pi, p2, p3 As Double) Dim i As Double Dim j , n As Integer n = Application.

CountA(Sheets("Комиссионный").Range("B:B")) For j=2 To n

2) .Value 3)

(i, pl, p2, fl 1

i = Cells (j , With Cells(j, .Value = Re Select Case Case Is =

p3, fl)

.Font.Colorlndex = 3

Case Is = 2 .Font.Colorindex = 5 Case Is = 3 .Font.Colorindex = 1 End Select End With Next j End Sub

Sub KomlO

Та 0.04, 0.03, 0.02 End Sub

Sub Kom2 0

Та 0.06, 0.04, 0.02 End Sub

Приведем необходимое пояснение к данной программе. В VBA диапазон В:В обозначает столбец В. Функция СЧЕТЗ в русскоязычной версии Excel подсчитывает число непустых ячеек в выделенном диапазоне. Ее эквивалентом в англоязычной версии является функция CountA. Таким образом, функция

Application.

CountA(Sheets("Комиссионные").Range("В:В"))

вычисляет число непустых ячеек в столбце В.

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

Рассмотрим следующую модель управления запасами ([2]). Уличный продавец покупает журналы у издательства по цене 20 руб. за штуку, а продает - по 23 руб. за штуку. В случае, если товар не удается реализовать, продавец возвращает его издательству по цене 17 руб. за штуку. Необходимо определить, сколько журналов следует закупать продавцу, чтобы его ожидаемая прибыль была максимальна.

Продавцу никогда не удавалось продать более 20 журналов, а в среднем за 37 дней объемы реализации и число соответствующих событий показаны на рис. 14.1 (для простоты учитываются только пачки по пять журналов).

Q Файл Правка Виа Вставка Формат Сервис Данные Окно 2 - g х

□ в? Н # а 5»- * 1*1 е < & 5: л 4i ;i й t 4? 100% . й

Д1 Ч

L -

19 20

\i i м/июль/ вспомогательный /Лист4 \Лист 1/Лист Готово Цикп

Рис. 14.1. Модель управления запасами В ячейку F9 введена формула

=F8/CyMM($F$8:$J$8)