Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.92
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.92

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

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

Sub Макрос4()

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

1 Макрос записан 30.11.99 (Владимир) ActiveSheet.Shapes.AddTextbox_ (msoTextOrientationHorizontal, 9.75, 45#, _ 108.75, 96#).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 .Colorlndex = xlAutomatic End With

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

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

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

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

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

19. Заполнение базы данных

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

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

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

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

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

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

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


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta