Главная форма

Код кнопки «Ввод данных»

UserForm1.Hide

Sheets("Данныедляработы").Select

UserForm2.Show

Код кнопки «Сводная таблица»

Sheets("Своднаятаблица").Select

Range("A3:G16").Select

Selection.ClearContents

Sheets("Данныедляработы").Select

Range("A1:D390").Select

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

"Данныедляработы!R1C1:R390C4", Version:=xlPivotTableVersion12). _

CreatePivotTable TableDestination:="Своднаятаблица!R3C1", TableName:= _

"СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion12

Sheets("Своднаятаблица").Select

Cells(3, 1).Select

ActiveWorkbook.ShowPivotTableFieldList = True

ActiveSheet.PivotTables("СводнаяТаблица1").AddDataField ActiveSheet.PivotTables _

("СводнаяТаблица1").PivotFields("Цена"), "Количество по полю Цена", xlCount

With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields( _

"Количество по полю Цена")

.Caption = "Среднее по полю Цена"

.Function = xlAverage

End With

With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")

.Orientation = xlRowField

.Position = 1

End With

With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сорта цветов")

.Orientation = xlColumnField

.Position = 1

End With

With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Поставщики цветов" _

)

.Orientation = xlColumnField

.Position = 2

End With

Range("B4").Select

ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сорта цветов"). _

PivotItems("Гладиолусы ").ShowDetail = False

Range("C4").Select

ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сорта цветов"). _

PivotItems("Розы ").ShowDetail = False

Range("D4").Select

ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сорта цветов"). _

PivotItems("Тюльпаны ").ShowDetail = False

Range("E4").Select

ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сорта цветов"). _

PivotItems("Хризантемы ").ShowDetail = False

Range("F4").Select

ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Сорта цветов"). _

PivotItems("(пусто)").ShowDetail = False

Columns("F:F").Select

Selection.EntireColumn.Hidden = True

Rows("15:15").Select

Selection.EntireRow.Hidden = True

Range("B6:G16").Select

Selection.NumberFormat = "0.00"

Range("A1").Select

Код кнопки «Динамика цен»

Sheets("ГрафикДинамикиЦен").Delete

Sheets("Своднаятаблица").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlColumnClustered

ActiveChart.SetSourceData Source:=Range("Своднаятаблица!$A$3:$G$16")

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="ГрафикДинамикиЦен"

Код кнопки «прогноз цены»

Sheets("ГрафикПрогнозаЦены").Delete

Sheets("Своднаятаблица").Select

Range("A4:G16").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Source:=Range("Своднаятаблица!$A$3:$G$16")

ActiveWorkbook.ShowPivotChartActiveFields = True

ActiveChart.ChartType = xlLine

ActiveWorkbook.ShowPivotChartActiveFields = False

ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="ГрафикПрогнозаЦены"

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(1).Select

ActiveChart.SeriesCollection(1).Trendlines.Add

ActiveChart.SeriesCollection(1).Trendlines(1).Select

Selection.Forward = 0.1

Selection.DisplayEquation = True

ActiveChart.PlotArea.Select

ActiveChart.SeriesCollection(2).Select

ActiveChart.SeriesCollection(2).Trendlines.Add

ActiveChart.SeriesCollection(2).Trendlines(1).Select

Selection.Forward = 0.1

Selection.DisplayEquation = True

ActiveChart.SeriesCollection(3).Select

ActiveChart.SeriesCollection(3).Trendlines.Add

ActiveChart.SeriesCollection(3).Trendlines(1).Select

Selection.Forward = 0.1

Selection.DisplayEquation = True

ActiveChart.SeriesCollection(4).Select

ActiveChart.SeriesCollection(4).Trendlines.Add

ActiveChart.SeriesCollection(4).Trendlines(1).Select

Selection.Forward = 0.1

Selection.DisplayEquation = True

ActiveChart.SeriesCollection(4).Trendlines(1).DataLabel.Select

Selection.Left = 506

Selection.Top = 216

ActiveChart.SeriesCollection(1).Trendlines(1).DataLabel.Select

Selection.Left = 501

Selection.Top = 159

ActiveChart.SeriesCollection(2).Trendlines(1).DataLabel.Select

Selection.Left = 500

Selection.Top = 175

ActiveChart.SeriesCollection(3).Trendlines(1).DataLabel.Select

Selection.Left = 496.338

Selection.Top = 195.236

ActiveChart.SeriesCollection(4).Trendlines(1).DataLabel.Select

Selection.Left = 500

Selection.Top = 216

ActiveChart.PlotArea.Select

Код кнопки «оптимизационная задача»

UserForm1.Hide

Sheets("ОптимизационнаяЗадача").Select

UserForm3.Show

Код кнопки «Выход»

UserForm1.Hide