Шаг 291.
VBA в MSExcel.
Модель расчета максимальной загрузки контейнера. Выходные параметры

    На этом шаге мы рассмотрим назначение этих параметров.

    Таблица с выходными параметрами (рисунок 1) расположена в области Е2:Н11 и ее задача заключается в следующем:


Рис.1. Итоговая таблица с анализом загрузки автомобиля

Расчет общего количества ящиков, которые могут поместиться в кузов автомобиля

    При расчете оптимальной загрузки автомобиля необходимо определить: сколько ящиков поместится в машину. Существует и второй аспект этой проблемы: сколько времени потребуется для загрузки самой оптимальной партии.

    Таблица с выходными данными предназначена не только для вывода информации по количеству ящиков, которые могут поместиться в кузов автомобиля,. но и может выступать в качестве технологической карты при непосредственной загрузке автомобиля, потому что в ячейках I4:I7 формируется текст вариантов погрузки каждой партии, согласно которого будет известно, как этот груз располагать. А, следовательно, задача сводится к следующему: загрузка автомобиля оптимальной (рассчитанной) партией груза за наиболее короткое время.

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

    При активизации переключателей, определяющей вариант размещения ящиков первой партии груза, вычисленные значения таблицы загрузки первой партии товара остаются неизменны. Изменяется только значение количества ящиков груза первой партии, которая отображается в ячейке Н4 таблицы с выходными параметрами, в которой находится формула, производящая поиск количества погруженных ящиков в первой партии, рассчитанных в области L16:L21:

  =ВПР(1;$A$16:$L$21;7;ЛОЖЬ)

    Формулы в ячейках Н5:Н7 производят выборку максимального значения, рассчитанного таблицами загрузки второй - четвертой партии груза:

  =МАКС(F27:F32)
  =МАКС(J27:J32)
  =МАКС(N27:N32)

    В ячейке Н8 находится формула суммирования количества ящиков во всех четырех партиях.

    Формула в ячейке Н9 определяет загрузку объема кузова в процентном отношении:

  =((Груз_Ширина*Груз_Длина*Груз_Высота)*H8)/
    (Машина_Ширина*Машина_Длина*Машина_Высота)

    Если в ячейку С11 введено количество ящиков, предполагаемое для загрузки, то формула в ячейке D11 сравнивает это значение со значением в ячейке Н8:

  =C11-H8

    В ячейке Е11, в зависимости от полученного результата вычислений в ячейке D11, формируются надписи: Остается свободный объем! или Груз не помещается! по формуле:

  =ЕСЛИ(D11<0;"Остается свободный объем!";"Груз не помещается!")

    Для того чтобы формируемый текст, в зависимости от его содержания, привлекал внимание пользователя, назначьте всем элементам управления Переключатель макрос ЦветШрифта (рисунок 2).


Рис.2. Подпрограмма ЦветШрифта

    Макрос ЦветШрифта для задания цвета шрифта, в зависимости от содержимого ячейки, использует инструкцию Select Case. С помощью этой инструкции проверяется, какое текстовое значение возвращает формула в ячейке Е11, и при указании оставшегося свободного объема в кузове, шрифт окрашивается в голубой цвет. В противном случае - в красный.

    Для того чтобы сразу было видно, как располагать ящики в каждой партии загрузки, в ячейках I4:I7 находятся формулы поиска текста варианта расположения груза. Например, в ячейке I4 формула:

  =ЕСЛИ(H4=0;0;ВПР(H4;G16:S21;12;ЛОЖЬ))
которая в качестве искомого элемента, по которому производится поиск, использует количество ящиков груза в ячейке Н4. Для определения текста варианта размещения для первой партии можно использовать значение 1.

Как пользоваться приложением

    Введите габариты кузова автомобиля и груза, после чего, поочередно активизируя переключатели выбора варианта размещения груза в первой партии загрузки, выберите максимальное значение, определенное в ячейке Н8.

    Полный текст этого приложения можно взять здесь.

    Со следующего шага мы начнем рассматривать формирование оптимального заказа поставки комплектующих.




Предыдущий шаг Содержание Следующий шаг