Макросы

- , Параметры Excel, Показывать вкладку «Разработчик»,

- (окно VBA), View / Immediate Window, View / Code,

1. Запись макроса:

- ê!- безопасность макроса, добавить кнопку, включитьвсемакросы,

- запись макроса – п. 3.3,

- Вид / Макросы / Макросы, выбрать, Изменить

- изменить: цифру Color

- добавить: Selection.Font.Size=28

4 (Выполнить) – выполнение программы (изменение цвета и размера шрифта), добавить:

Selection.Font.Bold=True (жирный)

Selection.Font.Italic=True (курсив)

2. Создание макроса

- ê!- безопасность макроса, добавить кнопку, включитьвсемакросы,

- задание: вычислить при x=6.678; y=7.565,

- вывести исходные данные и результаты расчетов, полученные результаты округлить до 2-х знаков после запятой, набрать программу, 4 (Выполнить).

Код макроса	Комментарий
Option Explicit	Объявление необходимости задания переменной
Public Sub Execute()	Начало процедуры
Dim x As Single, y As Single	DIM - оператор объявления (задания) переменной, Single – тип переменной (с плавающей запятой)
Dim z As Single, d As Single
x = 6.678	Исходные данные
y = 7.565
z = Sqr(x ^ 2 + y ^ 2)	Расчетные формулы
d = z ^ 3
Debug.Print "X="; x; " Y="; y	Вывод результатов
Debug.Print "Z="; Format(z, "###0.00"); "D="; Format(d, "###0.00")	Вывод результатов с округлением (не переносить строку)
End Sub	Окончание процедуры