1. Нажмите кнопку Надпись панели Рисование и создайте на рабочем листе текстовое поле.

2. Наберите в текстовом поле следующий текст: «Программа составлена Владимиром для регистрации клиентов туристической фирмы».

3. Выделите текстовое поле и смените цвет его заливки на желтый, нажав кнопку Цвет заливки панели инструментов Рисование.

Перечисленные выше действия будут переведены MacroRecorder в следующий макрос.

Sub Макрос4()

Макрос4 Макрос

Макрос записан 30.11.99 (Владимир) ActiveSheet.Shapes.AddTextbox (msoTextOrientationHorizontal, 9.75, 45#, 108.75, 9б#).Select Selection.Characters.Text = "Программа составлена" & Chr(lO) & "Нами для регистрации" & Chr(lO) & "клиентов" & Chr(lO) & "туристической" & Chr(lO) & "фирмы"

With Selection.Characters(Start:=1, Length:=86).Font .Name = "Arial Cyr"

.FontStyle = "обычный" .Size = 10 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .Colorindex = xlAutomatic End With

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid End Sub

Из записанного макроса остается только скопировать нужные фрагменты в программу создаваемого приложения о базе данных регистрации туристов.

Самостоятельное задание

Разработать приложение с диалоговым окном «Регистрация клиентов отеля "Бриг"», в котором:

• счетчик управляет вводом продолжительности проживания;

• в раскрывающемся списке выводятся три типа номеров: одноместный, двухместный, люкс, стоимость проживания в которых соответственно равна 250, 200 и 450 руб. в сутки;

• если постоялец заказывает завтраки в номер, то суточная оплата возрастает на 70 руб.;

• при нажатии на кнопку ОК в поле Стоимость проживания

выводится суммарная стоимость проживания клиента и все данные из диалогового окна ОК должны вводиться в базу данных, создаваемую на рабочем листе.

Приложение. Варианты заданий для самостоятельной работы

Задание 1. Автоматическое создание макросов

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

В каждом варианте задания необходимо создать два макроса: один для приложения MS Word и один для приложения Ms Excel.

Макросы для MS Word

1. Макрос, изменяющий тип обрамления (а также толщину и цвет линий обрамления) фрагмента текста.

2. Макрос, изменяющий параметры абзаца (выравнивание, интервал, отступ красной строки).

3. Макрос, добавляющий в таблицу два несмежных столбца.

4. Макрос, преобразующий текст в таблицу.

5. Макрос, изменяющий стиль фрагмента текста.

6. Макрос, добавляющий в таблицу два смежных столбца слева от заданного столбца.

7. Макрос, добавляющий в текст верхний и нижний колонтитулы.

8. Макрос, добавляющий в таблицу три смежных строки со сдвигом вниз от заданной строки.

9. Макрос, выполняющий автозамену текста.

10. Макрос, преобразующий таблицу в текст.

11. Макрос, разбивающий текст на колонки.

12. Макрос, добавляющий в таблицу две несмежных строки.

13. Макрос, изменяющий толшину и цвет линий обрамления фрагмента текста, а также цвет фона.