Курсовая работа (т): Применение информационных технологий обработки экономических данных при анализе рынка товаров и услуг (на примере производства хлебобулочных изделий)
Целевой ячейкой в данном случае
является итоговая прибыль, которая в результате выполнения задачи должна быть
максимальной за счет изменения количества реализуемого товара. При этом
необходимо ввести следующие ограничения: во-первых, количество товара должно
быть целым значением, поскольку продажа оборудования по частям невозможна,
также количество товара должно быть ≥ 0, поскольку оно не может принимать
отрицательных значений, а также затраты не должны превышать сумму оборотного
капитала. Таким образом, с помощью инструмента «Поиск решения» введем эти
условия (Рисунок 2):
Рисунок 2: «Поиск решения»
Таким образом, мы получаем самое оптимальное решение поставленной задачи.
Итоги решения оптимизационной задачи
приведены в таблице 3:
Таблица 3. «Оптимизационная задача».
. Лист интерфейса
Лист интерфейса предназначен для управления задачей. Он должен открываться первым при запуске данной задачи. Выход, закрытие всех файлов также осуществляется с его помощью. Кроме того, переход на нужные листы рабочей книги, печать таблиц, построение графиков и другие необходимые действия по управлению задачей следует производить с помощью листа интерфейса. Таким образом, этот лист реализует функции меню для работы с данной задачей.
Лист интерфейса - это всегда первый лист рабочей книги. Как правило, он имеет цвет, отличный от цвета остальных листов. На нем необходимо расположить несколько кнопок, с помощью которых осуществляется управление задачей.
В курсовой работе первый лист - это
лист интерфейса, на нем расположена кнопка «Кнопка вызова формы» (Рисунок 3):
Рис. 3 «Лист интерфейса»
При её нажатии появляется «Главная форма» (Рисунок 4) .
С помощью данной формы можно осуществить следующие действия:
ввести данные
построить сводную таблицу
построить диаграмму, отображающую динамику цен
построить диаграмму, содержащую линию тренда
решить оптимизационную задачу
Данные действия можно осуществлять в
произвольном порядке, единственное ограничение состоит в том, что решение
оптимизационной задачи должно следовать за прогнозом цен. Ввод суммы оборотного
капитала осуществляется также на данной форме. Кнопка «Выход» закрывает рабочую
форму.
Рисунок 4: «Главная форма»
При нажатии на кнопку «Ввод данных» открывается форма ввода данных (рисунок 5). С помощью которой вводятся следующие данные:
Название товара
Производитель
Дата
Цена товара
Рис. 5 «Форма ввода данных»
Причем пользователь вводит лишь значение поля «Цена», остальные поля заполняются при помощи выбора из выпадающего списка. После нажатия кнопки «Добавить» все поля очищаются, и пользователь может приступить к дальнейшему вводу данных. Если пользователь не заполнил форму и при этом нажал кнопку «Добавить» данные не добавятся, а подпись на форме изменится.
Соответственно при нажатии на кнопку «назад» пользователь возвращается к исходной форме.
А при нажатии кнопки «выход» форма закрывается.
При нажатии кнопки «Оптимизационная задача» появляется форма для ввода суммы оборотного капитала (Рисунок 6). После того нажатия кнопки «Ок» происходит поиск решения .
Рисунок 6. «Оптимизационная задача»
Заключение
Методы, представленные в данной курсовой работе, помогают решить важные экономические задачи по планированию производственной деятельности:
помогают произвести расчёт средних цен за период,
наглядно представить динамику (процесс изменение цен на товары или услуги),
произвести анализ складывающейся экономической ситуации на рынке,
составить прогноз на будущее,
определить оптимальные производственные масштабы для получения максимальной прибыли при имеющихся ресурсах.
В данной курсовой работе был рассмотрен такой сегмент рынка как, производство хлебобулочных изделий, в котором выделено 6 товара: Хлеб черный, Хлеб белый «Батон», Струкла, Плетенка с маком, Лепешка с сыром, Булка с повидлом. Производителями данных товаров являются: "Брянский хлебокомбинат", "Людиновский хлебокомбинат", "Свежий хлеб", "Орловский хлебокомбинат", "Дятьковский хлебокомбинат".
Исходя из проведенного анализа по всем 6 товарам и 5 конкурирующим производителям, можно сделать следующие выводы:
По всем товарам наблюдается не сильное изменение цен, скорее всего связанное с инфляцией или изменением цен на сырье;
Происходит рост цен на конец года, из за
подорожания сырья, необходимого для производства товара.
Список литературы
Безменов, И.А., Информационные технологии в экономике: Методические указания к курсовой работе для студентов дневной формы обучения специальности 351400 - «Прикладная информатика в экономике». - Б.: БГТУ, 2010. - 12с.
Брага, В.В., Бубнова, Н.Г., Вдовенко, Л.А., Гусев, В.И. Автоматизированные информационные технологии в экономике: учеб. для вузов / под ред. Г.А. Титоренко. - М.: ЮНИТИ, 2003. - 399 с.
Демидова Л.А., Пылькин А.Н., Программирование в среде Visual Basic for Applications: Практикум. - М.: Горячая линия-Телеком, 2004г. - 175с.
Кузьменко В.Г., Программирование на VBA. - М.: ООО «Бином-Пресс», 2010г. - 880с.
Малышев, С.А. Самоучитель VBA. Как это делается в Word, Excel, Access / С.А. Малышев; под ред. С.Л. Корякина-Черняка. - СПб.: Наука и техника, 2008. - 490 с.
Орвис В. Visual Basic for Applications на примерах./Пер.с англ. М.:БИНОМ, 2009. - 512 с.
Титоренко,
Г.А. Информационные технологии управления: учеб. пособие для вузов / под ред.
Г.А. Титоренко. - 2-е изд., доп. - М.: ЮНИТИ, 2009. - 438 с.
ПРИЛОЖЕНИЕ
|
Наименование товара |
Наименование поставщика |
Период |
Цена руб. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.01.2013 |
17,50р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.02.2013 |
17,00р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.03.2013 |
17,00р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.04.2013 |
16,50р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.05.2013 |
16,50р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.06.2013 |
16,50р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.07.2013 |
16,50р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.08.2013 |
16,00р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.09.2013 |
16,00р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.10.2013 |
17,00р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.11.2013 |
17,00р. |
|||
|
Хлеб черный |
"Брянский хлебокомбинат" |
01.12.2013 |
17,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.01.2013 |
17,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.02.2013 |
17,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.03.2013 |
17,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.04.2013 |
17,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.05.2013 |
17,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.06.2013 |
17,00р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.07.2013 |
17,00р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.08.2013 |
17,00р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.09.2013 |
16,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.10.2013 |
16,50р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.11.2013 |
17,00р. |
|||
|
Хлеб черный |
"Людиновский хлебокомбинат" |
01.12.2013 |
17,50р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.01.2013 |
16,50р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.02.2013 |
16,50р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.03.2013 |
17,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.04.2013 |
17,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.05.2013 |
16,50р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.06.2013 |
16,50р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.07.2013 |
16,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.08.2013 |
16,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.09.2013 |
16,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.10.2013 |
17,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.11.2013 |
17,00р. |
|||
|
Хлеб черный |
"Свежий хлеб" |
01.12.2013 |
17,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.01.2013 |
17,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.02.2013 |
17,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.03.2013 |
17,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.04.2013 |
17,00р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.05.2013 |
16,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.06.2013 |
6,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.07.2013 |
16,00р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.08.2013 |
16,00р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.09.2013 |
16,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.10.2013 |
16,50р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.11.2013 |
17,00р. |
|||
|
Хлеб черный |
"Орловский хлебокомбинат" |
01.12.2013 |
17,00р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
16,00р. |
||||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.02.2013 |
16,00р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.03.2013 |
16,50р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.04.2013 |
16,50р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.05.2013 |
16,50р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.06.2013 |
16,00р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.07.2013 |
15,50р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.08.2013 |
15,50р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.09.2013 |
16,00р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.10.2013 |
16,50р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.11.2013 |
17,00р. |
|||
|
Хлеб черный |
"Дятьковский хлебокомбинат" |
01.12.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.01.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.02.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.03.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.04.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.05.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.06.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.07.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.08.2013 |
16,50р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.09.2013 |
16,50р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.10.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.11.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Брянский хлебокомбинат" |
01.12.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.01.2013 |
18,00р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.02.2013 |
18,00р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.03.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.04.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.05.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.06.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.07.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.08.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.09.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.10.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.11.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Людиновский хлебокомбинат" |
01.12.2013 |
18,00р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.01.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.02.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.03.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.04.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.05.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.06.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.07.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.08.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.09.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.10.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.11.2013 |
18,00р. |
|||
|
Хлеб белый "Батон" |
"Свежий хлеб" |
01.12.2013 |
18,50р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.01.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.02.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.03.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.04.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.05.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.06.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.07.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.08.2013 |
16,50р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.09.2013 |
16,50р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.10.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.11.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Орловский хлебокомбинат" |
01.12.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.01.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.02.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.03.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.04.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.05.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.06.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.07.2013 |
16,50р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.08.2013 |
16,50р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.09.2013 |
17,00р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.10.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.11.2013 |
17,50р. |
|||
|
Хлеб белый "Батон" |
"Дятьковский хлебокомбинат" |
01.12.2013 |
18,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.01.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.02.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.03.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.04.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.05.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.06.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.07.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.08.2013 |
12,50р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.09.2013 |
12,50р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.10.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.11.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Брянский хлебокомбинат" |
01.12.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.01.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.02.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.03.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.04.2013 |
13,50р. |
|||
|
Лепешка с сыром |
01.05.2013 |
13,00р. |
||||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.06.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.07.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.08.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.09.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.10.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.11.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Людиновский хлебокомбинат" |
01.12.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.01.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.02.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.03.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.04.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.05.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.06.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.07.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.08.2013 |
12,50р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.09.2013 |
12,50р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.10.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.11.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Свежий хлеб" |
01.12.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.01.2013 |
14,00р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.02.2013 |
14,00р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.03.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.04.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.05.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.06.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.07.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.08.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.09.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.10.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.11.2013 |
14,00р. |
|||
|
Лепешка с сыром |
"Орловский хлебокомбинат" |
01.12.2013 |
14,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.01.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.02.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.03.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.04.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.05.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.06.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.07.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.08.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.09.2013 |
13,00р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.10.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.11.2013 |
13,50р. |
|||
|
Лепешка с сыром |
"Дятьковский хлебокомбинат" |
01.12.2013 |
14,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.01.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.02.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.03.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.04.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.05.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.06.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.07.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.08.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.09.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.10.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.11.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Брянский хлебокомбинат" |
01.12.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.01.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.02.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.03.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.04.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.05.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.06.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.07.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.08.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.09.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.10.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.11.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Людиновский хлебокомбинат" |
01.12.2013 |
11,00р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.01.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.02.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.03.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.04.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.05.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.06.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.07.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.08.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.09.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.10.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.11.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Свежий хлеб" |
01.12.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.01.2013 |
11,00р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.02.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.03.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.04.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.05.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.06.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.07.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.08.2013 |
10,00р. |
"Орловский хлебокомбинат" |
01.09.2013 |
10,00р. |
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.10.2013 |
10,50р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.11.2013 |
11,00р. |
|||
|
Булка с повидлом |
"Орловский хлебокомбинат" |
01.12.2013 |
11,50р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.01.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.02.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.03.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.04.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.05.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.06.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.07.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.08.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.09.2013 |
9,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.10.2013 |
9,50р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.11.2013 |
10,00р. |
|||
|
Булка с повидлом |
"Дятьковский хлебокомбинат" |
01.12.2013 |
10,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.01.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.02.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.03.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.04.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.05.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.06.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.07.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.08.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.09.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.10.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.11.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Брянский хлебокомбинат" |
01.12.2013 |
19,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.01.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.02.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.03.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.04.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.05.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.06.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.07.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.08.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.09.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.10.2013 |
19,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.11.2013 |
19,00р. |
|||
|
Плетенка с маком |
"Людиновский хлебокомбинат" |
01.12.2013 |
19,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.01.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.02.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.03.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.04.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.05.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.06.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.07.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.08.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.09.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.10.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.11.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Свежий хлеб" |
01.12.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.01.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.02.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.03.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.04.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.05.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.06.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.07.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.08.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.09.2013 |
16,50р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.10.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.11.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Орловский хлебокомбинат" |
01.12.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.01.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.02.2013 |
18,50р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.03.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.04.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.05.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.06.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.07.2013 |
17,50р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.08.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.09.2013 |
17,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.10.2013 |
18,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.11.2013 |
19,00р. |
|||
|
Плетенка с маком |
"Дятьковский хлебокомбинат" |
01.12.2013 |
19,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.01.2013 |
16,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.02.2013 |
16,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.03.2013 |
16,00р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.04.2013 |
16,00р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.05.2013 |
16,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.06.2013 |
16,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.07.2013 |
16,00р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.08.2013 |
16,00р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.09.2013 |
15,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.10.2013 |
16,00р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.11.2013 |
16,50р. |
|||
|
Струкла |
"Брянский хлебокомбинат" |
01.12.2013 |
||||
|
Струкла |
"Людиновский хлебокомбинат" |
01.01.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.02.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.03.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.04.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.05.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.06.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.07.2013 |
16,50р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.08.2013 |
16,50р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.09.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.10.2013 |
16,00р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.11.2013 |
16,50р. |
|||
|
Струкла |
"Людиновский хлебокомбинат" |
01.12.2013 |
17,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.01.2013 |
17,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.02.2013 |
17,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.03.2013 |
17,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.04.2013 |
16,50р. |
|||
|
Струкла |
"Свежий хлеб" |
01.05.2013 |
16,50р. |
|||
|
Струкла |
"Свежий хлеб" |
01.06.2013 |
16,50р. |
|||
|
Струкла |
"Свежий хлеб" |
01.07.2013 |
16,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.08.2013 |
16,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.09.2013 |
16,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.10.2013 |
15,50р. |
|||
|
Струкла |
"Свежий хлеб" |
01.11.2013 |
16,00р. |
|||
|
Струкла |
"Свежий хлеб" |
01.12.2013 |
16,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.01.2013 |
16,00р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.02.2013 |
16,00р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.03.2013 |
16,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.04.2013 |
16,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.05.2013 |
16,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.06.2013 |
17,00р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.07.2013 |
17,00р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.08.2013 |
17,00р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.09.2013 |
17,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.10.2013 |
17,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.11.2013 |
17,50р. |
|||
|
Струкла |
"Орловский хлебокомбинат" |
01.12.2013 |
17,50р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.01.2013 |
16,50р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.02.2013 |
16,50р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.03.2013 |
16,50р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.04.2013 |
16,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.05.2013 |
16,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.06.2013 |
16,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.07.2013 |
15,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.08.2013 |
15,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.09.2013 |
15,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.10.2013 |
16,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.11.2013 |
16,00р. |
|||
|
Струкла |
"Дятьковский хлебокомбинат" |
01.12.2013 |
16,50р. |
Главная формаSub CommandButton1_Click().Hide.ShowSubSub CommandButton2_Click()("Своднаятаблица").Select
Range("A3:I18").Select.ClearContents
Sheets("Таблица").Select("A1:D391").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Таблица!R1C1:R391C4", Version:=xlPivotTableVersion12).CreatePivotTable _:="Своднаятаблица!R3C1", TableName:="'СводнаяТаблица2'", _:=xlPivotTableVersion12("Своднаятаблица").Select(3, 1).SelectActiveSheet.PivotTables("'СводнаяТаблица2'").PivotFields( _
"Наименование товара")
.Orientation = xlColumnField
.Position = 1WithActiveSheet.PivotTables("'СводнаяТаблица2'").PivotFields("Период")
.Orientation = xlRowField
.Position = 1With.PivotTables("'СводнаяТаблица2'").AddDataField ActiveSheet.PivotTables _
("'СводнаяТаблица2'").PivotFields("Цена руб."), "Сумма по полю Цена руб.", xlSumActiveSheet.PivotTables("'СводнаяТаблица2'").PivotFields( _
"Сумма по полю Цена руб.")
.Caption = "Среднее по полю Цена руб."
.Function = xlAverageWith("B5:I18").Select.NumberFormat = "0.00"("A1").SelectSubSub CommandButton3_Click()("График цен").Delete("Своднаятаблица").Select.Shapes.AddChart.Select.ChartType = xl3DColumnClustered.SetSourceData Source:=Range("Своднаятаблица!$A$3:$I$18").Location Where:=xlLocationAsNewSheet, Name:="График цен"SubSub CommandButton4_Click()("Прогноз цены").Delete("Своднаятаблица").Select("A4:I18").Select.Shapes.AddChart.Select.SetSourceData Source:=Range("Своднаятаблица!$A$3:$I$18").ShowPivotChartActiveFields = True.ChartType = xlLine.ShowPivotChartActiveFields = False.Location Where:=xlLocationAsNewSheet, Name:="Прогноз цены".PlotArea.Select.SeriesCollection(1).Select.SeriesCollection(1).Trendlines.Add.SeriesCollection(1).Trendlines(1).Select.Forward = 3.DisplayEquation = True.PlotArea.Select.SeriesCollection(2).Select.SeriesCollection(2).Trendlines.Add.SeriesCollection(2).Trendlines(1).Select.Forward = 3.DisplayEquation = True.SeriesCollection(6).Select.SeriesCollection(6).Trendlines.Add.SeriesCollection(6).Trendlines(1).Select.Forward = 3.DisplayEquation = True.SeriesCollection(4).Select.SeriesCollection(4).Trendlines.Add.SeriesCollection(4).Trendlines(1).Select.Forward = 3.DisplayEquation = True.SeriesCollection(5).Select.SeriesCollection(5).Trendlines.Add.SeriesCollection(5).Trendlines(1).Select.Forward = 3.DisplayEquation = True.Axes(xlValue).MajorGridlines.Select.SeriesCollection(3).Select.SeriesCollection(3).Trendlines.Add.SeriesCollection(3).Trendlines(1).Select.Forward = 3.DisplayEquation = TrueSubSub CommandButton5_Click().Hide.ShowSubSub CommandButton6_Click().HideSub
Ввод данныхSub CommandButton1_Click()("Таблица").Select(2, 1).Select.EntireRow.Insert("Таблица").Cells(2, 1) = ComboBox3.Value("Таблица").Cells(2, 2) = ComboBox1.Value("Таблица").Cells(2, 3) = CDate(ComboBox2)("Таблица").Cells(2, 4) = CSng(TextBox2)SubSub CommandButton2_Click().Hide.ShowSubSub CommandButton3_Click().HideSubSub UserForm_Initialize().AddItem "Брянский хлебокомбинат".AddItem "Людиновский хлебокомбинат".AddItem "Свежий хлеб".AddItem "Орловский хлебокомбинат".AddItem "Дятьковский хлебокомбинат".AddItem "01.01.2013".AddItem "01.02.2013".AddItem "01.03.2013".AddItem "01.04.2013".AddItem "01.05.2013".AddItem "01.06.2013".AddItem "01.07.2013".AddItem "01.08.2013".AddItem "01.09.2013".AddItem "01.10.2013".AddItem "01.11.2013".AddItem "01.12.2013".AddItem "Струкла".AddItem "Хлеб черный".AddItem "Батон".AddItem "Лепешка с сыром".AddItem "Булка с повидлом"
ComboBox3.AddItem "Плетенка с маком"
End Sub
Оптимизационная задачаSub CommandButton1_Click()("Оптимизация").Cells(10, 1).Value = TextBox1.Value("Оптимизация").Select("C10").SelectSetCell:="$C$10", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$2:$D$7"CellRef:="$D$2:$D$7", Relation:=4, FormulaText:="целое"SetCell:="$C$10", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$2:$D$7"CellRef:="$D$2:$D$7", Relation:=3, FormulaText:="0"SetCell:="$C$10", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$2:$D$7"CellRef:="$B$10", Relation:=1, FormulaText:="$A$10"SetCell:="$C$10", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$2:$D$7"SubSub CommandButton2_Click().Hide.ShowSubSub CommandButton3_Click().Hide
End Sub