Page 68 - 6735

перетворити рядок у функцію
'Debug.Print Application.Evaluate("SUM(1,2)") ' або
Set r = Range("A1:A2")
Debug.Print Application.Sum(r) ' виклик вбудованої функції
листа Excel
'Debug.Print Application.WorksheetFunction.Sum(r) ' або
'Debug.Print Application.Sum(1, 2) ' або

'Debug.Print my_funct(3) 'виклик функції користувача листа
Excel
End Sub
Книга1
Лист1

Лист1
11.0
=SUM($A$1:$A$5)
3
3

Запис макросів у Excel

Користувач може записати свої дії з програмою Excel у вигляді
макроса. Цей макрос потім можна зберегти, виконувати і
редагувати. За допомогою макросів можна вивчати об’єктну модель
Excel навіть без перегляду документації. Виберіть в меню Excel
Сервис/Макрос/Начать запись... Введіть назву макроса і натисніть
Ok. Введіть в комірку A1 значення 1, в комірку A2 значення 2, в
комірку A3 формулу =СУММ(A1:A2). Натисніть кнопку ■, щоб
зупинити запис. Очистіть лист. Виконайте макрос із меню
Сервис/Макрос/Макросы.../Выполнить. Макрос повинен відтворити
ваші дії. Щоб відредагувати макрос натисніть
Сервис/Макрос/Макросы.../Изменить.

Sub Макрос1()
ActiveCell.FormulaR1C1 = "1"
68