Руководство для MS Office 2010

после нажатия клавиши ВВОД, нажмите [OK].

Выполните действия, назначаемые макросу:

вставьте новый лист – на вкладке Главная в списке кнопки Вставить

выберите Вставить лист;

в ячейку А1 введите аббревиатуру вуза – БГЭУ и нажмите [Enter];

в ячейку А1 вставьте примечание, для этого на вкладке Рецензирова-

ние нажмите кнопку [Создать примечание] и в появившейся рамке вве-

дите полное наименование вуза – Белорусский государственный эконо-

мический университет;

в ячейку А2 введите адрес вуза – Партизанский проспект, 26 и

нажмите [Enter].

Остановите запись макроса.

Проверьте работу макроса, запустив его по имени из окна Макрос.

Просмотрите программный код макроса:

откройте скрытую персональную книгу макросов кнопкой [Отобра-

зить] на вкладке Вид в группе Окно;

в открывшемся окне Вывод на экран скрытого окна книги выбери-

те PERSONAL.XLSB и нажмите [OK];

откройте окно Макрос, выделите макрос ЗаданиеЕ3 и нажмите [Из-

менить]. На экране отобразится окно (рис. 9.7) с программным кодом со-

зданного макроса. Как видно, данный макрос записан с абсолютными ссылками на ячейки. Для выполнения действий с ячейками, обращение к ним задается с помощью объекта Range.

141

Задание 15. Удалить созданные макросы и созданную вкладку на ленте.

Задания для самостоятельной работы

Задание 16. В среде Word создать макрос, который выделенное слово заклю-

чает в квадратные скобки.

Задание 17. В среде Excel создать макрос, который в ячейку, активную в мо-

мент запуска макроса, вставляет сумму ячеек, расположенных слева и справа от нее.

143

9.2 Программирование в среде VBA

9.2.1 Настройка рабочей среды редактора Visual Basic

 Настройка рабочей среды редактора Visual Basic предполагает акти-

визацию необходимых окон (рис. 9.8):

окно проекта Project – по умолчанию располагается в левом верхнем углу редактора и отображает иерархическую структуру проектов файлов, откры-

тых в данный момент, и объектов, содержащихся в этих файлах.

окно свойств Properties – располагается в левом нижнем углу редактора и содержит свойства объекта, выделенного в окне Project.

окно программного кода Code – открывается при создании модуля в пра-

вой части окна редактора и отображает программный код выделенного моду-

ля. Если оно распахнуто, то его название не видно.

Рис. 9.8 Окно редактора Visual Basic, открытое в приложении Excel

144

Задание 1. Изучить интерфейс и настроить рабочую среду редактора Visual

Basic. В папке Программирование создать книгу VBA_Excel.xlsm. В проекте этой книги создать два модуля с именами Подпрограммы и Функции

для последующего размещения в них процедур.

Р е к о м е н д а ц и и п о в ы п о л н е н и ю

Откройте табличный процессор Excel и сохраните созданную по умолчанию книгу с именем VBA_Excel.xlsm (тип файла выбрать Книга Excel с под-

держкой макросов) в папке Программирование.

Откройте редактор Visual Basic кнопкой [Visual Basic] на вкладке Разра-

ботчик в группе Код. В открывшемся окне редактора могут быть открыты различные окна.

Закройте в окне Microsoft Visual Basic все вложенные окна.

Активизируйте окно проекта Project (рис. 9.9) командой View/Project Explorer.

Активизируйте окно свойств Properties командой View/ Properties Window.

Перейдите из редактора Visual Basic в окно приложения с помощью кноп-

ки с изображением значка приложения (для Excel – кнопка [View Microsoft Excel]) или с помощью кнопок приложений на панели задач.

Примечание! Не путать кнопку с кнопками закрытия окон .

Создайте в проекте рабочей книги VBA_Excel.xlsm два модуля:

снова перейдите в редактор Visual Basic;

в окне Project выделите проект VBAProject(VBA_Excel.xlsm) и

вставьте модуль командой Insert/Module;

в окне Properties на вкладке Alphabetic в поле (Name) введите новое имя модуля – Подпрограммы и нажмите [Enter];

аналогично вставьте второй модуль и задайте ему имя Функции. В ре-

зультате окно редактора будет иметь вид, представленный на рис. 9.9.

Примечание. Для удаления созданного модуля, необходимо щелкнуть на нем правой кла-

145

текущего проекта) и нажмите [OK]. В результате в окне программного кода модуля появится заготовка для новой процедуры;

введите текст процедуры (рис. 9.9) между открывающей Public Sub

Среднее() и закрывающей End Sub инструкциями.

Примечание. При вводе текста программы определенные термины выделяются различным цветом в зависимости от их назначения. После нажатия клавиши [Enter] в конце строки выполняется проверка синтаксиса введенной инструкции. При обнаружении ошибки строка выделяется красным цветом и на экран выводится сообщение, поясняющее ее характер. В открывшемся окне, сообщающем об ошибке, нажмите кнопку [ОК]. Ошибочный оператор будет выделен.

Рис. 9.9 Окно кода модуля Подпрограммы с процедурой Среднее

 Пояснения по содержанию программы:

Комментарии – пояснительный текст, начинающийся с символа апо-

строф ( ' ) и выделяемый в программе зеленым цветом. Этот текст можно не писать в программу;

Оператор Dim – служит для объявления переменных. Переменная – это имя, которое дается области компьютерной памяти, используемой для вре-

менного хранения данных. Ключевое слово As связывает имя переменной с типом данных. Тип данных определяет множество допустимых значений, ко-

147

торое может принимать переменная, например тип Integer используется для хранения целых чисел от -32768 до +32767; тип Double – для чисел с плава-

ющей точкой примерно от -1,79е308 до 1,79е308.

Инструкция присваивания p=(a1+a2+a3)/3 –вычисляет среднее значение и присваивает результат переменной p.

Функция InputBox организует диалог с пользователем. Функция

MsgBox – организует вывод указанных данных в диалоговом окне.

Запустите процедуру Среднее нажатием клавиши [F5] или командой ме-

ню Run/Run Sub/UserForm или одноименной кнопкой панели инстру-

ментов. В появившемся окне введите первое число, например 8, и нажмите

[ОК]. Затем в следующих окнах введите еще два числа, например 2 и 10,

нажимая после ввода [ОК]. В появившемся окне с результатом выполнения программы нажмите [ОК].

Примечание. При обнаружении ошибки в программе на экран выводится сообщение о ее характере. В окне сообщения нужно нажать [ОК] или [Debug] (в зависимости от вида ошибки). В коде программы ошибочный оператор выделится желтым цветом. Нужно

остановить работы программы кнопкой [Reset], исправить ошибку и запустить программу еще раз.

Закройте окно редактора и сохраните книгу VBA_Excel.

Задание 3. В книге VBA_Excel в модуле Подпрограммы создать програм-

му, которая рассчитывает сумму вознаграждения сотрудника в зависимости от вводимого в диалоговом режиме значения объема продаж по условию: при объеме продаж на сумму до 600 000 руб. вознаграждение составляет 1%; бо-

лее 600 000 руб. – 2%. Вывод результата осуществить в диалоговом окне.

Р е к о м е н д а ц и и п о в ы п о л н е н и ю В книге VBA_Excel откройте редактор Visual Basic.

В модуле Подпрограммы создайте новую процедуру-подпрограмму Воз-

награждение (рис. 9.10).

148