Государственное образовательное учреждение высшего профессионального образования Тюменской области

ТЮМЕНСКИЙ ГОСУДАРСТВЕННЫЙ ИНСТИТУТ МИРОВОЙ ЭКОНОМИКИ, УПРАВЛЕНИЯ И ПРАВА

Н. В. Горбунова

Visial basic for application

Практикум для студентов 1 курса специальности «Прикладная информатика в экономике»

Тюмень 2005

ББК 32.81+74.200

VISIAL BASIC FOR APPLICATION: Практикум. Тюмень: Тюменский государственный институт мировой экономики, управления и права, 2005. 20 с.

В данном практикуме рассматриваются основные понятия и приемы программирования на VISIAL BASIC FOR APPLICATION, работа предназначена для студентов 1 курса специальности «Прикладная информатика в экономике» факультета управления.

Работа утверждена на заседании кафедры математики, информатики и естественных наук, печатается по решению учебно-методического совета ТГИМЭУП.

СОСТАВИТЕЛЬ ст. преподаватель Н. В. Горбунова

© Горбунова Н. В., 2005

© ТГИМЭУП, 2005

Практическое задание № 1

Рассмотрим процедуру записи макросов на примере очень простого макроса, который изменяет шрифт и цвет в выделенном диапазоне ячеек. Этот пример продемонстрирует последовательность действий пользователя, необходимых для записи макроса.

1. Откройте новую книгу

2. В ячейку А1 введите ваше имя, в ячейку А2 введите фамилию, в ячейку А3 — город, где вы родились, в А4 — название страны.

3. Установите курсор в ячейке А1.

4. На панели Visual Basic нажмите на кнопку «Запись макроса». Появится диалоговое окно.

5. Введите название макроса «Цвет_Шрифт» и нажмите ОК. На экране появится панель инструментов «Остановить запись»

6. Выполните команду Формат — Ячейки. Появится диалоговое окно Формат ячеек.

7. Установите размер шрифта 18, цвет — зеленый.

8. Щелкните на кнопке «Остановить запись».

9. Установите курсор в ячейку А2.

10. Выполните команду Сервис — Макрос — Макросы.

11. Выделите созданный макрос и нажмите на кнопке «выполнить».

12. Выделите ячейки А3, А4 и снова выполните макрос.

13. Для просмотра созданного макроса выполните команду Сервис — Макрос — Макросы.

14. Выделите макрос и щелкните на кнопке «Изменить». Откроется окно редактора.

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

Sub Цвет_Шрифт()

Цвет_Шрифт Макрос

Макрос записан 25.01.2005 (Tatyana Ivanova)

With Selection.Font

.Name =”Arial Cyr”

.FontStyle = “обычный”

.Size = 18

.Strikethrough = Falshe

.Superscript = Falshe

.OutlineFont = Falshe

.Shadow = Falshe

.Underline = xlUnderlineStyleNone

.ColorIndex = 10

End With

End Sub

При записи макроса мы выполнили всего 2 действия. Это изменение размера шрифта и цвета, но в коде макроса записалась вся информация, представленная на вкладке Шрифт. Поэтому отредактируем текст макроса

Sub Цвет_Шрифт()

With Selection.Font

.Size = 18

.ColorIndex = 10

End With

End Sub

15. Закройте окно редактора.

16. В ячейке С4 введите слово Проверка.

17. Оставьте эту ячейку активной.

18. Запустите макрос. Исправленный макрос работает точно так же, как и прежний.

19. Сохраните файл с именем «пр1»

Практическое задание № 2 Назначение макроса графическим изображениям

1. Откройте файл «пр1».

2. Используя панель рисования, нарисуйте на листе любую автофигуру.

3. Щелкните правой кнопкой мыши на изображении и в контекстном меню выберите Назначить макрос.

4. Выберите макрос «Цвет_Шрифт» и подтвердите выполнение операции.

5. Щелкните вне графического объекта.

6. Введите в любую ячейку число 500.

7. Щелкните по графическому изображению.

8. Вставьте командную кнопку на рабочем листе с помощью панели инструментов «Форма». Назначьте ей макрос.

Для удаления макроса из списка макросов надо сделать следующее:

1. Сервис — Макрос — Макросы.

2. Выделить необходимый макрос и щелкнуть на кнопке «Удалить».

3. Подтвердить операцию в появившемся окне.

4. Сохраните книгу.