Процесс анализа и сегментации рынка

Размещено на http://www.allbest.ru/

Содержание

• Введение
• 1. Определение условий задачи
• 1.1 Сегментация рынка
• 1.2 Выбор продавцов и товаров
• 1.3 Систематизация информации за определённый период
• 1.4 Условия оптимизационной задачи
• 2. Прогнозирование основных показателей деятельности предприятия
• 2.1 Разработка структуры таблицы для хранения и обработки исходной информации
• 2.2 Построение графиков динамики цен
• 2.3 Прогнозирование цены и построение линии тренда
• 2.4 Результат решения оптимизационной задачи
• 3.Интерфейс управления задачей
• Заключение
• Приложения
• Введение
• При выполнении курсовой работы были получены практические навыки по процессу анализа и сегментации рынка.

Была подобрана информация, характеризующая деятельность выбранных фирм на данном сегменте рынка за период, определены основные показатели деятельности данных фирм и спрогнозировано изменение этих показателей с использованием графических методов.

Также была решена оптимизационная задача, целью которой являлось получение наиболее эффективной системы основных показателей деятельности предприятия.

Для автоматизации процессов анализа, прогнозирования деятельности предприятия и решения оптимизационной задачи, использовался табличный процессор MS Excel, в котором была написана программа на языке программирования VBA.

1. Определение условий задачи

1.1 Сегментация рынка

оптимизационная задача прогнозирование тренд таблица

По оценкам РАТЭК (Российская ассоциации торговых компаний и товаропроизводителей электробытовой и компьютерной техники), за последние 10 лет рынок электроники в России окончательно сформировался и структурировался. По темпам роста он занимает первое место на рынке товаров народного потребления, а по объемам продаж и спросу - второе - после продуктов питания.

Рынок электроники в России сегодня является наиболее развитым розничным направлением, а потому считается наиболее конкурентным. Так, в последние годы интенсивный рост сегмента бытовой электроники в значительной степени с одной стороны обусловлен потребительской активностью населения, связанной с улучшением общего благосостояния. С другой - постоянное появление на рынке принципиально новых образцов техники в результате бурного развития инновационного, научно-технического прогресса способствует снижению жизненного цикла потребительских товаров, увеличивая частоту их обновления.

По оценкам экспертов, объем розницы составляет сегодня более 40% рынка ИКТ. Тем не менее, количество компьютерной техники в России, приобретаемой в личное пользование, существенно меньше, чем в других развитых странах. Так, на Западе у 80% семей имеются один и более компьютеров, в то время, как только 20% российских семей имеют тот или иной вид электронной техники. В этой связи объективным является процесс активного расширения потребительского рынка.

Сегментация рынка - разделение конкретного рынка на отдельные части (сегменты). Сегментация рынка осуществляется по техническим особенностям продуктов, по географическому признаку (при этом выделяются регионы, области и другие географические комплексы); по демографическому признаку (при этом выделяются группы населения по полу, возрасту, роду занятия); по поведенческому признаку (при этом выделяются отдельные группы потребителей с учетом специфики поведения на рынке этих групп); по признаку валюты (при этом выделяются основные мировые валюты).

Размещено на http://www.allbest.ru/

Рис. 1 Сегментация рынка

1.2 Выбор продавцов и товаров

В данной курсовой работе в качестве объекта исследования были выбраны следующие продавцы компьютерной техники: «Nix», «Ф-центр», «Oldi».

Исследования были проведены по следующим товарам: CPU AMD Athlon 64 X2 5000+, CPU Intel Core 2 Duo E4300, Монитор 17' BenQ G700, Ноутбук Acer Extensa 7620G-3A2G25Mi.

1.3 Систематизация информации за определённый период

В данной курсовой работе рассматривается изменение цены с 02.03.2008 по 22.05.2008 с выделением периодов по 10 дней.

1.4 Условия оптимизационной задачи

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

2. Прогнозирование основных показателей деятельности предприятия

2.1 Разработка структуры таблицы для хранения и обработки исходной информации

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

Таблица 1 удовлетворяет перечисленным выше условиям.

Таблица 1

