Перед тем как начинать запись текста процедуры в модуль, будь то новый или существовавший ранее модуль, вы должны поместить курсор в окно Code в то место, куда хотите вставить текст процедуры.
Вы можете вводить текст процедуры в любое место в модуле, лишь бы это было после слова End Sub, которое заканчивает предыдущую процедуру, и перед словом Sub, которое начинает следующую процедуру. Большинство программистов помещают новую процедуру в конец модуля.
Когда вы пишете процедуру, вы должны прежде всего указать ее имя и поместить в текст слова Sub в начале процедуры и End Sub в конце. Если хоть одно из этих требований не будет соблюдено, синтаксические правила будут нарушены и редактор Visual Basic выдаст сообщение об ошибке при попытке запустить процедуру.
В любом языке программирования классическим примером простой программы является программа, выводящая на экран слова Hello, World!В листинге вы видите такую программу, состоящую из единственной процедуры.
Sub hello()
MsgBox "Hello, World!", , "Окно вывода сообщений на экран"
End Sub
Для того, чтобы ввести такую программу самостоятельно, сделайте следующее.
Убедитесь, что курсор находится в начале первой строки в окне Code и введите текст из листинга. В конце каждой строки нажимайте <Enter>, начиная новую строку.
Вводите текст точно так же, как он приведен в листинге
Переименуйте новый модуль, дав ему содержательное имя.
Visual Basic во многом помогает вам писать программу. Например, после того как вы введете строку, содержащую слово Sub и имя процедуры, он автоматически введет строку со словами End Sub. Таким образом, уменьшается вероятность того, что вы забудете ввести нечто важное.
Кроме того, редактор Visual Basic имеет свойство, называемое Auto Quick Info. Как только вы введете MsgBox и нажмете пробел, появится вспомогательное окно со списком аргументов функции, имя которой вы только что ввели, в данном случае функции MsgBox. Аргумент, значение которого вы должны сейчас вводить, выделяется полужирным шрифтом. Вспомогательное окно Quick Info закрывается, как только вы переместите курсор на другую строку. Его можно закрыть также, нажав клавишу <Esc>.
Первая строка в листинге — это объявление процедуры. Объявление процедуры служит для того, чтобы сообщить Visual Basic о существовании процедуры и о месте начала ее исходного текста. Каждое объявление процедуры состоит из слова Sub, пробела и имени процедуры. В листинге имя процедуры — Hello. Заканчивается объявление процедуры парой пустых скобок. Эти скобки являются обязательным элементом. Если вы не поставите скобок, Visual Basic сделает это за вас, когда вы нажмете <Enter> в конце строки.
Вторая строка в листинге составляет тело процедуры и является единственной инструкцией, которая что-то делает. Тело процедуры может состоять из нескольких инструкций. Инструкция MsgBox выводит на экран окно с сообщением пользователю "Hello, World!". Окно озаглавлено "Окно вывода сообщений на экран".
Третья и последняя строка в нашей процедуре — инструкция End Sub. Она служит для того, чтобы указать VBA конец процедуры. VBA, встретив такую инструкцию, заканчивает выполнение. Как и объявление процедуры, инструкция End Sub должна стоять в начале строки и быть единственной инструкцией в строке, но вы можете ставить комментарии после нее. Как уже говорилось, Visual Basic автоматически добавляет эту инструкцию в конце процедуры.
10. Запустите процедуру на выполнение.
1. Откройте окно Macro, выбрав в меню Tools-Macros.
2. В списке Macro Name выберите процедуру Hello.
3. Щелкните на кнопке Run.
В результате выполнения процедуры Visual Basic выведет окно приветствия. Щелкните на кнопке ОК и закройте окно.
11. Закройте редатор, сохраните книгу Excel на диске D/курс 2/Ваша группа/FIO.xls, где FIO – начальные буквы вашей фамилии, имени, отчества. Выйдите из Excel.
12. Запишите макросNewFIO (где FIO – начальные буквы вашей фамилии, имени, отчества), который будет открывать новую книгу и затем сохранять ее под именем NEWFIO в вашем каталоге и закрывать ее. Запустите его на выполнение 2 раза. Результаты объясните и запишите в тетради.
13. Напишите процедуру, которая будет выводить сообщение «Привет от Excel!». Окно сообщения должно иметь заголовок «Сообщение Excel».
Варианты заданий
В текущей рабочей книге создать макрос, который:
1. Создаёт новую рабочую книгу с именем, указанным пользователем.
2. Добавляет в текущую рабочую книгу лист с именем, указанным пользователем.
3. Устанавливает в активной ячейке шрифт размером в 14 пунктов.
4. Устанавливает в активной ячейке полужирное начертание шрифта.
5. Устанавливает в активной ячейке курсивное начертание шрифта.
6. Устанавливает в активной ячейке шрифт Arial.
7. Записывает в активную ячейку Ваше имя.
8. Устанавливает вокруг активной ячейки широкую рамку.
22. Записывает в активную ячейку формулу вычисления площади круга, если радиус хранится в ячейке A1.
23. Записывает в активную ячейку формулу вычисления площади прямоугольника, если его высота хранится в ячейке A1, а ширина – в B1.
24. Записывает в активную ячейку символ Товарный знак ™.
25. Вставляет пустую строку перед активной ячейкой.
26. Вставляет пустой столбец перед активной ячейкой.
27. Удаляет строку в позиции активной ячейки.
28. Удаляет столбец в позиции активной ячейки.
29. Устанавливает в активной ячейке Финансовый формат.
30. Записывает в активную ячейку формулу вычисления площади прямоугольного треугольника, высота и ширина которого хранятся в ячейках A1 и B1, соответственно.
Ответьте на контрольные вопросы в тетради.
1. Что такое макрос? Для чего он используется?
2. Где Excel хранит записанные макросы?
3. Как в программе Excel выполняется записанный ранее макрос?
4. Как вы запускаете программу записи макросов?
5. Где вы сохраните макрос, если вы хотите, чтобы он был доступен для всех открытых книг Excel в любом сеансе работы?
6. Какие макросы вы увидите в списке диалогового окна Макрос после выполнения работы?
7. Назовите три основных окна VB-редактора. Опишите назначение каждого из них.
8. Что такое модуль VBA?
9. Что такое комментарии? Как их вставить в текст макроса?
10. Что такое ключевое слово VBA?
11. Какие необходимые элементы содержит процедура?
12. Что такое тело процедуры и где оно расположено?
13. Почему текст записанных макросов имеет отступы? Зачем делать отступы в текстах программ?
