Використання елементів управління в книгах і листах Microsoft Excel

Для того щоб перевірити результат виконання цього макросу, перейдіть на порожню сторінку, використовуйте команду Сервис|Макрос|Макросы, виберіть макрос під ім'ям Табель і клацніть на кнопці Виконати. На порожньому робочому листі з'явиться таблиця, у якій потрібно вказувати кількість середній бал кожної групи.



Рис. 8.7 - Програмний код макросу в редакторі Visual Basic Editor



Вихідний код мовою VBA

Звичайно, основна мета виконання приведеного вище прикладу полягає не в тому, щоб показати, як створюються макроси, а в тому, щоб зрозуміти, як записується макрос у кодах Visual Basic for Applications. Скористайтеся командою Сервис|Макрос|Макросы, щоб відкрити діалогове вікно Макрос. Виберіть макрос Рейтинг і клацніть на кнопці Изменить. При цьому відкриється вікно редактора Visual Basic Editor, показане на рис. 8.7. Як видно з малюнка, код програми мовою Visual Basic for Applications з'явиться праворуч — у вікні Модуль.

Текст програми буде виглядати так:

Sub Рейтинг()

' Рейтинг макрос

' Макрос записаний 19.12.2003 (computer)

Range("B1").Select

ActiveCell.FormulaR1C1 = "Атестація"

Range("C1").Select

ActiveCell.FormulaR1C1 = "=TODAY()"

Range("B2").Select

ActiveCell.FormulaR1C1 = "Курс"

Range("A3").Select

ActiveCell.FormulaR1C1 = "Група"

Range("A3:A4").Select

Range("A4").Activate

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom