Составление программы в Excel написанной на языке Microsoft Visual Basic for Application

СОДЕРЖАНИЕ ВВЕДЕНИЕ 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

ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ХАРАКТЕРИСТИКА ОБЪЕКТА

руб. руб. вложить в филиалы с 1-го по 5-ый т.е. по 1 млн. на каждый филиал и целых 2 млн.

АНАЛИЗ ИСПОЛЬЗУЕМОЙ ОБРАБОТКИ ИНФОРМАЦИИ НА ПРЕДПРИЯТИИ

АНАЛИЗ ИСПОЛЬЗУЕМОЙ ОБРАБОТКИ ИНФОРМАЦИИ НА ПРЕДПРИЯТИИ На предприятии вообще не существовало программ по исследованию тех задач, которые мы описываем.

Мы создали программ по учету прибыли от предприятий, вычисления максимальной и минимальной стоимости товара и вычисления премиальных выплат по разным категориям и еще много других задач. 3

ПОСТАНОВКА ЗАДАЧИ

ПОСТАНОВКА ЗАДАЧИ 3.1

Организационно-экономическая сущность задачи

3.2 . Задача носит комплексный характер и решает 3 поставленные задачи начис... В зависимости от вида комплектующих можно выбрать различные варианты с... Фирма занимается производством товара с использованием комплектующих д... В соответствии с установлением оптимальной цены необходимо определить ...

Входная и выходная информация

вкладываются в 1-й и 2-й филиалы вместе, оптимальное распределение сре... Из этой таблицы находится максимальная ожидаемая прибыль в данном случ... что пользователь ввел то и отобразится в таблице. База данных содержит... Входная и выходная информация. ожиданий прибыли как функций капиталовложений, в соответствии с услови...

Аппаратные и программные средства обеспечения решения задачи

Аппаратные и программные средства обеспечения решения задачи. Таблица 3 Характеристика ЭВМ и ПО Компьютер Операционная система Пакет...

ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ

ИНФОРМАЦИОННОЕ ОБЕСПЕЧЕНИЕ 4.1

Описание входной оперативной информации

Прировняем к 0 свободные элементы Х10, Х20, Хк0 получим решение Если в... Найдем коэффициенты, которые нужно будет представить в таблице после о... 6 Все остальные элементы разрешающей строки делятся на разрешающий эле... Теперь мы будем заниматься оптимизацией решения, то есть отысканием та... В заключении остановимся на так называемом вырожденном случае, когда о...

приложениях, а также в некоторых других продуктах. В том числе имеются реализации 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.