Работа с объектами в приложениях MicroSoft Office

 

End Sub

Заполненная таблица

 

 

 

 

 

 

 

 

 

 

 

 

 

Оформление  внешнего вида элементов объекта

   Для того, чтобы оформить таблицу, собираем Форму вышеуказанными способами. Заносим нужные нам элементы: Стили, Фон заголовка и фон таблицы, Шрифты заголовка и таблицы.

 

Форма выглядит так:

Код программы:

 

Private Sub CommandButton1_Click()

With Range("B2:k22")

 

'Стили

 

If OptionButton1.Value = True Then

.Interior.Pattern = xlGray25

End If

If OptionButton2.Value = True Then

.Interior.Pattern = xlCrissCross

End If

If OptionButton3.Value = True Then

.Interior.Pattern = xlVertic

End If

 

'Фон заголовков

If OptionButton4.Value = True Then

Range("B2:k2").Interior.Color = RGB(255, 0, 0)

GoTo V

End If

If OptionButton5.Value = True Then

Range("B2:k2").Interior.Color = RGB(0, 0, 255)

GoTo V

End If

If OptionButton6.Value = True Then

Range("B2:k2").Interior.Color = RGB(0, 255, 0)

GoTo V

End If

V:

'Фон таблицы

If OptionButton7.Value = True Then

Range("B3:k22").Interior.ColorIndex = 33

GoTo C

End If

If OptionButton8.Value = True Then

Range("B3:k22").Interior.ColorIndex = 22

GoTo C

End If

If OptionButton9.Value = True Then

Range("B3:k22").Interior.ColorIndex = 44

GoTo C

End If

If OptionButton10.Value = True Then

Range("B3:k22").Interior.ColorIndex = 15

GoTo C

End If

C:

'Шрифт заголовка'

If OptionButton11.Value = True Then

Range("B2:k2").Font.FontStyle = "обычный"

GoTo G

End If

If OptionButton12.Value = True Then

Range("B2:k2").Font.FontStyle = "полужирный"

GoTo G

End If

If OptionButton13.Value = True Then

Range("B2:k2").Font.FontStyle = "полужирный курсив"

GoTo G

End If

G:

'Шрифт таблицы'

If OptionButton14.Value = True Then

Range("B3:k22").Font.FontStyle = "обычный"

GoTo F

End If

If OptionButton15.Value = True Then

Range("B3:k22").Font.FontStyle = "полужирный"

GoTo F

End If

If OptionButton16.Value = True Then

Range("B3:k22").Font.FontStyle = "полужирный курсив"

GoTo F

End If

F:

End With

End Sub

Private Sub CommandButton2_Click()

UserForm3.Hide

End Sub

 

 

 

 

 

 

 

 

Анализ  табличных данных и их графическое  отображение.

 

Одним из самых  распространённых и удобных способов анализа табличных данных является График - наглядное представление зависимости между числами или величинами.

 

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

 

Вставляем в  поле таблицы графический элемент (я использовала обычный прямоугольник), при нажатии на него правой кнопкой мыши мы видим меню. Для того, чтобы связать кнопку в таблице и макрос выбирает пункт «Назначить макрос…». После появления контекстного меню, мы должны обозначить объект, который будет активным и будет открывать макрос и, непосредственно, путь к программному коду макроса.

 

 

 

 

 

 

 

Для создания графика, мы используем форму:

Код программы:

Private Sub CommandButton1_Click()

If OptionButton1.Value = True Then

График xlColumn, 6

Else

If OptionButton2.Value = True Then

График xlLine, 10

End If

End If

With Image1

.Visible = True

.Picture = LoadPicture("D:\taya\ПИКТУРЫ\Future\1-2-58-1_b95.jpg")

.AutoSize = True

.PictureAlignment = fmPictureAlignmentTopLeft

.BorderStyle = fmBorderStyleSingle

.BackColor = RGB(200, 0, 0) '3

End With

 

End Sub

Sub График(ТипГрафика As Integer, Формат As Integer)

'xlExponential

'xlLinear

'xlLogarithmic

'xlMovingAvg

'xlPolynomial

'xlPower

Dim area As Object

Set area = ActiveSheet.Range(Cells(2, 3), Cells(2, 13))

ActiveSheet.ChartObjects.Add(150, 20, 200, 190).Select

ActiveChart.ChartWizard Source:= _

Range("a3:b22"), _

Gallery:=ТипГрафика, Format:=4, _

PlotBy:=xlColumns, Categorylabels:=1, _

SeriesLabels:=0, HasLegend:=False, _

Title:="Стоимость  проекта", CategoryTitle:="№ проекта", _

ValueTitle:="Стоимость", ExtraTitle:=""

With ActiveChart

.ChartArea.Interior.ColorIndex = 15

.PlotArea.Interior.ColorIndex = 6   'xlPolynomial

End With

Trendlines.Add(Type:=xlLogarithmic, _

DisplayRSquared:=True).Select

 

End Sub

 

Private Sub CommandButton2_Click()

UserForm5.Hide

End Sub

 

 

 

 

 

 

 

Окончательный график выглядит следующим образом:

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

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