Министерство образования Республики Беларусь

Учреждение образования

«Могилевский государственный университет продовольствия»

Кафедра АТПП

Работа с VBA

Отчет по задачам

Специальность 1-36 20 01 Низкотемпературная техника

по дисциплине «Информатика»

Проверил Ст.преподаватель Н.П.Овсянникова «____» ____________2020 г

Выполнил Студент группы НТ-201 А.А.Алиев «____» ____________2020 г

Могилев 2020

Оглавление

Задание 1 3

Вариант 1 3

Задание 1

Вариант 1

Создайте макрос в Excel, который строит график функции y=x^2-x-2 на отрезке [-3,3].

Sub задание1()

'

' задание1 Макрос

'

' Сочетание клавиш: Ctrl+Shift+Q

'

ActiveCell.FormulaR1C1 = "x"

Range("B2").Select

ActiveCell.FormulaR1C1 = "y=x^2-x-2"

Range("A3").Select

ActiveCell.FormulaR1C1 = "-3"

Selection.AutoFill Destination:=Range("A3:A15"), Type:=xlFillDefault

Range("A3:A15").Select

Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _

Step:=0.5, Trend:=False

Range("B3").Select

ActiveCell.FormulaR1C1 = "=RC[-1]^2-RC[-1]-2"

Range("B3").Select

Selection.AutoFill Destination:=Range("B3:B15"), Type:=xlFillDefault

Range("B3:B15").Select

Range("A2:B15").Select

Range("B15").Activate

ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select

ActiveChart.SetSourceData Source:=Range("Лист1!$A$2:$B$15")

ActiveSheet.Shapes("Диаграмма 5").IncrementLeft -232.2

ActiveSheet.Shapes("Диаграмма 5").IncrementTop -66.6

Range("L3").Select

End Sub