2015-04-08
328
- 
, Параметры 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 | Окончание процедуры |
|
|
|