Продавец	Товар	Период	Цена
nix	CPU Intel Core 2 Duo E4300	02.03.2008	3148
nix	CPU Intel Core 2 Duo E4300	12.03.2008	3148
nix	CPU Intel Core 2 Duo E4300	22.03.2008	3135
nix	CPU Intel Core 2 Duo E4300	02.04.2008	3125
nix	CPU Intel Core 2 Duo E4300	12.04.2008	3123
nix	CPU Intel Core 2 Duo E4300	22.04.2008	3100
nix	CPU Intel Core 2 Duo E4300	02.05.2008	3045
nix	CPU Intel Core 2 Duo E4300	12.05.2008	3037
nix	CPU Intel Core 2 Duo E4300	22.05.2008	3037

На основе полученных данных можно построить сводную таблицу, которая будет иметь следующий вид (см. Таблица 2).

Таблица 2

Среднее по полю Цена	Товар
Период	CPU AMD Athlon 64 X2 5000+	CPU Intel Core 2 Duo E4300	Монитор 17' BenQ G700	Ноутбук Acer Extensa 7620G-3A2G25Mi
02.03.2008	2923,666667	3082,333333	5608,666667	32161
02.04.2008	2504	2941,666667	5423,333333	31583,33333
02.05.2008	2141	2903,333333	5297,666667	31478,66667
12.03.2008	2722	3017,666667	5579	32123
12.04.2008	2381,666667	2923,333333	5403,666667	31856,33333
12.05.2008	2120	2914,666667	5246	31154,66667
22.03.2008	2603,333333	2951,666667	5480	31749,33333
22.04.2008	2280,666667	2918,333333	5323,666667	31498,66667
22.05.2008	2120,666667	2909,333333	5256,333333	31431,33333

2.2 Построение графиков динамики цен

Ниже приведена динамика изменения цен (рис. 2) по периодам с определением зависимости изменения цены. Даная диаграмма построена на основе сводной таблицы представленной выше.

Рис. 2 График динамики изменения цен

2.3 Прогнозирование цены и построение линии тренда

После построения динамики цен необходимо добавить линии тренда, затем продлить их на нужное число периодов (рис. 3). С помощью линий тренда можно определить приблизительную цену на нужный период, относительно динамики.

Линия тренда - это функция, уравнение которой наиболее точно описывает поведение функции, заданной в табличной форме. С помощью линии тренда можно составлять прогнозы вперед, назад или в обоих временных направлениях для заданного числа периодов.

Рис. 3 Прогноз цены с помощью линии тренда

Прогнозируемые цены высчитываются также по формуле с использованием функции ЛИНЕЙН(), которая даёт результаты, аналогичные результатам линии тренда (см. Таблица 3).

Таблица 3

Среднее по полю Цена	Товар
Период	CPU AMD Athlon 64 X2 5000+	CPU Intel Core 2 Duo E4300	Монитор 17' BenQ G700	Ноутбук Acer Extensa 7620G-3A2G25Mi
02.03.2008	2923,666667	3082,333333	5608,666667	32161
02.04.2008	2504	2941,666667	5423,333333	31583,33333
02.05.2008	2141	2903,333333	5297,666667	31478,66667
12.03.2008	2722	3017,666667	5579	32123
12.04.2008	2381,666667	2923,333333	5403,666667	31856,33333
12.05.2008	2120	2914,666667	5246	31154,66667
22.03.2008	2603,333333	2951,666667	5480	31749,33333
22.04.2008	2280,666667	2918,333333	5323,666667	31498,66667
22.05.2008	2120,666667	2909,333333	5256,333333	31431,33333
Прогноз	2125,277778	2887,342593	5262,314815	31370,73148

2.4 Результат решения оптимизационной задачи

Целью деятельности любого предприятия является получение прибыли. При планировании обычно возникает ряд альтернатив, из которых нужно выбрать ту, при которой прибыль будет максимальной

При решении оптимизационной задачи необходимо определить размеры услуг с целью получения максимальной прибыли при фиксированной сумме оборотного капитала.

Результатом решения данной оптимизационной задачи является вывод количества покупаемого товара, при котором прибыль будет максимальной.

Розничная цена формируется на основании сделанного выше прогноза (рис.3). Оптовая цена равна 70% процентам от розничной. Общая прибыль вычисляется путем перемножения количества партии на разницу между розничной и закупочной ценой. Затраты считаются как произведение закупочной цены на кол-во товаров в партии. Сумма оборотного капитала вводиться пользователем с помощью главной формы управления задачей. Нахождение полной прибыли является целью оптимизационной задачи и рассчитывается как сумма прибылей по всей номенклатуре товаров. Общие затраты считаться аналогично по затратам на покупку.

