Программирование в среде Visual Basic for Applications (1082430), страница 20
Текст из файла (страница 20)
Щелкните кнопку заголовка второй строки. Вторая строка выделится. Выберите команду Окно/Закрепить области. 2. Выделите ячейку А1 и нажмите кнопку Надпись панели инструментов Рисование. В появившееся текстовое поле введите текст «Фамилия клиента». 3. Выделите ячейку В1 н нажмите кнопку Надпись панели инструментов Рисование. В появившееся текстовое поле введите текст «Имя клиента» и т. д. последовательно для ячеек от С1 до Н1. Кроме того, для того чтобы разобраться, как программируется закрепление области на рабочем листе, в этот алгоритм входит также и закрепление первой строки рабочего листа. Перечисленные выше действия будут переведены МасгоКесог(1ег в следующий макрос. БпЬ Макрос1() Макрос1 Макрос Макрос записан 28.11.99 (Владимир) Вапде("2:2").Яе1еся Асегтемвпдом.гтеехерапея = Тяпе Ванде("А1").Ас(дсокеаепс Ванде ( "А1" ) .
Сояалепя.дяв1Ь1е = Ра1яе Рапде ("А1" ) . Солялепе. Техт Техт:=твамилия клиента" канде("В1").АсЫСокязепя Ванде("В1").Сокяпепя.даваЬ1е = Ра1яе Ванде("В1").Сокяпепя.Техя Техя:="Имя клиента" Ванде("С1").АсЫСопяаепт Канде("С1").Соптепс.даввЬ1е = Ра1яе Вапде("С1").Сотиепя.Техя Техс:="нет клиента", 19. Заполнение базы Данных ванде("П1").АсЫСокапепв калде(гв1").Солввепс.ЧавЯЬ1е = Ра1яе калде("01").Сопнпепс.техв Техс" "Направление" ь Спх(10) Я "выбранного тура" Напде("Е1").АсЫСопапепв Ванде("Е1").Солввепо.чавхЬ1в = Ра1яе Калде("Е1").Сопдпепв.Техо Техес= "Путевка оплачена?" Ь Свх(10) я "(Да/Нет) " Калде("Р1").АсЫСопввепв Рапде("Р1").Соииепв.ЧЕвЕЬ1е = Ра1ве калде ("Р1 ") .Сопппепв .
Техт Техв с= "Фото сданы" Ь Спг(10) Я "(Да/Нет) ванде ("И1"). Асшсопапепв калде(та1").Сопввепс.чаваЬ1в -= Ра1ве Капде(тн1").Совяпепв.Техс Техв "Наличие паспорта" ь Спх(10) ь"(да/Нет)" Еапде("Н1").АсЫСопзвепв калде("Н1").Солввепв.чавхЬ1е = Ра1яе калде("Н1").Сопиево.техв ТехТ" "Продолжительность" ь Сьх(10) ь"поездки" Епд ЯпЬ 155 Первые две инструкции записанного макроса показывают, как программно закрепляется область, а остальные — как создаются примечания для ячеек рабочего листа. Теперь при создании приложения эти фрагменты просто надо вставить в требуемое место набираемой программы. Аналогично при написании фрагмента программы, связанного с созданием текстового поля, лучше всего воспользоваться Масгойесогдег, который переведет производимые пользователем вручную действия по созданию текстового поля на язык 1/ЪА. Итак, для активизации МасгоКесогдег выберите команду Сервис/Макрос/Начать запись и запустите Масгойесогдег на запись.
После задания всех параметров в появившемся диалоговом окне Запись макроса и нажатия кнопки ОК появится плавающая панель инструментов с кнопкой Остановить запись. Теперь все производимые действия будут записываться до тех пор, пока не будет нажата эта кнопка. Постройте текстовое поле по такому алгоритму; 156 Программирование в среде (гииа( ВавУсуот Аррйсанолв 1. Нажмите кнопку Надпись панели Рисование и создайте на рабочем листе текстовое поле.
2. Наберите в текстовом поле следующий текст: «Программа составлена Владимиром для регистрации клиентов туристической фирмы». 3. Выделите текстовое поле и смените цвет его заливки на желтый, нажав кнопку Цвет заливки панели инструментов Рисование. Перечисленные выше действия будут переведены Масго14есог(1ег в следующий макрос. БиЬ Макрос4() Макрос4 Макрос Макрос записан 30.11.99 (Владимир) Асг1уеЯЬеет.ЯЬарея.Айс)техтЬох (ыяоТехтотгептаткопНотьяопта1, 9.75, 45$, 108.75, 964).Яе1ест Яе1естьоп.СЬагастегя.Техт "программа составлена" 4 слг(10) а "Нами для регистрации" 4 СЬг(10) 4 "клиентов" 4 СЛг(10) я "туристической" 4 Слг(10) а "фирмы" ХзтЬ Яе1естьоп.СЬагастетя(Ятагс:=1, ЬепдГЬ:=86).гонт .Нале = "Ат1а1 Суг" .Гоптзту1е = "обычный" .Ягте = 10 .Ятг1кетлгоидЬ = Га1яе .Яирегвст1рт = Еа1яе .ЯиЬвсг1рт = ра1яе .Оит11пекопт = Еа1яе .ЯЬас)оы = Еа1яе .Ппдег11пе = хтппс)ег11пеЯГу1енопе .Со1ог1пс)ех = х1Аисоыатгс Епс) Х1тЬ Яе1ест1оп.ЯЬаревапде.г111.рогесо1ог.ЯсЬеыесо1ог = 13 Яе1ест1оп.ЯЬаревапде.г111.у1в1Ь1е = пяотгие Бе1ест1оп.ЯЬаревапде.р111.Яо11с) Епс) БиЬ Из записанного макроса остается только скопировать нужные фрагменты в программу создаваемого приложения о базе данных регистрации туристов.
Самостоятельное задание Разработать приложение с диалоговым окном «Регистрация клиентов отеля "Бриг" », в котором: ° счетчик управляет вводом продолжительности проживания; 19. Занолнение базы данных 157 ° в раскрывающемся списке выводятся три типа номеров: одноместный, двухместный, люкс, стоимость проживания в которых соответственно равна 250, 200 и 450 руб. в сутки; ° если постоялец заказывает завтраки в номер, то суточная оплата возрастает на 70 руб.; ° при нажатии на кнопку ОК в поле Стоимость проживания выводится суммарная стоимость проживания клиента и все данные из диалогового окна ОК должны вводиться в базу данных, создаваемую на рабочем листе. Приложение.
Варианты заданий для самостоятельной работы Задание 1. Автоматическое создание макросов Самостоятельно создайте макрос в соответствии с вариантом задания, используя средство автоматического создания макросов. Назначьте созданный макрос какой-либо панели инструментов. Добавьте к макросу необходимые комментарии.
Проверьте работу макроса. Внесите в код созданного макроса какие- либо изменения и проследите„как это отразится на его работе. В каждом варианте задания необходимо создать два макроса: один для приложения Май %оп) и один для приложения Мз Ехсе1. Макросы для МЯ И'огИ 1. Макрос, изменяющий тип обрамления (а также толщину и цвет линий обрамления) фрагмента текста.
2. Макрос, изменяющий параметры абзаца (выравнивание, интервал, отступ красной строки). 3. Макрос, добавляющий в таблицу два несмежных столбца. 4. Макрос, преобразующий текст в таблицу. 5. Макрос, изменяющий стиль фрагмента текста. 6. Макрос, добавляющий в таблицу два смежных столбца слева от заданного столбца. 7. Макрос, добавляющий в текст верхний и нижний колонтитулы. 8. Макрос, добавляющий в таблицу три смежных строки со сдвигом вниз от заданной строки. 9. Макрос, выполняющий автозамену текста.
1О. Макрос, преобразующий таблицу в текст. 11. Макрос, разбивающий текст на колонки. 12. Макрос, добавляющий в таблицу две несмежных строки. 13. Макрос, изменяющий толшину и цвет линий обрамления фрагмента текста, а также цвет фона. П иложение. Ва иантызаданийдляеачостоятельной обиты 159 ! 4. Макрос, добавляющий в текст рисунок.
15. Макрос, изменяющий формат таблицы. 1б. Макрос, изменяющий в абзаце цвет, размер, начертание символов. 17. Макрос, преобразующий фрагмент текста в маркированный список. 18. Макрос, изменяющий стиль текста с «Обычный» на «Заголовок1». 19. Макрос, добавляющий номера строк и изменяющий начертание символов. 20. Макрос, копирующий фрагмент текста и изменяющий цвет символов. 21. Макрос, добавляющий к тексту номера страниц. 22. Макрос, устанавливающий расстановку переносов во фрагменте текста. 23.
Макрос, переносящий фрагмент текста в новую позицию и изменяющий его стиль. 24. Макрос, изменяющий ширину и высоту ячеек в таблице. 25. Макрос, устанавливающий новые параметры страницы. Макросы для МЯ Ехсе1 1. Макрос, центрирующий содержимое ячейки и изменяющий размер и шрифт символов в ячейке.
2. Макрос, меняющий цвет и размер символов в ячейке. 3. Макрос, меняющий местами содержимое двух ячеек. 4. Макрос, устанавливающий название рабочего листа. 5. Макрос, добавляющий примечание к ячейке. б. Макрос, производящий автозаполнение строки ячеек месяцами года. 7. Макрос, копирующий содержимое одной ячейки в другую. 8.
Макрос, меняющий местами два заданных листа рабочей книги. 9. Макрос, добавляющий новую строку над заданной строкой. 160 Программирование в среде Рииа1 ВансГос Аррйсаноне 1О. Макрос, вставляющий формулу в ячейку. 11. Макрос, добавляющий новый столбец слева от заданного столбца. 12. Макрос, меняющий местами заданные строки. 13. Макрос, меняющий местами заданные столбцы. 14. Макрос, объединяющий две ячейки.
15. Макрос, объединяющий две строки. 16. Макрос, присваивающий ячейке имя и центрирующий ее содержимое. 17. Макрос, присваивающий имя диапазону ячеек. 18. Макрос, удаляющий содержимое строки. 19. Макрос, центрирующий столбец. 20. Макрос, добавляющий в ячейку текст заданного цвета. 21. Макрос, изменяющий размер ячейки. 22. Макрос, изменяющий цвет фона ячейки и цвет символов. 23. Макрос, изменяющий формат выводимого в ячейке числа. 24. Макрос, заменяющий формулу числовым значением при копировании содержимого ячейки.
25. Макрос, удаляющий все содержимое из рабочей книги. Задание 2. Создание функций пользователя в приложении МЯ Ехсе! В каждом варианте предлагается построить три функции: функцию одной переменной, функцию нескольких переменных и функцию с одним оператором условного перехода. Самостоятельно создайте функцию пользователя в соответствии с вариантом задания. Проверьте, что вновь созданная функция появилась в общем списке функции, вызвав, например, Мастер функций в МЯ Ехсе!. Используя функцию пользователя, протабулируйте каждую функцию в М8 Ехсе! на некотором интервале. Постройте диаграмму для функции одной переменной и функции с одним оператором условного перехода.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
