СОДЕРЖАНИЕ ВВЕДЕНИЕ 1 ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ХАРАКТЕРИСТИКА ОБЪЕКТА 2 АНАЛИЗ ИСПОЛЬЗУЕМОЙ ОБРАБОТКИ ИНФОРМАЦИИ НА ПРЕДПРИЯТИИ 3 ПОСТАНОВКА ЗАДАЧИ 3.1 Организационно-экономическая сущность задачи 3.2 Входная и выходная информация 3.3 Аппаратные и программные средства обеспечения решения задачи 4 ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ 4.1 Описание входной оперативной информации 10 4.2
Выбор метода реализации модели. Обоснование выбора 4.3 Схема алгоритма симплекс-метода 5 ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧИ 5.1 Обоснование выбора языка программирования 5.2 Описание переменных 5.3 Алгоритм решения задач 3.1 Начисление премии в виде комиссионных и дополнительной оплаты 19 5.3.2
Модель управления запасами 3.3 Определение оптимальных капиталовложений 3.4 База данных 5.4 Описание интерфейса и инструкция по работе с программой 5.5 Решение задачи-теста для симплекс-метода и отладка программы 32 ЗАКЛЮЧЕНИЕ 34 ПЕРЕЧЕНЬ СОКРАЩЕНИЙ 35 СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ 36 ПРИЛОЖЕНИЯ 37 ПРИЛОЖЕНИЕ 37 ПРИЛОЖЕНИЕ 2 38
ВВЕДЕНИЕ Задачей данной выпускной квалификационной работы является составление документа в среде Microsoft Excel включающего в себя программы, написанные на языке Microsoft Visual Basic решающие 3 поставленные задачи, а именно начисление премии в виде комиссионных и дополнительной оплаты, модель управления запасами, нахождение оптимальных капиталовложений. В пояснительной записке описаны алгоритмы решения задач, подробное описание всех макросов и модулей,
используемых в программе, другими словами приведены описания входных и выходных данных документа, описание наиболее важных переменных используемых в программе. Если говорить о среде написания программ для решения поставленных задач Microsoft Visual Basic for Application то это сочетание одного из самых простых языков программирования и всех вычислительных возможностей такой многогранной системы как Excel. С помощью VBA можно легко и быстро создавать разнообразные приложения, даже не являясь специалистом в области программирования. VBA содержит относительно мощную графическую среду, позволяющую наглядно конструировать экранные формы и управляющие элементы. В общем Visual Basic for Application позволяет с легкостью решать многие задачи. 1 ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ХАРАКТЕРИСТИКА ОБЪЕКТА Эта программа предназначена в первую очередь для распределения
капиталовложения между филиалами предприятия для получения максимальной прибыли. Подробно это можно объяснить следующим образом На предприятии существует возможность вложить максимум в 6-ть филиалов от 1 до 7 млн. руб. Вначале у бухгалтерского отдела предприятия берется ведомость математических ожиданий всех филиалов за прошедший год и строится таблица этих ожиданий. Дальше с помощью математических формул строится таблица, в которой будет приведено максимальные варианты
прибыли при разных ситуациях вложения в филиалы. По таблице видно, что максимальная прибыль имеется в размере 1,01 млн. руб. хотя максимальная прибыль может быть больше чем 1 вариант при вложении 7 млн. руб. в 6 филиалов. В третьей таблице путем совмещения информации из двух предыдущих таблиц и при помощи математических изысканий мы видим, что нужно эти 7 млн. руб. распределить следующим образом 5 млн. руб. вложить в филиалы с 1-го по 5-ый т.е. по 1 млн. руб. на каждый филиал и целых 2 млн. руб. нужно вложить
в 6-ой филиал. И только при таком распределения средств капиталовложений предприятия, оно получить наибольшую прибыль, как уже говорилось, в размере 1,01 млн. руб. 2 АНАЛИЗ ИСПОЛЬЗУЕМОЙ ОБРАБОТКИ ИНФОРМАЦИИ НА ПРЕДПРИЯТИИ На предприятии вообще не существовало программ по исследованию тех задач, которые мы описываем. Мы создали программ по учету прибыли от предприятий, вычисления максимальной и минимальной стоимости товара и вычисления премиальных выплат по разным категориям и еще много других задач. 3 ПОСТАНОВКА ЗАДАЧИ 3.1 Организационно-экономическая сущность задачи Задача носит комплексный характер и решает 3 поставленные задачи начисление премии в виде комиссионных и дополнительной оплаты, модель управления запасами, нахождение оптимальных капиталовложений. Одной из задач является оптимизация стоимости товара.
Фирма занимается производством товара с использованием комплектующих деталей. В зависимости от вида комплектующих можно выбрать различные варианты стоимости выпускаемого товара. Комплектующие детали могут закупаться на разных складах, в соответствии с фирмами, выпускающими эти детали. В соответствии с установлением оптимальной цены необходимо определить оптимальный объем капиталовложений в покупку комплектующих и продажу товара, с учетом оптимальной прибыли и оптимального объема.
3.2 Входная и выходная информация 1 Начисление премии в виде комиссионных и дополнительной оплаты Входными данными в этом типе заданий являются исходные таблицы с данными о доходах магазинов за указанные месяцы, а также сумма доходов по месяцам. В программе эти значения присваиваются различным переменным при помощи объекта WorkSheets Лист .Range Ячейка .Value Выходными данными являются премиальные, полученные в результате вычислений в соответствии с условием
задания. 2 Модель управления запасами Входными данными в задаче являются цена продажи журналов, цена покупки и издательства продавцом, и цена возврата в случае не реализации товара продавцом, также известно количество реализуемых за раз продавцом пачек, и число событий за отчетный период времени. Выходными данными в задаче являются значения максимальной прибыли и оптимального объема продаж, которые в программе выводятся при помощи диалогового окна. 3 Задача об оптимальных капиталовложениях В этой задаче входными данными являются значения мат. ожиданий прибыли как функций капиталовложений, в соответствии с условием 6 филиалов и 7 млн. руб. Выходными данными являются таблица где производится оптимальное распределение средств, когда А млн. вкладываются в 1-й и 2-й филиалы вместе, оптимальное распределение средств, когда А млн. вкладываются в 1-й,2-й и 3-й филиалы вместе, оптимальное распределение средств, когда
А млн. вкладываются в 1-й,2-й,3-й,4-й филиалы вместе, и оптимальное распределение средств, когда А млн. вкладываются в 1-й,2-й,3-й,4-й и 5-й филиалы вместе и 1-й,2-й,3-й,4-й,5-й и 6-й. Из этой таблицы находится максимальная ожидаемая прибыль в данном случае равная 1,01 млн. и оптимальные капиталовложения, из таблицы видно, сколько млн. и в какие филиалы нужно вложить 6 филиал 2 млн. 5 филиал 1 млн. 6 филиал 1 млн. 6 филиал 1 млн. 6 филиал 1 млн.
6 филиал 1 млн. 4 База данных Здесь входные данные являются выходными, т.е. что пользователь ввел то и отобразится в таблице. База данных содержит следующие поля 2 поля ввода Фамилия, имя 3 раскрывающихся списка Работа, Стаж, Рабочий день час 2 Группы по 2 флажка Кредитная карточка, заграничный Паспорт 2 группы по 2 переключателя Пол, Семейное положение 2 поля ввода со счетчиками
Возраст, Оклад, Отпуск 3.3 Аппаратные и программные средства обеспечения решения задачи Таблица 3 Характеристика ЭВМ и ПО Компьютер Операционная система Пакет обновления ОС Системная плата Тип ЦП Системная память Дисплей Видеоадаптер Монитор Хранение данных Флоппи-накопитель Дисковый накопитель Оптический дисковод Ввод Клавиатура
Мышь Периферийные устройства Принтер Microsoft Windows XP Professional Service Pack 2 Intel Celeron-A, 440 MHz 5.5 x 80 128 Мб SDRAM NVIDIA GeForce2 MXMX 400 64 Мб LG StudioWorks 575N Дисковод гибких дисков ST380011A 80 Гб, 7200 RPM, Ultra-ATA100 NEC CD-RW NR-9100A 40x10x40x CD-RW Расширенная клавиатура PS2 PCAT 101102 клавиши A4Tech PS2 Port Mouse hp deskjet 940c series Microsoft Office Excel 2003 11.5604.5703 4 ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ 4.1 Описание входной оперативной информации Структура книги Excel состоит из 8 листов 1 лист лист содержания, со 2 по 5 и с 7 по 8 включительно сами задания, а
на 6 листе находится база данных предприятия. Через меню СервисМакросРедактор Visual Basic или при нажатии AltF11 мы можем попасть в Редактор Visual Basic, где находятся формы и модули нашей программы В UserForm1 находится форма базы данных работников компании. В UserForm2 находится 1-ая форма модели управления запасами, а именно ввод данных.
В UserForm3 находится 2-ая форма модели управления запасами, а именно результаты вычислений. В Модуле 1 находится текст первого листа, этот текст активирует содержание. В Модуле 2 находится текст заданий начисление премии в виде комиссионных и дополнительной оплаты, нахождение оптимальных капиталовложениях и база данных. В Модуле 3 находится текст задания модель управления запасами. 4.2 Выбор метода реализации модели. Обоснование выбора
Пусть мы имеем случай, когда ранг системы меньше числа неизвестных тогда выберем k переменных в качестве свободных элементов Х1,Х2,Хk, а остальные базисные выразим через свободные элементы. Прировняем к 0 свободные элементы Х10, Х20, Хк0 получим решение Если все значения в не отрицательна то мы получим допустимое решение, такое решение называется опорным. Нам надо выяснить будет ли оно оптимальным чтобы проверить это подставим свободные переменные в функцию
L получим При Х1 Х2 0 получим Lj0 Надо выяснить можно улучшить полученное решение, то есть уменьшить L увеличивая какую ни будь переменную Х1,Х2Хn Может быть два случая 1 Если все коэффициенты J1,J2Jk положительно то мы не сможем уменьшить L и найденное решение будет оптимальным. 2 Если среди коэффициентов J1,J2Jk есть отрицательный элемент то увеличивая при нем Х мы можем улучшить L. Идея симплекс метода заключается в переборе всех допустимых решений и в нахождении такого базисного решения, чтобы значения переменных было оптимальным, то есть последнее будет переходить от одного опорного решения к другому, путем исключения переменных из базисных и переводя их в свободные переменные улучшая каждое следующее опорное решение и достигая оптимального решения. Таблица 1 Свободный членX1 X2 X3 X4Y1B1б 11б 12б 13б 14Y 2B2б 21б 22б 23б 24Y 3B3б 31б 32б 33б 34Y 4B4б 41б 42б 43б 44Y 5B5б 51б 52б 53б 54
Выполняя операцию X2 – Y3, мы хотим в разрешающей строке поместить переменную Y3, а в разрешающем столбце переменную X2 это отмечено в таблице 1. Найдем коэффициенты, которые нужно будет представить в таблице после обмена X2 – Y3. начнем с преобразования разрешающей строки. Решая уравнение относительно Х2, получим Таким образом, преобразованные элементы разрешающей строки
найдены. Составим правило преобразования остальных строк. После приведения членов получим Нетрудно убедится, что совершенно аналогичным образом преобразовываются все остальные строки. В результате мы получим преобразованную таблицу смотри таблицу 3, в которой операция X2 – Y3 уже совершенна. Рассмотрев таблицу 2, мы можем так сформулировать алгоритм преобразования коэффициентов стандартной таблицы. 1 Разрешающий элемент заменяется на обратную ему величину.
2 Все остальные элементы разрешающей строки делятся на разрешающий элемент. 3 Все элементы разрешающего столбца кроме самого разрешающего элемента меняют знак и делятся на разрешающий элемент. 4 Каждый из остальных элементов подвергается следующему преобразованию к нему прибавляется произведение элемента, состоявшего в прежней разрешающей строке на том же месте по порядку то есть в том же столбце, на элемент, стоящий в новом разрешающем столбце на соответствующем месте то есть в той же строке, что и элемент. Таблица 2 Свободный членX1Y3X3X4Y Y X Y Y Рассмотрев таблицу 2, мы можем так сформулировать алгоритм преобразования коэффициентов стандартной таблицы. 5 Разрешающий элемент заменяется на обратную ему величину. 6 Все остальные элементы разрешающей строки делятся на разрешающий элемент. 7 Все элементы разрешающего столбца кроме самого разрешающего элемента меняют знак и делятся на разрешающий
элемент. 8 Каждый из остальных элементов подвергается следующему преобразованию к нему прибавляется произведение элемента, состоявшего в прежней разрешающей строке на том же месте по порядку то есть в том же столбце, на элемент, стоящий в новом разрешающем столбце на соответствующем месте то есть в той же строке, что и элемент. Алгоритм преобразования Xj – Yi стандартной таблицы сводится при этом к следующим операциям.
1 Выделить в таблице разрешающий элемент бij. Вычислить его обратную величину л1 бij и записать в нижней части той же ячейки в правом нижнем углу. 2 Все элементы разрешающей строки кроме самого бij умножить на л результат записать в нижней части той же ячейки. 3 Все элементы разрешающего столбца кроме самого бij умножить на л результат записать в нижней части той же ячейки. 4 Подчеркнуть или выделить любым другим способом в разрешающей строке все верхние числа
старые элементы, за исключением самого разрешающего элемента ячейки, а в разрешающем столбце все нижние числа новые элементы, за исключением самого разрешающего элемента. 5 Для каждого из элементов, не принадлежащих ни к разрешающей строке, ни к разрешающему столбцу, записать в нижнюю часть ячейки произведение выделенных чисел, стоящих в том же столбце и в той же строке, что и данный элемент. 6 Переписать таблицу, заменив Xj на Yi и обратно, Элементы разрешающей строки и столбца числами, стоящими в нижних частях той же ячейки, Каждый из остальных элементов заменить суммой чисел стоящих в верхней и нижней части той же ячейки. В задаче линейного программирования, кроме уравнений-ограничений, существует еще и линейная функция которую нужно минимизировать. Если эта функция выражена через прежние свободные переменные X1,X2 Xn, то, очевидно, после замены Xj – Yi ее нужно выразить через новые свободные переменные
X1, X2 Xj-1, Yi, Xj1 Xn. Нетрудно убедится, что для этого может быть применен тот же алгоритм, что и для преобразования любой строки стандартной таблицы. Приводя L к стандартной форме , где Y1 – c1 Y2 – c2 Yn -cn мы получим еще одну строку стандартной таблицы, которая отличается от остальных только тем, что в ней никогда не выбирается разрешающий элемент. С помощью табличного обмена переменных в уравнениях
ЗЛП можно решить любую задачу линейного программирования. Нахождение решения каждой задачи линейного программирования распадается на два этапа Отыскание опорного решения Отыскание оптимального решения, минимизирующего линейную функцию L. отыскАние опорного решения основной задачи линейного программирования. Пусть имеется ОЗЛП с ограничениями равенствами, записанными в стандартной форме 1 обращение в тексте
В каждой вершине опорного решения, по крайней мере, n переменных должны обращаться в нуль. Попробуем получить опорное решение, пологая в формулах 1 все свободные переменные равными нулю. Имеем X1 X2 Xn 0 Y1 b1 Y2 b2 Ym bm. Нужно так обменивать местами базисные и свободные переменные, чтобы эта процедура приближала нас к границе опорного решения, а не удаляла нее, то есть, чтобы число отрицательных свободных членов с каждым шагом убывало, или, если число отрицательных свободных членов остается прежним, то, по крайней мере, убывали их абсолютные величины. Существует ряд способов выбора разрешающего элемента для приближения к опорному решению. отыскание оптимального решения основной задачи линейного программирования. озлп в предыдущем разделе искали опорное решение системы уравнений ОЗЛП. Теперь мы будем заниматься оптимизацией решения, то есть отысканием такого опорного решения, которое обращает в минимум линейную функцию.
Увеличение переменной, соответствующий данному столбцу, уменьшает линейную функцию L и не может сделать ни одной из базисных переменных отрицательной, значит, ничто не препятствует неограниченному уменьшению функции L. Правила нахождения оптимального решения ОЗЛП симплекс методом. 1. если все свободные члены в симплекс таблице не отрицательны, а в строке L нет ни одного положительного элемента, то оптимальное решение достигнуто.
2. если в строке L есть положительный элемент, а в столбце, соответствующее ему, нет ни одного положительного элемента, то линейная функция L не ограничена с низу, и оптимального решения не существует. 3. если в этом столбце есть положительные элементы, то следует произвести одной из свободных переменных на одну из базисных, причем в качестве разрешающего надо взять тот элемент этого столбца, для которого отношение к нему соответствующего свободного члена минимально.
В заключении остановимся на так называемом вырожденном случае, когда один или более свободных членов в уравнениях-ограничениях получается равным нулю. Это означает, что в данном опорном решении обращаются в нуль не только свободные переменные, но и некоторые из базисных. 4.3 Схема алгоритма симплекс-метода 5 ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ ЗАДАЧИ 5.1 Обоснование выбора языка программирования VB никогда не проектировался как язык, заменяющий такие системные языки, как Cи С. Он предназначен прежде всего как язык управления объектами, которые создаются на C. Пример тому, ядро DBEngine – выполено на C. Hо эксплуатация его производится в VB. На мой взгляд очень сильное преимущество VB в его, скажем так, распространенности или стандартизованности. VB доступен во всех офисных приложениях, а также в некоторых других продуктах.
В том числе имеются реализации VB очень похожие на VBA, но все таки не VBA Например, RoseScript или RoseBasic встроенный в Rational Rose, который переносится практически один-в-один на VB. То есть этого стандарта придерживаются разработчики клонов Бейсика. Таким образом, зная VB мне, как разработчику, не составит труда написать приложение для автоматизации
офисного продукта или продукта для разработки, написать продвинутый батник на VBScript, а при необходимости легко перенести написанный код в другую программу, либо в готовое приложение. Кроме того, подобная универсальность позволяет практически любому программисту разобраться в моем коде, внести изменения. Следующим очень важным преимуществом VB я считаю его родство с технологией COM. На VB проще всего писать полноценные
COM-компоненты. Как следствие, на VB очень просто писать масштабируемые приложения При необходимости, класс легко выносится в отдельный компонент, компонент легко переносится на другой компьютер DCOM или на сервер компонентов MTS и т.д. и т.п. Причем все это не требует модификации собственно кода. Также на VB удобно создавать макеты приложений, библиотек, которые потом будут перенесены на
C – удобные средства отладки, более-менее устойчивый интерфейс Ввиду специфики языка VB – отсутствие указателей, ссылок и пр присутствующих в ObjectPascal Delphi и CC, программист на VB может больше времени уделять непосредственно разработке бизнес процессов приложения, не задумываясь о динамическом распределении памяти, передаче параметров по ссылкам и пр что отнимает кучу времени при программировании на других языках и порождает такую же кучу ошибок, которые приходится потом вылавливать. Я не имею ввиду, что ошибки обязательно есть, некоторые умеют писать вовсе без них, я имею ввиду, что один и тот же человек прогрммируя на VB сделает гораздо меньше ошибок связанных с перечисленным выше, чем если он будет писать программу на Delphi или C. 5.2 Описание переменных 1 Начисление премии в виде комиссионных и дополнительной оплаты
MAS13 массив из 3-х элементов в который заносятся значения доходов магазинов за указанные месяцы MAS23 массив в который заносятся доходы только тех магазинов доход которых превышает 1490,00 руб. MASI13 массив индексов B,C,D – вспомогательные переменные I переменная цикла Max переменная при помощи которой находится максимальное значение в массиве доходовсначала этой переменной специально присваивается очень маленькое значение
Indm, Indm2, Indm3 индексы элементов массива которые являются максимумами если исключить предыдущий найденный максимум, например сначала максимумом является Indm, затем находится максимум из оставшихся и т.д. 2 Модель управления запасами Функция пользователя CALC вычисляющая финансовые исходы при всевозможных вариантах событий покупки журналов и их реализации.
В ф-ции используются следующие переменные Ценапокупки, Ценапродажи, ЦенаВозврата i,j переменные циклов. NROWS,ROWS переменные типа Integer. Res массив того же типа переменной длины. 3 Задача об оптимальных капиталовложениях К переменная типа Integer, отвечает за количество капиталовложений в млн. руб.
R массив переменной длины, в программе используется как прибыль от вложения i млр. в j-тый филиал, где в Ri,j – i1 7, а j1 6 I,j,p переменные циклов. 4 База данных i переменная цикла используется в добавлении записей в БД при поиске пустого поля l1 метка на которую ссылается оператор Goto В программе происходит переход на метку в том случае если при заполнении данных пользователь забыл ввести фамилию, по которой в программе определяется, пуста запись или нет. 5.3 Алгоритм решения задач 5.3.1 Начисление премии в виде комиссионных и дополнительной оплаты Создаем таблицу начисления премий, в ячейки B4D10 заносим значения доходов магазинов за указанные месяцы, сбоку в ячейках A4A10 будут располагаться названия месяцев, согласно варианту с ноября по май, а в B3D3 магазины, таким образом на пересечении будет показана величина дохода магазина который находится
в этом столбце и месяца который расположен в этой строке. В ячейке B11 считаем доход 1-го магазина за все месяцы по формуле СУММB4B10, и растягиваем маркер чертежа до ячейки D10, таким образом производится подсчет доходов всех магазинов за все месяцы. Определяем какие же из доходов магазинов превышают 1490.00 руб для которых входят в это число премиальные будут составлять в соответствии с условием 2 от дохода за эти месяцы,
остальные элементы в массиве специально заполняются нулями. Do k mas1i If k 1490 Then mas2i mas1i Else mas2i 0 i i 1 Loop Until i 4 В этом цикле в массив заносятся только те значения которые превышают заданное по условию значение допустимости, в данном случае это 1490,00 руб. Теперь доходы среди оставшихся магазинов нужно распределить по убыванию, для того, чтобы в соответствии
с условием начислить магазинам дополнительные премиальные за 1-е, 2-е, 3-е место. Для этого выбираем следующий алгоритм находим максимум среди этих доходов и назначаем этому магазину соответствующую 1-му месту премию, затем выбираем максимум из доходов не учитывая уже существующий т.е. не учитывая первый максимум, и назначает этому магазину соотв. 2-му месту премию и т.д. Do i i 1 If mas2i Max Then Max mas2i indm i End If Loop Until i 3 Складываем полученные 2 с теми, что начисляются дополнительно за 1,2,3 и т.д. места, и заносим результаты в таблицу в строку Премиальные Worksheetsлист.Cellsкоординаты ячеек.Value Max 0.02 Max 0.04 МесяцМ а г а з и н ы123Ноябрь100100120Декабрь300150650Январ ь1000130250Февраль100012050Март0100760Ап рель1001000Май310600500Всего281013002330 Премиальные168,6093,2 5.3.2
Модель управления запасами Вводим исходные значения, т.е. значения покупки продавцом журналов, продажи этих журналов и возврата в типографию в случае не реализации товара. Ввод всего этого производится в диалоговом окне, которое создается как UserForm со специальными кнопками и полями ввода покупки журналов, продажи, и возврата в типографию. Окно ввода выглядит в соответствии с рисунком 1. Рисунок 1
Окно Ввод данных Составляем таблицу состоящую из объема реализации, числа событий, и вероятности этих событий, первые два нам даны по условию а вероятность этих событий нужно посчитать. Вводим в ячейку D7 следующую формулу вычисления вероятностей D6СУММD5I5 и растягиваем маркер до ячейки I7. В ячейках C10H15 с помощью функции пользователя CALC Вычисляем финансовые исходы при всевозможных вариантах событий
покупки журналов и их реализации Function CALCbuy As Variant As Variant Dim Ценапродажи, Ценапокупки, Ценавозврата, NRows, i, j As Integer, Result As Integer NRows buy.Rows.Count Ценапродажы Rangea2.Value Ценапокупки Rangeb2.Value Ценавозврата Rangec2.Value ReDim ResultNRows, NRows
For i 1 To NRows For j 1 To NRows If i j Then Resulti, j buyi Ценапродажы – Ценапокупки If i j Then Resulti, j buyj Ценапродажы – Ценапокупки – buyi – buyj Ценапокупки – Ценавозврата Next j Next i CALC Result End Function В ячейках J11J16 с помощью формулы МУМНОЖC10H15ТРАНСПD7I7 находим ожидаемую прибыль, соответствующую различным вариантам покупки журналов. В ячейке F16 с помощью формулы НАИБОЛЬШИЙJ11J161 вычисляем максимальную прибыль . Ее также можно найти воспользовавшись функцией МАКС, находящей максимальный элемент из списка МаксJ11J16 В ячейке F17 по формуле ПОИСКПОЗНАИБОЛЬШИЙJ11J161J11J160-15 соответствующий оптимальный объем покупок газет. Затем функция CALC выводит эти оптимальные значения в окне сообщений.
Функция наибольший возвращает К-е наибольшее значение из множества данных . Эта функция используется для того чтобы выбрать значение по его относительному местоположению. Например, функцию НАИБОЛЬШИЙ можно использовать для того чтобы определить наилучший, второй, третий результат в балах, показанный при тестировании. Синтаксис программы такой НАИБОЛЬШИЙ массив К где Массив это массив или диапазон ячеек где определяется наибольшее значение, к
позиция начиная с наибольшей в массиве или диапазоне. Все результаты занесенные в таблицу будут выглядеть следующим образом П р о д а ж аП048121418о0ПокупкаПрибыльк40 – р. у80-20161616164 – р. п120-40-43232328 12,94р. к140-60-2412484812 16,88р. а180-70-342385614 9,00р. Максимальная прибыль 16,88р. 18 0,28р. Оптимальный объем15 5.3.3 Определение оптимальных капиталовложений
Создам исходную таблицу и заполняем ее мат. ожиданиями прибылей в соответствии с условием. Ф и л и а л ыМмлн. руб.123456010,110,120,180,20,170,1220,11 0,130,180,220,170,2330,120,130,190,240,1 80,2440,120,130,190,260,180,2450,130,130 ,20,290,190,2560,130,130,20,310,190,2570 ,140,130,20,330,20,26 Для дальнейшего решения задачи, вводим следующие обозначения Пусть Ri,j прибыль получаемая от вложения i млн. руб.
В j-тый филиал, где в соотв. С вариантом i от 0,7, а j от 0,6 FA,1,2 оптимальное распределение средств, когда А млн. руб. вкладываются в 1,2 филиалы вместе FA,1,2,3 оптимальное распределение средств, когда А млн. руб. вкладываются в 1,2,3 филиалы вместе FA,1,2,3,4 оптимальное распределение средств, когда А млн. руб. вкладываются в 1,2,3,4 филиалы вместе. FA,1,2,3,4,5 оптимальное распределение средств, когда А млн. руб. вкладываются в 1,2,3,4,5 филиалы вместе. FA,1,2,3,4,5,6 оптимальное распределение средств, когда А млн. руб. вкладываются в 1,2,3,4,5 филиалы вместе. Значения I при которых достигается максимум определяют оптимальные капиталовложения в филиалы.
Максимальные значения ожидаемых прибылей вычисляется в программе и заносится в ячейки H4L11 и будет выглядеть следующим образом М а к с и м у м ы1 и 21,2 и 31,2,3 и 41,2,3,4 и 51,2,3,4,5 и 60,120,180,20,20,20,230,30,380,380,380,2 40,410,50,550,550,240,420,610,670,670,25 0,420,630,780,790,250,430,650,80,90,260, 430,670,821,01 В программе переменной К присваиваем значение равное объему капиталовложений. В массив R с рабочего листа капиталовложения вводим ожидаемую прибыль , распределенную по филиалам.
В диапазон ячеек B14K22 выводится оптимальное распределение капиталовложений по филиалам. После вычислений можно увидеть что максимальная ожидаемая прибыль составляет 1,01 млн. руб из таблицы видны следующие результаты 6 филиал 2 млн. 5 филиал 1 млн. 4 филиал 1 млн. 3 филиал 1 млн. 2 филиал 1 млн. 1 филиал 1 млн. Сама таблица выглядит следующим образом Ф и л и а л ы
Млн. руб.121,231,2,341,2,3 и 451,2,3,4 и 56 5.3.4 База данных Создадим поля базы данных, и занесем их в таблицу. База данных будет заполняться программой, программе не требуются названия полей, но для облегчения ориентации в первой строке введем данные, соответствующие полям БД Создадим кнопку Добавление для добавления записей в
БД, делается это так Вызываем панель инструментов, на которой расположены примитивы, т.е. окна ввода, кнопки и т.д. Создаем на форме кнопку, и с помощью свойства Caption присваиваем ей название Добавление Создадим макрос, который будет отвечать за обработку событий по нажатию этой кнопки. Перейдем в среду Visual Basic for Application и в меню Вставка выберем UserForm, на эту форму и поместим все объекты, оговоренные в условииm раскрывающихся списков, n полей ввода, В макросе, отвечающем за событие кнопки Добавление введем процедуру, которая будет активизировать форму UserForm1, и заносить все данные из окна ввода в ячейки листа A4L4, A5L5 и т.д. По нажатию кнопки OK выполнится следующий код программы. Окно ввода показано в соответствии с рисунком 2. Рисунок 2 окно
База данных работников компании 5.4 Описание интерфейса и инструкция по работе с программой Для работы с этой программой нужно прочитать инструкцию. Для того чтобы открыть эту программу необходимо запустить Прога.xls. Справка находится в файле Диплом.doc. 1 Начисление премии в виде комиссионных и дополнительной оплаты
Чтобы перейти на эту задачу щелкните на кнопке, как показано на рисунке 3 Рисунок 3 Главное меню после того, как нажмете кнопку модель начисление премии в виде комиссионных и дополнительной оплаты, необходимо оставить данные по месяцам прибыли 3-х магазинов или ввести новые, как показано на рисунке 4 Рисунок 4 окно Ввод данных После ввода значений в строки, нажмите на кнопку Вычислить и программа сама посчитает премиальные, как
показано на рисунке 5. Рисунок 5 окно Результаты 2 Модель управления запасами Чтобы перейти на эту задачу щелкните на кнопке, как показано на рисунке 6 Рисунок 6 Главное меню после того, как нажмете кнопку модель управления запасами, необходимо нажать на кнопку Вычислить, как показано на рисунке 7 Рисунок 7 окно Ввод данных После ввода значений в окно Ввод данных, нажмите на кнопку
Ok и программа сама посчитает максимальную прибыль и оптимальный объем и выведет это все в окне Результаты, как показано на рисунке 8. Рисунок 8 окно Результаты 3 Нахождение оптимальных капиталовложений Чтобы перейти на эту задачу щелкните на кнопке, как показано на рисунке 9 Рисунок 9 Главное меню после того, как нажмете кнопку нахождение оптимальных капиталовложений, необходимо оставить данные по математическим ожиданиям в 6-ти филиалах предприятия по производству быстрого питания или ввести новые значения не могут быть больше 0.5, как показано на рисунке 10 Рисунок 10 окно Ввод данных После ввода значений в строки, нажмите на кнопку Вычислить и программа сама посчитает ожидаемую прибыль в каждом из филиалов, как показано на рисунке 11. Рисунок 11 окно Результаты 4 База данных Чтобы перейти на эту задачу щелкните на кнопке, как показано
на рисунке 12 Рисунок 12 Главное меню после того, как нажмете кнопку база данных, нужно нажать кнопку Добавление и вбить необходимые данные в окно, как показано на рисунке 13 Рисунок 13 окно Ввод данных После ввода значений следует нажать на кнопку OK и вся информация добавиться в таблицу, как показано на рисунке 14. Рисунок 14 окно Результаты 5.5 Решение задачи-теста для симплекс-метода и отладка программы
L L 0- СвX1X2L085-32-80Y11205000Y2410410Y32045- 16-40 СвY2X2L-32-85-44-1Y11205-44-1X1410000Y34 -4545-4515 СвY2X2L-36-4-1Y184-1X1410Y345-4515 MIN -36 Решив задачу, я получил одинаковые решения, однако одно условие в ручном способе было не учтено, человек округлял, поэтому на персональном компьютере ответы получились намного точнее до 0,0001. Также решение на персональном компьютере было проще и меньше затрачено времени,
в отличие от ручного варианта. Но как не крути, а вручную всегда приходится проверять, нельзя доверять полностью машине. Персональный компьютер хоть и умен, но программируем мы его, а значит, могут возникнуть ошибку, которые нам предстоит исправить. ЗАКЛЮЧЕНИЕ В данной работе я попытался, как можно сильнее упростить и уменьшить затраты времени для решения симплекс-метода. Для решения данной задачи была использована среда Microsoft Visual Basic Application 6.4.8869. Подведя итог, можно сделать вывод, что программа, созданная на VBA и решающая цель оптимального капиталовложения удобна, не сложна и эффективна при вычислении сложных расчетов. В полную силу эта программа может проявить себя при решении очень важных и сложных задач финансового плана, автоматизации производства, а также при оформлении каких-либо отчетностей и ведомостей. Описанную постановку задачи я выполнил в полном объеме.
ПЕРЕЧЕНЬ СОКРАЩЕНИЙ OC операционная система ПЭВМ персональная электронно-вычислительная машина ИБП источник бесперебойного питания ПК персональный компьютер ЭВМ электронная вычислительная машина ПО программное обеспечение Basic Microsoft Visual Basic VBA Visual Basic Application СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ 1. А. Гарнаев. Использование
MS Excel и VBA в экономике и финансах. 2. С. Браун, Visual Basic 5.0 с самого начала, Москва 1999, издательство Питер. 3. Microsoft Visual Basic on-Line HELP. ПРИЛОЖЕНИЯ ПРИЛОЖЕНИЕ 1 Блок-схема модели управления запасами ПРИЛОЖЕНИЕ 2 Листинг программы на языке Visual Basic
Application Модуль 1 Sub ReturnToMainMenu WorksheetsСодержание.Activate End Sub Модуль 2 Sub Task1 WorksheetsЗадание1.Activate End Sub Sub Task2 WorksheetsЗадание2.Activate End Sub Sub Task3 WorksheetsЗадание3.Activate End Sub Sub Task4 WorksheetsЗадание4.Activate End Sub Sub Task1Evrica
Dim Max As Long Dim mas13 As Integer Dim mas23 As Integer Dim MasI13 As Integer Dim B As Integer Dim c As Integer Dim D As Integer Dim k As Integer Dim indm As Integer Dim i As Integer Dim l As Integer Dim indm2 As Integer Dim indm3 As Integer B WorksheetsЗадание1.RangeB11.Value c
WorksheetsЗадание1.RangeC11.Value D WorksheetsЗадание1.RangeD11.Value mas11 B mas12 c mas13 D i 1 l 0 Do k mas1i Занесение в массив Mas2 эл-тов 1490 If k 1490 Then mas2i mas1i Else mas2i 0 i i 1 Loop Until i 4 Max -1 i 0 Do i i 1 If mas2i Max Then Max mas2i indm i End If Loop Until i 3 WorksheetsЗадание1.Cells12, indm 1.Value Max 0.02 Max 0.04 WorksheetsЗадание1.Rangef15.Value r GoTo l Находим MAx эл-т из оставшихся, и запоминаем его индеск Max -1 i 0 Do i i 1 If i indm And mas2i Max Then Max mas2i indm2 i End If Loop Until i 3 WorksheetsЗадание1.Cells12, indm2 1.Value Max 0.02 Max 0.02 Находим MAx эл-т из оставшихся, и запоминаем его индеск
Max -1 i 0 Do i i 1 If mas2i Max And i indm2 And i indm Then Max mas2i indm3 i End If Loop Until i 3 WorksheetsЗадание1.Cells12, indm3 1.Value Max 0.02 Max 0.01 End Sub Sub Task2Evrica Dim AA13 As Integer Dim B As Integer Dim c As Integer Dim D As Integer Dim i As Integer B WorksheetsЗадание2.RangeB11.Value c
WorksheetsЗадание2.RangeC11.Value D WorksheetsЗадание2.RangeD11.Value AA11 B AA12 c AA13 D i 0 Do i i 1 If AA1i 700 Then WorksheetsЗадание2.Cells12, i 1.Value WorksheetsЗадание2.Cells11, i 1.Value 0.01 If AA1i 700 And AA1i 1400 Then WorksheetsЗадание2.Cells12, i 1.Value WorksheetsЗадание2.Cells11, i 1.Value 0.015 If AA1i 1400
And AA1i 2800 Then WorksheetsЗадание2.Cells12, i 1.Value WorksheetsЗадание2.Cells11, i 1.Value 0.023 If AA1i 2800 Then WorksheetsЗадание2.Cells12, i 1.Value WorksheetsЗадание2.Cells11, i 1.Value 0.025 Loop Until i 3 End Sub Sub Task3Evrica Dim AA210 As Integer Dim i As Integer Dim Max As Long Dim Min As
Long Dim MM110 As Integer Dim MM210 As Integer Dim MM310 As Integer Dim MM410 As Integer Dim MM510 As Integer Dim MM610 As Integer Dim MM710 As Integer Dim MM810 As Integer Dim MM910 As Integer Dim mm As Integer Dim mm2 As Integer Dim x As Integer Dim x1 As Integer
Dim x2 As Integer Dim x3 As Integer Dim x4 As Integer Dim x5 As Integer Dim x6 As Integer Dim x7 As Integer Dim x8 As Integer Dim x9 As Integer WorksheetsЗадание3.RangeI3I12.Clear WorksheetsЗадание3.Rangeb3h12.Font.Bold False WorksheetsЗадание3.Rangeb3h12.Font.Size 10 WorksheetsЗадание3.Rangeb3h12.Font.Itali c False i 0 Do i i 1 AA2i WorksheetsЗадание3.Cellsi 2, 7.Value Loop Until i 9 Max -1 i 0 Do i i 1 If AA2i Max Then Max AA2i mm i WorksheetsЗадание3.RangeH3H11.Clear End If Loop Until i 9 WorksheetsЗадание3.Cellsmm 2, 8.Value Макс. Цена на товар Min 10 i 0 Do i i 1 If AA2i Min
Then Min AA2i mm2 i End If Loop Until i 9 WorksheetsЗадание3.Cellsmm2 2, 8.Value Миним. Цена на товар i 0 Do i i 1 MM1i WorksheetsЗадание3.Cellsi 2, 2.Value MM2i WorksheetsЗадание3.Cellsi 2, 3.Value MM3i WorksheetsЗадание3.Cellsi 2, 4.Value MM4i WorksheetsЗадание3.Cellsi 2, 5.Value MM5i WorksheetsЗадание3.Cellsi 2, 6.Value Loop Until i 9 1 Min 10 i 0 Do i i 1 If MM1i Min Then
Min MM1i x1 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx1 2, 2.Font.Bold True WorksheetsЗадание3.Cellsx1 2, 2.Font.Size 11 WorksheetsЗадание3.Cellsx1 2, 2.Font.Italic True 2 Min 10 i 0 Do i i 1 If MM2i Min Then Min MM2i x2 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx2 2, 3.Font.
Bold True WorksheetsЗадание3.Cellsx2 2, 3.Font.Size 11 WorksheetsЗадание3.Cellsx2 2, 3.Font.Italic True 3 Min 10 i 0 Do i i 1 If MM3i Min Then Min MM3i x3 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx3 2, 4.Font.Bold True WorksheetsЗадание3.Cellsx3 2, 4.Font.Size 11
WorksheetsЗадание3.Cellsx3 2, 4.Font.Italic True 4 Min 10 i 0 Do i i 1 If MM4i Min Then Min MM4i x4 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx4 2, 5.Font.Bold True WorksheetsЗадание3.Cellsx4 2, 5.Font.Size 11 WorksheetsЗадание3.Cellsx4 2, 5.Font.Italic True 5
Min 10 i 0 Do i i 1 If MM5i Min Then Min MM5i x5 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx5 2, 6.Font.Bold True WorksheetsЗадание3.Cellsx5 2, 6.Font.Size 11 WorksheetsЗадание3.Cellsx5 2, 6.Font.Italic True 6 Min 10 i 0 Do i i 1 If MM6i Min Then Min MM6i x6 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx6 2, 7.Font.Bold True WorksheetsЗадание3.Cellsx6 2, 7.Font.Size 11 WorksheetsЗадание3.Cellsx6 2, 7.Font.Italic True 7 Min 10 i 0 Do i i 1 If MM7i Min Then Min MM7i x7 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx7 2, 8.Font.
Bold True WorksheetsЗадание3.Cellsx7 2, 8.Font.Size 11 WorksheetsЗадание3.Cellsx7 2, 8.Font.Italic True 8 Min 10 i 0 Do i i 1 If MM8i Min Then Min MM8i x8 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx8 2, 9.Font.Bold True WorksheetsЗадание3.Cellsx8 2, 9.Font.Size 11
WorksheetsЗадание3.Cellsx8 2, 9.Font.Italic True 9 Min 10 i 0 Do i i 1 If MM9i Min Then Min MM9i x9 i End If Loop Until i 9 WorksheetsЗадание3.Cellsx9 2, 10.Font.Bold True WorksheetsЗадание3.Cellsx9 2, 10.Font.Size 11 WorksheetsЗадание3.Cellsx9 2, 10.Font.Italic True End
Sub Sub Task5 WorksheetsЗадание5.Activate End Sub Sub Task6 WorksheetsЗадание5.Activate End Sub Sub Task5Evrica Dim G4, 4 Dim c4 Dim i As Integer Dim j As Integer c1 WorksheetsЗадание5.Rangea1 c2 WorksheetsЗадание5.Rangeb1 c3 WorksheetsЗадание5.Rangec1 c4 WorksheetsЗадание5.Ranged1
WorksheetsЗадание5.Rangea3d6.Value For i 1 To 4 For j 1 To 4 If i j 1 Then Gi, j ci Coscj 2 If i j 1 Then Gi, j Absci – j 3 – ci Next Next For i 1 To 4 For j 1 To 4 WorksheetsЗадание5.Cellsi 2, j.Value Gi, j Next Next End Sub Sub Task6Evrica Dim i As Integer Dim m As Integer
Dim s As Integer Dim s1 As Integer Dim s2 As Integer Dim s3 As Integer Dim x4 Dim Y4 x1 WorksheetsЗадание5.Rangea12 x2 WorksheetsЗадание5.Rangea13 x3 WorksheetsЗадание5.Rangea14 x4 WorksheetsЗадание5.Rangea15 Y1 WorksheetsЗадание5.Rangeb12 Y2 WorksheetsЗадание5.Rangeb13 Y3 WorksheetsЗадание5.Rangeb14 Y4 WorksheetsЗадание5.Rangeb15 s1 0 s2 0 s3 0 m 4 For i 1 To m s1 s1 xi s2 s2 xi Yi s3 s3 xi xi Next s 2 s1 s2 2 – s1 3 s3 WorksheetsЗадание5.RangeD15.Value s End Sub Sub Task7 WorksheetsРаскрой.Activate End Sub Sub Task7DB UserForm1.ComboBox1.Clear UserForm1.ComboBox2.Clear UserForm1.ComboBox3.Clear
UserForm1.ComboBox1.AddItem Директор UserForm1.ComboBox1.AddItem Зам. директора UserForm1.ComboBox1.AddItem Менеджер UserForm1.ComboBox1.AddItem Сектетарь UserForm1.ComboBox1.AddItem Администратор UserForm1.ComboBox1.AddItem Охрана UserForm1.ComboBox1.AddItem Водитель UserForm1.ComboBox1.AddItem Сторож UserForm1.ComboBox1.AddItem
Уборщик UserForm1.ComboBox2.AddItem 10 лет. UserForm1.ComboBox2.AddItem 9 лет. UserForm1.ComboBox2.AddItem 8 лет. UserForm1.ComboBox2.AddItem 3 года. UserForm1.ComboBox2.AddItem 2 года. UserForm1.ComboBox2.AddItem 1 год. UserForm1.ComboBox2.AddItem меньше года. UserForm1.ComboBox3.AddItem 5 часов UserForm1.ComboBox3.AddItem 6 часов UserForm1.ComboBox3.AddItem 7 часов
UserForm1.ComboBox3.AddItem 8 часов UserForm1.Show End Sub Sub Task7List WorksheetsБД.Activate End Sub Sub Modelofstorekeeping UserForm2.Show End Sub Модуль 3 ption Explicit МОДЕЛЬ УПРАВЛЕНИЯ ЗАПАСАМИ Function CALCbuy As Variant As Variant Dim Ценапродажы, Ценапокупки,
Ценавозврата, NRows, i, j As Integer, Result As Integer NRows buy.Rows.Count Ценапродажы Rangea2.Value Ценапокупки Rangeb2.Value Ценавозврата Rangec2.Value ReDim ResultNRows, NRows For i 1 To NRows For j 1 To NRows If i j Then Resulti, j buyi Ценапродажы – Ценапокупки If i j Then
Resulti, j buyj Ценапродажы – Ценапокупки – buyi – buyj Ценапокупки – Ценавозврата Next j Next i CALC Result End Function Sub Begin WorksheetsСодержание.Activate End Sub Sub OptimumcapitalinvestmentsEVR Dim i, j, k, n, p, l, t As Integer Dim m, r, A As Double k 7 ReDim rk 1, 6, Ak 1 For i 1 To k 1 For j 2 To 7 ri, j – 1 Cellsi 3, j.Value Next j Next i t 2 For p 2 To 6 If p 2 Then For j 1 To k 1 Aj Cellsj 3, 2.Value Next j End If If p 2 Then For j 1 To k 1 Aj Cellsj 3, p 5.Value Next j End If For n 1 To k 1 m -1 For j 1 To n If m Aj rn 1 – j, p
Then m Aj rn 1 – j, p End If Next j Cellsn 3, 6 p.Value m l t For j 1 To n If m Aj rn 1 – j, p Then Cellsn 6 k, l.Value j – 1 Cellsn 6 k, l 1.Value n – j l l 2 End If Next j Next n t l Next p End Sub Модуль 4 Sub Раскрой Dim r, i1, i2, i3, i4, s, t As Integer Dim l, a1, a2, a3, a4, a5, m
As Integer Dim F, TT, SS, ZZ As String l 28 a1 4 a2 6 a3 9 a4 11 r 4 m Application.Mina1, a2, a3, a4 t Application.Floorl m, 1 For i1 0 To t For i2 0 To t For i3 0 To t For i4 0 To t s 28 – a1 i1 – a2 i2 – a3 i3 – a4 i4 If s 0 And s m Then Cellsr, 1.Value r – 3 Cellsr, 2.Value i1 Cellsr,
3.Value i2 Cellsr, 4.Value i3 Cellsr, 5.Value i4 Cellsr, 6.Value s r r 1 End If Next i4 Next i3 Next i2 Next i1 RangeJ4.FormulaLocal СУММПРОИЗВI4I r – 1 B4B r – 1 RangeK4.FormulaLocal СУММПРОИЗВI4I r – 1 C4C r – 1 RangeL4.FormulaLocal СУММПРОИЗВI4I r – 1 D4D r – 1
RangeM4.FormulaLocal СУММПРОИЗВI4I r – 1 E4E r – 1 RangeN4.FormulaLocal СУММПРОИЗВI4I r – 1 F4F r – 1 B3СУММПРОИЗВI4I r – 1 B4B r – 1 -J3C3СУММПРОИЗВI4I r – 1 C4C r – 1 -K3D3СУММПРОИЗВI4I r – 1 D4D r – 1 -L3E3СУММПРОИЗВI4I r – 1 E4E r – 1 -M3 End Sub Sub Optimumcapitalinvestments
WorksheetsОпт.капитал.Activate End Sub Sub Quit Application.Quit End Sub UserForm1 Dim i As Integer Private Sub ComboBox1Change UserForm1.ComboBox1.AddItem AAA UserForm1.ComboBox1.AddItem AAA End Sub Обработчик события кнопки OK Private Sub CommandButton1Click If UserForm1.TextBox1.Text Then GoTo ll i 0 Do i i 1 Loop Until WorksheetsБД.Cellsi, 1 WorksheetsБД.Cellsi, 1 UserForm1.TextBox1.Text WorksheetsБД.Cellsi, 2 UserForm1.TextBox3.Text If UserForm1.CheckBox2 True Then WorksheetsБД.Cellsi, 6 Есть Else WorksheetsБД.Cellsi, 6 Нет End If If UserForm1.CheckBox1 True Then
WorksheetsБД.Cellsi, 7 Есть Else WorksheetsБД.Cellsi, 7 Нет End If WorksheetsБД.Cellsi, 8 UserForm1.TextBox5.Text руб. WorksheetsБД.Cellsi, 9 UserForm1.TextBox2.Text WorksheetsБД.Cellsi, 10 UserForm1.TextBox6.Text раб.дн. If UserForm1.OptionButton3 True Then WorksheetsБД.Cellsi, 11.Value Есть семья
If UserForm1.OptionButton4 True Then WorksheetsБД.Cellsi, 11.Value Нет семьи If UserForm1.OptionButton5 True Then WorksheetsБД.Cellsi, 12.Value M If UserForm1.OptionButton6 True Then WorksheetsБД.Cellsi, 12.Value Ж WorksheetsБД.Cellsi, 3.Value ComboBox1.Value WorksheetsБД.Cellsi,
4.Value ComboBox2.Value WorksheetsБД.Cellsi, 5.Value ComboBox3.Value ll UserForm1.Hide WorksheetsБД.Activate End Sub Обработчик события кнопки Cancel Private Sub CommandButton2Click UserForm1.Hide WorksheetsБД.Activate End Sub Private Sub SpinButton1Change UserForm1.TextBox2.Text
UserForm1.SpinButton1.Value End Sub Private Sub SpinButton2Change UserForm1.TextBox5.Text UserForm1.SpinButton2.Value End Sub Private Sub SpinButton3Change UserForm1.TextBox6.Text UserForm1.SpinButton3.Value End Sub UserForm2 Dim r, v As Integer Обработчик события кнопки OK rivate Sub
CommandButton1Click WorksheetsЗадание4.Rangec10h15.Value WorksheetsЗадание4.Rangej11j16.Value WorksheetsЗадание4.Rangeb2.Value UserForm2.TextBox1 WorksheetsЗадание4.Rangea2.Value UserForm2.TextBox2 WorksheetsЗадание4.Rangec2.Value UserForm2.TextBox3 UserForm2.Hide RangeC10H15.FormulaArray Модуль3.CALCI11I16 RangeJ11J16.FormulaArray MMULTC10H15,TRANSPOSEd7i7 Rangef16.Select ActiveCell.FormulaR1C1 larger-5c4rc4,1 Rangef17.Select ActiveCell.FormulaR1C1 matchlarger-6c4r-1c4,1,r-6c4r-1c4,0-15 r Rangef16.Value v Rangef17.Value r Formatr UserForm3.Label3.Caption WorksheetsЗадание4.Rangef16 UserForm3.Label4.Caption
WorksheetsЗадание4.Rangef17 UserForm3.Show End Sub Обработчик события кнопки Cancel Private Sub CommandButton2Click UserForm2.Hide End Sub UserForm3 Private Sub CommandButton1Click UserForm3.Hide End Sub UserForm4 Private Sub CommandButton1Click WorksheetsРаскрой.Rangej3.Value UserForm4.TextBox2
WorksheetsРаскрой.Rangek3.Value UserForm4.TextBox4 WorksheetsРаскрой.Rangel3.Value UserForm4.TextBox5 WorksheetsРаскрой.Rangem3.Value UserForm4.TextBox3 UserForm4.Hide End Sub Private Sub CommandButton2Click End End Sub Private Sub CommandButton3Click TextBox1
TextBox2 TextBox3 TextBox4 TextBox5 WorksheetsРаскрой.Rangej3.Value WorksheetsРаскрой.Rangek3.Value WorksheetsРаскрой.Rangel3.Value WorksheetsРаскрой.Rangem3.Value WorksheetsРаскрой.Rangea4 f273.Value End Sub