Решение представляет собой таблицу с исходными данными для решения оптимизационной задачи, размерами партий каждого вида товаров, затраченной на приобретение суммой и полученной прибылью.

Для получения оптимального решения следует воспользоваться таким инструментом табличного процессора Excel, как “Поиск решения”. Он дает возможность решать задачи со многими переменными, находить значения этих переменных, при которых значение целевой ячейки достигает максимума или минимума при заданных ограничениях. На основе представленного выше была разработана таблица 4.

Таблица 4

Товар	Розничная цена	Оптовая цена	Прибыль	Кол-во	Общая прибыль	Общие затраты
CPU AMD Athlon 64 X2 5000+	2125,277778	1487,694444	637,5833333	1	637,5833333	1487,694444
CPU Intel Core 2 Duo E4300	2887,342593	2021,139815	866,2027778	2	1732,405556	4042,27963
Монитор 17' BenQ G700	5262,314815	3683,62037	1578,694444	9	14208,25	33152,58333
Ноутбук Acer Extensa 7620G-3A2G25Mi	31370,73148	21959,51204	9411,219444	21	197635,6083	461149,7528
Сумма	Суммарная прибыль	Суммарные затраты
500000	214213,8472	499832,3102

3. Интерфейс управления задачей

Все управление задачей осуществляется с помощью перемещения между пользовательскими формами и панели навигации.

При выполнении курсовой работы для управления задачей был разработан лист интерфейса, который выглядит следующим образом (см. рис.4).

Рис. 4 Главная форма управления задачей

С помощью данной формы можно осуществить следующие действия:

§ ввести данные

§ построить сводную таблицу

§ построить диаграмму, отображающую динамику цен

§ построить диаграмму, содержащую линию тренда

§ решить оптимизационную задачу

Данные действия можно осуществлять в произвольном порядке, единственное ограничение состоит в том, что решение оптимизационной задачи должно следовать за прогнозом цен. Ввод суммы оборотного капитала осуществляется также на данной форме. Кнопка «Выход» закрывает рабочую книгу.

Ввод исходных данных осуществляется с использованием окна диалога (рис. 5).

Рис.5 Форма ввода данных

В данной форме пользователь вводит лишь значение поля «Цена», остальные поля заполняются при помощи выбора из выпадающего списка. После нажатия кнопки «Добавить» все поля очищаются, и пользователь может приступить к дальнейшему вводу данных. Если пользователь не заполнил форму и при этом нажал кнопку «Добавить» данные не добавятся, а подпись на форме изменится. (См. рис. 6)

Рис. 6 Форма ввода данных

При нажатии кнопки «Назад» пользователь возвращается на главную форму управления задачей.

Заключение

По итогам проделанной работы можно сделать вывод, что при современных условиях функционирования рыночной экономики, невозможно успешно управлять предприятием, без эффективного прогнозирования и планирования его деятельности. От того, насколько прогнозирование будет точным и своевременным, а также соответствовать поставленным проблемам, будут зависеть, в конечном счете, прибыли, получаемые предприятием.

Что касается самих прогнозов, то они должны быть реалистичными, то есть их вероятность должна быть достаточно высока.

Для улучшения качества прогноза необходимо улучшить качество информации, необходимой при его разработке. Эта информация, в первую очередь, должна обладать такими свойствами, как достоверность, полнота, своевременность и точность.

Без составления прогнозов экономических показателей деятельности предприятия невозможно оценить его будущую рентабельность и, соответственно, целесообразность функционирования в будущем.

Приложения

Приложение 1

Private Sub Workbook_Open()

UserForm2.Show

End Sub

Private Sub CommandButton1_Click()

'Ввод данных

UserForm1.ComboBox1.Clear

UserForm1.ComboBox1.AddItem "nix"

UserForm1.ComboBox1.AddItem "Oldi"

UserForm1.ComboBox1.AddItem "F-center"

UserForm1.ComboBox3.Clear

UserForm1.ComboBox3.AddItem "Ноутбук Acer Extensa 7620G-3A2G25Mi"

UserForm1.ComboBox3.AddItem "CPU AMD Athlon 64 X2 5000+"

UserForm1.ComboBox3.AddItem "Монитор 17' BenQ G700"

UserForm1.ComboBox3.AddItem "CPU Intel Core 2 Duo E4300"

UserForm1.ComboBox4.Clear

UserForm1.ComboBox4.AddItem "02.03.2008"

UserForm1.ComboBox4.AddItem "12.03.2008"

