Размещение элементов управления в окне диалога.

Для размещенияэлемента управления в окне необходимо выбрать требуемый элемент на панели Формы (щелкнуть на него), а затем в окне диалога указать место его расположения (выделить соответствующую прямоугольную область). Элемент будет нарисован на выбранной области. После этого при необходимости можно переместить элемент, или изменить его размеры. Для изменения свойств элемента следует выделить его и в контекстном меню выбрать Формат объекта. Здесь можно установить связи с ячейками рабочего листа.

Задание: Фирма занимается продажей автомобилей, которые укомплектовываются по желанию клиента. В электронной смете клиент выбирает марку машины, сигнализацию и тип страховки по своему усмотрению. Итоговая цена формируется автоматически. Общение клиента с программой ведется через специально разработанный диалог, перечень услуг и расценки на них введены заранее.

Все исходные данные и расчеты ведутся на Листе1.

Создайте следующие элементы в диалоговом окне:

· Вставить поле со списком. В контекстном меню выбрать Формат объекта, вкладку Элемент управления. В графе Формировать список по диапазону ввести ссылки на имеющиеся Марки машин.

· В графе Помещать результат в ячейку ввести ссылку на ячейку, куда должна быть помещена выбранная марка маши

ны (A10). В графе Количество строк списка поставить 6. После этого проверить работу поля со списком. Для этого нажать кнопку и выбрать один из пунктов списка.

· Листе1 в графе Марка должен отобразится номер выбранного пункта.

· Вставить список. Список сформировать по диапазону имеющихся марок сигнализаций. Результат поместить в соответствующую ячейку Листа1. Проверить работу списка.

· В рамке расположить 3 переключателя. Для переключателя «Нет» в Формате объекта установите Состояние – установлен, в поле Связать с ячейкой – ссылка на ячейку с типом страховки (C10). Обратить внимание, что после все переключатели группы будут связаны с той же ячейкой. Проверить работу переключателей группы.

· Вставить флажки. Установить связи с соответствующими ячейками. Проверить работу флажков. При этом в связанных ячейках отображается логический результат ИСТИНА или ЛОЖЬ.

· Вставить Текстовое поле. Здесь должен высвечиваться результат. Этот результат сначала необходимо рассчитать в соответствующей ячейке Листа1. Это будет делано в следующем разделе.

· Вставить кнопку. В Формате объекта выбрать Функцию кнопки – Отклонить. Проверьте работу кнопки.

Создание элементов управления в диалоговом окне завершено.

3. Программирование логики электронной сметы. В результате пробного запуска диалога в десятой строке Листа1, где фиксировались выбранные клиентом пункты, появились некоторые значения. Для дальнейшего проектирования электронной сметы необходимо воспользоваться функциями АДРЕС и ДВССЫЛ. Функция АДРЕС возвращает ссылку на ячейку в виде текста и использует в качестве аргументов номер строки и номер столбца. Вторая функция преобразует ссылку, заданную как текст в обычную ссылку (адрес ячейки).

Ввести в ячейку А11 формулу =ДВССЫЛ(АДРЕС(А10+1;2;;;)). После этого в ячейке А11 отобразится цена выбранной марки машины. Ввести аналогичную формулу в В11.

Пусть страховка на полгода стоит 2500 р., а на год 4000 р. Тогда в ячейку С11 ввести формулу =ВЫБОР(С10;0;2500;4000). Эта функция выбирает значение из списка значений по индексу (индекс – первый аргумент).

Оплата может производиться в виде предоплаты и в кредит, при чем при оплате в кредит стоимость увеличивается на 25%. В ячейку D11 ввести формулу =ЕСЛИ(D10;СУММ(А11:С11); СУММ(А11:С11)*1,25).

Постоянным клиентам предоставляется скидка 10%. В ячейку Е11 ввести формулу =ЕСЛИ(Е10;D11*0.9;D11).

В F11 ввести = Е11. Таким образом, итоговая цена будет отображена в ячейке F11.

Теперь необходимо создать два макроса. Первый будет автоматически запускать диалог при открытии документа. Для этого в меню Сервис нужно выбрать Макрос – Редактор Visual Basic. Открыть Модуль1. Для этого в окне справа открыть папку модулей и выполнить двойной щелчок на Модуле1. Ввести следующий макрос:

Второй макрос служит для обновления суммы заказа в поле окна диалога. В окне модуля 1 введите следующую программу:

Sheets(«Диалог1»).DrawingObjects(«Editbox20»).Characters.Text=Sheets(«Лист1»).Range(«F11»)

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

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

Хотя диалог запускается каждый раз при открытии файла, необходимо назначить ему дополнительную кнопку или пункт меню. Для этого нужно зайти в меню Вид \ Панель инструментов \ Настройка, выбрать вкладку Команды, в правой половине окна выбрать Макросы, а слева Кнопку или Пункт меню. Перетащить элемент Кнопка (Пункт меню) на панель инструментов (в меню Сервис, подменю Макрос). Закрыть окно настройки панели инструментов. Нажать на созданную кнопку и присвойте ей макрос AutoOpen. Проверить работу Кнопки (Пункта меню).

1. Макарова Н.В. Информатика. Практикум по технологии работы на компьютере. Уч. пособие для студ. эконом. спец. вузов. 3-е изд. – М.: Финансы и статистика, 2001. – 255 с.

2. Хенкер Е.К. Практикум по информатике. - М.: Издательский центр «Академия», 2001.

3. Комягин В.Б., Коцюбинский А.О. Excel 7 в примерах: практическое пособие / М.: Нолидж, 1996. – 432 с.

4. Информатика. Учебник. Соболь Б.В. и др. 3-е изд-е, доп. и перераб. – Ростов н/Д: феникс, 2007. – 446 с.

Лабораторная работа № 2. Использование адресации различных типов 14

Лабораторная работа № 4. Создание таблицы с использованием сложно вложенных функций 23

Лабораторная работа № 5. Построение диаграмм 25

Лабораторная работа № 7. Использование сводных таблиц. 40

Лабораторная работа № 8. Работа с шаблонами документов. 46

Лабораторная работа №9. Работа с базой данных. 47

Лабораторная работа №10. Создание документов на основе шаблонов, связанных с базой данных 51

Подготовка к контрольной работе в среде Excel 55

Лабораторная работа № 11. Элементы программирования в Excel на языке Visual Basic 56

Лабораторная работа № 12. Программирование алгоритмов линейной структуры 60

Лабораторная работа № 13. Программирование разветвляющихся вычислительных процессов 64

Лабораторная работа № 14. Программирование алгоритмов циклической структуры 67

Лабораторная работа № 15. Создание диалогов 69

Лабораторная работа № 16. Создание диалоговых окон 73

Аксянова А.В., Александровская Ю.П., Валеева А.Н., Валеева Д.Н., Филиппова Н.К., Владимирова И.С.

ЧТО ТАКОЕ УВЕРЕННОЕ ПОВЕДЕНИЕ В МЕЖЛИЧНОСТНЫХ ОТНОШЕНИЯХ? Исторически существует три основных модели различий, существующих между...

Что делает отдел по эксплуатации и сопровождению ИС? Отвечает за сохранность данных (расписания копирования, копирование и пр.)...

Система охраняемых территорий в США Изучение особо охраняемых природных территорий(ООПТ) США представляет особый интерес по многим причинам...

Живите по правилу: МАЛО ЛИ ЧТО НА СВЕТЕ СУЩЕСТВУЕТ? Я неслучайно подчеркиваю, что место в голове ограничено, а информации вокруг много, и что ваше право...

Не нашли то, что искали? Воспользуйтесь поиском гугл на сайте: