Листинг модуля Excel - Формирование оптимального штата фирмы
Private Sub ComboBox1_Change()
End Sub
Private Sub CommandButton1_Click()
If (ComboBox1.Text = "2") Then
UserForm2.TextBox3.Visible = False
UserForm2.TextBox4.Visible = False
UserForm2.TextBox7.Visible = False
UserForm2.TextBox8.Visible = False
UserForm2.TextBox9.Visible = False
UserForm2.TextBox10.Visible = False
UserForm2.TextBox11.Visible = False
UserForm2.TextBox12.Visible = False
UserForm2.TextBox13.Visible = False
UserForm2.TextBox14.Visible = False
UserForm2.TextBox15.Visible = False
UserForm2.TextBox16.Visible = False
UserForm2.Label3.Visible = False
UserForm2.Label4.Visible = False
UserForm2.Label7.Visible = False
UserForm2.Label8.Visible = False
End If
If (ComboBox1.Text = "3") Then
UserForm2.TextBox13.Visible = False
UserForm2.TextBox14.Visible = False
UserForm2.TextBox15.Visible = False
UserForm2.TextBox16.Visible = False
UserForm2.TextBox4.Visible = False
UserForm2.TextBox8.Visible = False
UserForm2.TextBox12.Visible = False
UserForm2.TextBox16.Visible = False
UserForm2.Label4.Visible = False
UserForm2.Label8.Visible = False
End If
UserForm2.Show
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.Text = "2"
ComboBox1.AddItem "2"
ComboBox1.AddItem "3"
ComboBox1.AddItem "4"
End Sub
Private Sub CommandButton1_Click()
If (UserForm1.ComboBox1.Text = "2") Then If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Then MsgBox "Заполните все поля"
If (UserForm1.ComboBox1.Text = "3") Then
If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Or (TextBox7.Text = "") Or (TextBox9.Text = "") Or (TextBox10.Text = "") Or (TextBox11.Text = "") Then MsgBox "Заполните все поля"
End If
If (UserForm1.ComboBox1.Text = "4") Then
If (TextBox1.Text = "") Or (TextBox2.Text = "") Or (TextBox3.Text = "") Or (TextBox4.Text = "") Or (TextBox5.Text = "") Or (TextBox6.Text = "") Or (TextBox7.Text = "") Or (TextBox8.Text = "") Or (TextBox9.Text = "") Or (TextBox10.Text = "") Or (TextBox11.Text = "") Or (TextBox12.Text = "") Or (TextBox13.Text = "") Or (TextBox14.Text = "") Or (TextBox15.Text = "") Or (TextBox16.Text = "") Then MsgBox "Заполните все поля"
End If
Worksheets("ИсходныеДанные").Range("A1") = TextBox1.Text
Worksheets("ИсходныеДанные").Range("B1") = TextBox2.Text
Worksheets("ИсходныеДанные").Range("C1") = TextBox3.Text
Worksheets("ИсходныеДанные").Range("D1") = TextBox4.Text
Worksheets("ИсходныеДанные").Range("A2") = TextBox5.Text
Worksheets("ИсходныеДанные").Range("B2") = TextBox6.Text
Worksheets("ИсходныеДанные").Range("C2") = TextBox7.Text
Worksheets("ИсходныеДанные").Range("D2") = TextBox8.Text
Worksheets("ИсходныеДанные").Range("A3") = TextBox9.Text
Worksheets("ИсходныеДанные").Range("B3") = TextBox10.Text
Worksheets("ИсходныеДанные").Range("C3") = TextBox11.Text
Worksheets("ИсходныеДанные").Range("D3") = TextBox12.Text
Worksheets("ИсходныеДанные").Range("A4") = TextBox13.Text
Worksheets("ИсходныеДанные").Range("B4") = TextBox14.Text
Worksheets("ИсходныеДанные").Range("C4") = TextBox15.Text
Worksheets("ИсходныеДанные").Range("D4") = TextBox16.Text
UserForm2.TextBox1.Text = Clear
UserForm2.TextBox2.Text = Clear
UserForm2.TextBox3.Text = Clear
UserForm2.TextBox4.Text = Clear
UserForm2.TextBox5.Text = Clear
UserForm2.TextBox6.Text = Clear
UserForm2.TextBox7.Text = Clear
UserForm2.TextBox8.Text = Clear
UserForm2.TextBox9.Text = Clear
UserForm2.TextBox10.Text = Clear
UserForm2.TextBox11.Text = Clear
UserForm2.TextBox12.Text = Clear
UserForm2.TextBox13.Text = Clear
UserForm2.TextBox14.Text = Clear
UserForm2.TextBox15.Text = Clear
UserForm2.TextBox16.Text = Clear
End Sub
Private Function ValidateNumeric(strText As String) _
As Boolean
ValidateNumeric = CBool(strText = "" _
Or strText = "-." _
Or strText = "." _
Or IsNumeric(strText))
End Function
Private Sub TextBox1_Change()
If Not ValidateNumeric(TextBox1.Text) Then
TextBox1.Text = ""
End If
End Sub
Private Sub TextBox2_Change()
If Not ValidateNumeric(TextBox2.Text) Then
TextBox2.Text = ""
End If
End Sub
Private Sub TextBox3_Change()
If Not ValidateNumeric(TextBox3.Text) Then
TextBox3.Text = ""
End If
End Sub
Private Sub TextBox4_Change()
If Not ValidateNumeric(TextBox4.Text) Then
TextBox4.Text = ""
End If
End Sub
Private Sub TextBox5_Change()
If Not ValidateNumeric(TextBox5.Text) Then
TextBox5.Text = ""
End If
End Sub
Private Sub TextBox6_Change()
If Not ValidateNumeric(TextBox6.Text) Then
TextBox6.Text = ""
End If
End Sub
Private Sub TextBox7_Change()
If Not ValidateNumeric(TextBox7.Text) Then
TextBox7.Text = ""
End If
End Sub
Private Sub TextBox8_Change()
If Not ValidateNumeric(TextBox8.Text) Then
TextBox8.Text = ""
End If
End Sub
Private Sub TextBox9_Change()
If Not ValidateNumeric(TextBox9.Text) Then
TextBox9.Text = ""
End If
End Sub
Private Sub TextBox10_Change()
If Not ValidateNumeric(TextBox10.Text) Then
TextBox10.Text = ""
End If
End Sub
Private Sub TextBox11_Change()
If Not ValidateNumeric(TextBox11.Text) Then
TextBox11.Text = ""
End If
End Sub
Private Sub TextBox12_Change()
If Not ValidateNumeric(TextBox12.Text) Then
TextBox12.Text = ""
End If
End Sub
Private Sub TextBox13_Change()
If Not ValidateNumeric(TextBox13.Text) Then
TextBox13.Text = ""
End If
End Sub
Private Sub TextBox14_Change()
If Not ValidateNumeric(TextBox14.Text) Then
TextBox14.Text = ""
End If
End Sub
Private Sub TextBox15_Change()
If Not ValidateNumeric(TextBox15.Text) Then
TextBox15.Text = ""
End If
End Sub
Private Sub TextBox16_Change()
If Not ValidateNumeric(TextBox16.Text) Then
TextBox16.Text = ""
End If
End Sub
Похожие статьи
-
Экономические задачи, сводящиеся к транспортной модели Транспортная модель используется для составления наиболее экономичного плана перевозок одного вида...
-
Технология разработки формы для ввода исходных данных средствами VBA Для разработки формы ввода исходных данных необходимо отобразить вкладку...
-
Условие задачи. Пусть имеются n кандидатов для выполнения этих работ. Назначение кандидата i на работу j связано с затратами CIj (i, j = 1,2,..., n)....
-
Метод дифференциальных рент для решения транспортной задачи - Формирование оптимального штата фирмы
Для решения транспортных задач используется несколько методов. Рассмотрим решение с помощью метода дифференциальных рент. При нахождении решения...
-
Заключение, Литература - Формирование оптимального штата фирмы
В курсовом проекте была поставлена проблема формирования оптимального штата фирмы, основа ее актуальность и значимость. В первой части были рассмотрены...
-
Описание процесса решения - Формирование оптимального штата фирмы
На рабочем листе Excel в диапазоне ячеек от А1 до D4 в зависимости от выбранного количества предприятий размещаются исходные данные. Они будут...
-
Введение - Формирование оптимального штата фирмы
Тема данного курсового проекта: "Формирование оптимального штата фирмы". Данная работа посвящена изучению теоретических вопросов, связанных с этой темой,...
-
В рыночных условиях хозяйствования исключительно важное экономическое значение приобретает поиск оптимального варианта решения задачи, связанной с...
-
В этом случае лучшим считается вариант, у которого суммарная величина отдельных целевых функций принимает максимальное значение: F Max = = max...
-
Описание порядка работы на ПЭВМ - Формирование оптимальной производственной программы предприятия
Запускаем приложение Microsoft Excel 8.0. На экране монитора появится пустая электронная таблица Книги 1. Сначала заполняется экранная таблица 4...
-
В разделе 1 курсовой работы требуется: Определить количество закупаемого заданным филиалом фирмы сырья у каждого АО, (xj), максимизируя прибыль филиала....
-
С целью формализации задачи введем необходимые обозначения: I - код изделия (i = 1,...,n); ХI - искомый объем выпуска годовой программы по i-му изделию;...
-
Определим сначала максимальные (оптимальные) нормализованное значения по каждому из трех нормализованных критериев: F(ХI=1) = 1; f(ХI=2) = 1; f(ХI=3) =...
-
Введение - Формирование оптимальной производственной программы предприятия
Цель курсовой работы - обеспечение достаточно глубокого усвоения учебного материала по курсу "Планирование на предприятии", а также приобретение...
-
Формирование требований к информационной системе Организационная структура предприятия Организационная структура ВУЗа представлена на рисунке 1.1. Рис...
-
Основные процессы СЭС представлены комплексом направлений деятельности, которые можно представить как EP(t)={EP1(t), EP2(t) ... EPN(t)},, где i=1..n, n -...
-
В статье представлена структурная модель социально-экономической системы как объекта управления, функционирующего в среде быстроизменяющихся внешних и...
-
Формирование З -областей в матрице R осуществляется в процессе ее эволюционной модификации. Эволюционная модификация матрицы R производится путем...
-
Пусть необходимо подобрать оптимальные настройки для объекта с передаточной функцией (9). Степень затухания, к примеру, ш= 0.75. Ниже даются рекомендации...
-
Изучение теоретических вопросов анализа чувствительности оптимального решения ЗЛП к вариациям некоторых параметров задачи и введению нового ограничения....
-
Программное управление Относительно просто может быть сформулирована так называемая задача программного управления. В ней предполагается, что управляющие...
-
Для реализации математической модели оценки состояния СЭС разработан алгоритм определения целей развития СЭС. Для разработки алгоритма необходим анализ...
-
Итак, в первых двух разделах курсовой работы мы использовали модуль Excel "Поиск решении" для решения задачи общего линейного программирования (1 раздел)...
-
Рассмотрим две проблемы сравнительной оценки эффективности различных подходов к оптимизации управления экономическими системами. Сравнение по...
-
Формирование цен различных товаров зависит от большого числа факторов, совокупное влияние которых не может быть детерминировано в рамках общей модели без...
-
Комментарии к третьему разделу курсовой работы В третьем разделе курсовой работы студенту предлагается определить оптимальную стратегию заказа в условиях...
-
Второй раздел курсовой работы посвящен особенностям постановки и решения общей задачи линейного программирования, а именно, транспортной задаче (ТЗЛП)....
-
В процессе проведения выборочного наблюдения, как и вообще при анализе данных любого обследования, статистика выделяет два вида ошибок: регистрации и...
-
Ответ: y=f(kx) получается из Графика функции f(x) сжатием его вдоль оси ох в k раз, если k>1 и растяжением в 1 деленную на k раз, если k>0 но меньше 1....
-
Планирование и прогнозирование являются одними из важнейших задач любого предприятия. Особенно актуальными эти аспекты делают нестабильность...
-
Тест - Решение уравнений и построение графиков функций, содержащих выражения со знаком модуля
Модуль уравнение неравенство график В приведенном ниже тесте четыре задания на решение уравнений и неравенств, содержащих знак модуля. Используются...
-
Выполнил: Шварц В. И. 9-Б класс Руководитель: Шагалина Д. Г. Межгорье 2005 Решение уравнений и неравенств, содержащих выражения под Знаком модуля Любое...
-
Реализуем математическую модель (2) (6) в MS Excel. Для этой цели построим таблицы исходных данных задачи по расчету оптимального графика занятости при...
-
Стан об'єкта керування характеризується n-мірної вектор функцією, наприклад, функцією часуТак, шестивимірна вектор-функція часу цілком визначає положення...
-
Моделирование сезонности в Excel - Методы изучения сезонных колебаний. Примеры расчетов
Рассмотрим сезонность ВВП: Для этого возьмем поквартальные данные Год Квартал ВВП 2001 I 1900,9 II 2105,0 III 2487,9 IV 2449,8 2002 I 2259,5 II 2525,7...
-
Необходимость введения нового ограничения может возникнуть, например, когда первоначально для сокращения затрат машинного времени некоторые интуитивно...
-
Ограничение чувствительность задача программирование Вариации правых частей ограничений приводят к изменению области допустимых решений ЗЛП, в действии...
-
Способы формирования выборочной совокупности - Основы эконометрики
Способ отбора Определяет конкретный механизм или процедуру выборки единиц из генеральной совокупности. В практике выборочных обследований наибольшее...
-
Вариации коэффициентов целевой функции ЗЛП приводят к изменению направления вектора градиента. Так как при этом не затрагивается допустимое множество, то...
-
Оптимальное решение модели. - Методика решения задачи целочисленного программирования
Рис. 1 Шаг 1. Исходную задачу 1 заносим в дерево задач. В качестве исходного допустимого решения берем: x1=x2=x3=0. Соответствующее значение целевой...
Листинг модуля Excel - Формирование оптимального штата фирмы