UserForm1.ComboBox4.AddItem "22.03.2008"

UserForm1.ComboBox4.AddItem "02.04.2008"

UserForm1.ComboBox4.AddItem "12.04.2008"

UserForm1.ComboBox4.AddItem "22.04.2008"

UserForm1.ComboBox4.AddItem "02.05.2008"

UserForm1.ComboBox4.AddItem "12.05.2008"

UserForm1.ComboBox4.AddItem "22.05.2008"

Лист2.Cells(1, 1).Value = "Продавец"

Лист2.Cells(1, 2).Value = "Товар"

Лист2.Cells(1, 3).Value = "Период"

Лист2.Cells(1, 4).Value = "Цена"

count = 1

UserForm2.Hide

UserForm1.Show

End Sub

Private Sub CommandButton2_Click()

'Сводная таблица

Dim ur As Range

Excel.ThisWorkbook.Worksheets("Сводная таблица").Activate

If Excel.ThisWorkbook.Worksheets("Сводная таблица").PivotTables.count > 0 Then

Set ur = ActiveSheet.UsedRange

ur.Clear

End If

Excel.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'Ввод данных'!R1C1:R109C4").CreatePivotTable TableDestination:="'Сводная таблица'!R1C1", TableName:="СводнаяТаблица"

Excel.ActiveSheet.PivotTables("СводнаяТаблица").RowGrand = False

Excel.ActiveSheet.PivotTables("СводнаяТаблица").ColumnGrand = False

Excel.ActiveSheet.PivotTables("СводнаяТаблица").HasAutoFormat = True

Excel.ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Товар").Orientation = xlRowField

Excel.ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Товар").Position = 1

Excel.ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Период").Orientation = xlColumnField

Excel.ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Период").Position = 1

Excel.ActiveSheet.PivotTables("СводнаяТаблица").AddDataField ActiveSheet.PivotTables("СводнаяТаблица").PivotFields("Цена"), "Среднее по полю цена", xlAverage

Excel.ActiveWorkbook.ShowPivotTableFieldList = False

Excel.CommandBars("PivotTable").Visible = False

End Sub

Private Sub CommandButton3_Click()

'Динамика цен

Dim ur As Range

Excel.ThisWorkbook.Worksheets("Динамика цен").Activate

If Excel.ThisWorkbook.Worksheets("Динамика цен").PivotTables.count > 0 Then

Set ur = ActiveSheet.UsedRange

ur.Clear

End If

Excel.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'Ввод данных'!R1C1:R109C4").CreatePivotTable TableDestination:="'Динамика цен'!R1C1", TableName:="СводнаяТаблица1"

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").RowGrand = False

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").ColumnGrand = False

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").HasAutoFormat = True

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Период").Orientation = xlRowField

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Период").Position = 1

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Товар").Orientation = xlColumnField

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Товар").Position = 1

Excel.ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Цена"), "Среднее по полю цена", xlAverage

Excel.ActiveWorkbook.ShowPivotTableFieldList = False

Excel.CommandBars("PivotTable").Visible = False

Charts.Add

Excel.Application.ActiveChart.Name = "Диаграмма"

Excel.ActiveChart.SetSourceData Source:=Sheets("Динамика цен").Range("A1")

Excel.ActiveChart.Location xlLocationAsObject, "Динамика цен"

Excel.ActiveChart.PivotLayout.PivotTable.PivotFields("Период").Orientation = xlRowField

Excel.ActiveChart.PivotLayout.PivotTable.PivotFields("Товар").Orientation = xlColumnField

Excel.ActiveChart.ChartType = xlLineMarkers

End Sub

Private Sub CommandButton4_Click()

'Прогноз цен

Dim ur As Range

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

If Excel.ThisWorkbook.Worksheets("Прогноз цен").PivotTables.count > 0 Then

Set ur = ActiveSheet.UsedRange

ur.Clear

End If

Excel.ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="'Ввод данных'!R1C1:R109C4").CreatePivotTable TableDestination:="'Прогноз цен'!R1C1", TableName:="СводнаяТаблица2"

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").RowGrand = False

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").ColumnGrand = False

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").HasAutoFormat = True

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Товар").Orientation = xlRowField

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Товар").Position = 1

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Период").Orientation = xlColumnField

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Период").Position = 1

Excel.ActiveSheet.PivotTables("СводнаяТаблица2").AddDataField ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Цена"), "Среднее по полю цена", xlAverage

Excel.ActiveWorkbook.ShowPivotTableFieldList = False

