Автор работы: Пользователь скрыл имя, 11 Марта 2015 в 16:08, курсовая работа
Целью курсовой работы является получение практических навыков использования современных информационных технологий при анализе и сегментации товаров и услуг.
Выполнение курсовой работы предусматривает решение следующих задач:
Подбор информации, характеризующий деятельность выбранных предприятий на данном сегменте рынка за некоторый период;
Определение основных показателей деятельности данных предприятий;
ActiveChart.ChartArea.Select
End Sub
Код кнопки «Оптимизационная задача»
Private Sub Optimizacia_Click()
Glavn.Hide
Opt.Show
End Sub
Код кнопки «Выход»
Private Sub Выход_Click()
Glavn.Hide
End Sub
Приложение 2
Форма «Оптимизация»
Кнопка «OK»
Private Sub OK_Click()
Worksheets("Оптимизационная задача").Select
Worksheets("Оптимизационная задача").Cells(10, 1) = CSng(TextBox1)
Range("D3:D6").Select
Range("D3").Activate
Selection.ClearContents
Opt.Hide
Range("B10").Select
SolverReset
SolverOk SetCell:="$B$10", MaxMinVal:=1, ValueOf:="0", ByChange:="$D$3:$D$6"
SolverAdd CellRef:="$C$10", Relation:=1, FormulaText:="$A$10"
SolverAdd CellRef:="$D$3:$D$6", Relation:=4, FormulaText:="öåëîå"
SolverAdd CellRef:="$D$3:$D$6", Relation:=3, FormulaText:="0"
SolverSolve
End Sub
Кнопка «Назад»
Private Sub Назад_Click()
Opt.Hide
Glavn.Show
End Sub
Приложение 3
Форма ввода данных
Код кнопки «Добавить»
Private Sub Добавить_Click()
Worksheets("Исходные данные").Select
Cells(3, 1).Select
Selection.EntireRow.Insert
Worksheets("Исходные данные").Cells(3, 1) = Tovar
Worksheets("Исходные данные").Cells(3, 2) = Prodavec
Worksheets("Исходные данные").Cells(3, 3) = CDate(Period)
Worksheets("Исходные данные").Cells(3, 4) = CSng(Cena)
Range("A3:D3").Select
Selection.Font.Bold = False
Rows("3:3").RowHeight = 17.25
End Sub
Код кнопки «Назад»
Private Sub Назад_Click()
Vvod.Hide
Glavn.Show
End Sub
Инициализация формы
Private Sub UserForm_Initialize()
Prodavec.AddItem "ООО Агроторг"
Prodavec.AddItem "ООО Квадро"
Prodavec.AddItem "ООО Лакомка"
Prodavec.AddItem "ООО Мелькрук"
Application.Worksheets("
Tovar.AddItem "Мука пышная"
Tovar.AddItem "Сахар 1"
Tovar.AddItem "Яйцо С-1"
Tovar.AddItem "Масло коровье"
Period.AddItem "01.01. 2013"
Period.AddItem "01.02.2013"
Period.AddItem "01.03.2013"
Period.AddItem "01.04.2013"
Period.AddItem "01.05.2013"
Period.AddItem "01.06.2013"
Period.AddItem "01.07.2013"
Period.AddItem "01.08.2013"
Period.AddItem "01.09.2013"
Period.AddItem "01.10.2013"
Period.AddItem "01.11.2013"
Period.AddItem "01.12.2013"
End Sub