Задание 4.2.1. Запись, редактирование, создание макроса

1. Записать макрос «Таблица», назначить макросу сочетание клавиш CTRL+Т. Изменить размер шрифта (18 пт), начертание – курсив.

Расписание занятий группы на 1 семестр

 

2. Создать макросы по расчету значений функций с точностью 2 знака:

2.1. x = 12.347, y = 10.678

2.2. x = 6.121, y = 15.773

2.3.

x = 15.664, y = 29.786, t = 32.124

4.3. Условный переход (If … Then…)

Пример: рассчитать значение А и n при x = 2.3, y=45.8, z=55.5и условиях:

 

 

Код макроса

Option Explicit

Public Sub Execute()

Dim a As Single, x As Single, y As Single

Dim z As Single, n As Single

x = 2.3

y = 45.8

z = 55.5

a = Sqr(Abs(x + y ^ 2 + z))

If a > 2 Then

n = x ^ 2 - y ^ 3 + 2 * x * y

End If

If a = 2 Then

n = y ^ 3 - x ^ 2

End If

If a < 2 Then

n = 1 - (y - z) / (y + z)

End If

Debug.Print "x ="; x; "y ="; y; "z ="; z

Debug.Print "a ="; a

Debug.Print "n ="; n

End Sub