Excel.CommandBars("PivotTable").Visible = False

Charts.Add

Excel.Application.ActiveChart.Name = "Диаграмма1"

Excel.ActiveChart.SetSourceData Source:=Sheets("Прогноз цен").Range("A1:J6")

Excel.ActiveChart.Location xlLocationAsObject, "Прогноз цен"

Excel.ActiveChart.PivotLayout.PivotTable.PivotFields("Период").Orientation = xlRowField

Excel.ActiveChart.PivotLayout.PivotTable.PivotFields("Товар").Orientation = xlColumnField

Excel.ActiveChart.ChartType = xlLineMarkers

Excel.ActiveChart.SeriesCollection(1).Trendlines.Add Type:=xlLinear, Forward:=1, Backward:=0, DisplayEquation:=False, DisplayRSquared:=False

Excel.ActiveChart.SeriesCollection(2).Trendlines.Add Type:=xlLinear, Forward:=1, Backward:=0, DisplayEquation:=False, DisplayRSquared:=False

Excel.ActiveChart.SeriesCollection(3).Trendlines.Add Type:=xlLinear, Forward:=1, Backward:=0, DisplayEquation:=False, DisplayRSquared:=False

Excel.ActiveChart.SeriesCollection(4).Trendlines.Add Type:=xlLinear, Forward:=1, Backward:=0, DisplayEquation:=False, DisplayRSquared:=False

Excel.ActiveSheet.Range("F3").Value = 1

Excel.ActiveSheet.Range("F4").Value = 2

Excel.ActiveSheet.Range("F5").Value = 3

Excel.ActiveSheet.Range("F6").Value = 4

Excel.ActiveSheet.Range("F7").Value = 5

Excel.ActiveSheet.Range("F8").Value = 6

Excel.ActiveSheet.Range("F9").Value = 7

Excel.ActiveSheet.Range("F10").Value = 8

Excel.ActiveSheet.Range("F11").Value = 9

Excel.ActiveSheet.Range("A12").Value = "Прогноз"

Excel.ActiveSheet.Range("B12").FormulaLocal = "=СУММ(ЛИНЕЙН(B3:B11;F3:F11)*{10;1})"

Excel.ActiveSheet.Range("C12").FormulaLocal = "=СУММ(ЛИНЕЙН(C3:C11;F3:F11)*{10;1})"

Excel.ActiveSheet.Range("D12").FormulaLocal = "=СУММ(ЛИНЕЙН(D3:D11;F3:F11)*{10;1})"

Excel.ActiveSheet.Range("E12").FormulaLocal = "=СУММ(ЛИНЕЙН(E3:E11;F3:F11)*{10;1})"

Excel.ActiveSheet.Range("A12:E12").Interior.Pattern = xlSolid

Excel.ActiveSheet.Range("A12:E12").Interior.ColorIndex = 3

Excel.ActiveSheet.Range("A12:E12").Font.ColorIndex = 2

Excel.ActiveSheet.Range("F3:F11").Font.ColorIndex = 2

'UserForm2.CommandButton5.Enabled = False

End Sub

Private Sub CommandButton5_Click()

'Оптимизационная задача

Dim st As String

Dim ch As Double

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("A1").Value = "Товар"

Excel.ActiveSheet.Range("B1").Value = "Розничная цена"

Excel.ActiveSheet.Range("C1").Value = "Оптовая цена"

Excel.ActiveSheet.Range("D1").Value = "Прибыль"

Excel.ActiveSheet.Range("E1").Value = "Количество"

Excel.ActiveSheet.Range("F1").Value = "Общая прибыль"

Excel.ActiveSheet.Range("G1").Value = "Общие затраты"

Excel.ActiveSheet.Range("A8").Value = "Сумма"

Excel.ActiveSheet.Range("B8").Value = "Суммарная прибыль"

Excel.ActiveSheet.Range("C8").Value = "Суммарные затраты"

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

st = Excel.ActiveSheet.Range("B2").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("A2").Value = st

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

st = Excel.ActiveSheet.Range("C2").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("A3").Value = st

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

st = Excel.ActiveSheet.Range("D2").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("A4").Value = st

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

st = Excel.ActiveSheet.Range("E2").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("A5").Value = st

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

ch = Excel.ActiveSheet.Range("B12").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("B2").Value = ch

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

ch = Excel.ActiveSheet.Range("C12").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("B3").Value = ch

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

ch = Excel.ActiveSheet.Range("D12").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("B4").Value = ch

Excel.ThisWorkbook.Worksheets("Прогноз цен").Activate

ch = Excel.ActiveSheet.Range("E12").Value

Excel.ThisWorkbook.Worksheets("Оптимизационная задача").Activate

Excel.ActiveSheet.Range("B5").Value = ch

Excel.ActiveSheet.Range("C2").FormulaLocal = "= B2*0,7"

Excel.ActiveSheet.Range("C3").FormulaLocal = "= B3*0,7"

Excel.ActiveSheet.Range("C4").FormulaLocal = "= B4*0,7"

Excel.ActiveSheet.Range("C5").FormulaLocal = "= B5*0,7"

Excel.ActiveSheet.Range("D2").FormulaLocal = "= B2-C2"

Excel.ActiveSheet.Range("D3").FormulaLocal = "= B3-C3"

Excel.ActiveSheet.Range("D4").FormulaLocal = "= B4-C4"

Excel.ActiveSheet.Range("D5").FormulaLocal = "= B5-C5"

Excel.ActiveSheet.Range("F2").FormulaLocal = "= D2*E2"

Excel.ActiveSheet.Range("F3").FormulaLocal = "= D3*E3"

Excel.ActiveSheet.Range("F4").FormulaLocal = "= D4*E4"

Excel.ActiveSheet.Range("F5").FormulaLocal = "= D5*E5"

Excel.ActiveSheet.Range("G2").FormulaLocal = "= C2*E2"

Excel.ActiveSheet.Range("G3").FormulaLocal = "= C3*E3"

Excel.ActiveSheet.Range("G4").FormulaLocal = "= C4*E4"

Excel.ActiveSheet.Range("G5").FormulaLocal = "= C5*E5"

Excel.ActiveSheet.Range("B9").FormulaLocal = "= СУММ(F2:F5)"

Excel.ActiveSheet.Range("C9").FormulaLocal = "= СУММ(G2:G5)"

Excel.ActiveSheet.Range("A9").Value = UserForm2.TextBox1.Value

Dim wbSolv As Workbook

On Error Resume Next

Set wbSolv = Workbooks("Solver.xla")

On Error GoTo EH

If wbSolv Is Nothing Then

Set wbSolv = Workbooks.Open(AddIns("Поиск решения").FullName)

End If

Application.Run "Solver.xla!Auto_Open"

Application.Run "Solver.xla!SolverReset"

Application.Run "Solver.xla!SolverOk", "'Оптимизационная задача'!$B$9", 1, 0, "'Оптимизационная задача'!$E$2:$E$5"

Application.Run "Solver.xla!SolverAdd", "'Оптимизационная задача'!$A$9", 3, "'Оптимизационная задача'!$C$9"

Application.Run "Solver.xla!SolverAdd", "'Оптимизационная задача'!$E$2:$E$5", 3, "0"

Application.Run "Solver.xla!SolverAdd", "'Оптимизационная задача'!$E$2:$E$5", 4, "целое"

Application.Run "Solver.xla!SolverSolve", True

Exit Sub

EH:

MsgBox Err.Source & "~" & Err.Description

Excel.Range("'Оптимизационная задача!'A1:G9").AutoFormat Format:=xlRangeAutoFormatClassic1, Number:=True, Font:=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True

End Sub

Private Sub CommandButton6_Click()

Excel.ActiveWorkbook.Close

End Sub

Private Sub CommandButton1_Click()

If (UserForm1.TextBox2.Value <> "") Or (UserForm1.ComboBox1.Value <> "") Or (UserForm1.ComboBox3.Value <> "") Or (UserForm1.ComboBox4.Value <> "") Then

count = count + 1

UserForm1.Label5.Caption = "Введите необходимые данные"

Лист2.Cells(count, 1).Value = UserForm1.ComboBox1.Value

Лист2.Cells(count, 2).Value = UserForm1.ComboBox3.Value

Лист2.Cells(count, 3).Value = UserForm1.ComboBox4.Value

Лист2.Cells(count, 4).Value = UserForm1.TextBox2.Value

UserForm1.ComboBox1.Value = ""

UserForm1.ComboBox3.Value = ""

UserForm1.ComboBox4.Value = ""

UserForm1.TextBox2.Value = ""

Else

UserForm1.Label5.Caption = "Вы не ввели данные"

End If

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide

UserForm2.Show

End Sub

Размещено на Allbest.ru