Постановка и решение задачи

ПРИМЕР РАЗРАБОТКИ ИНЖЕНЕРНОГО ПРОЕКТА

Пусть на рабочем листе с названием «Товар» располагается таблица вида:

Таблица 12.1

Наименование	Цена, руб	Количество
Стул	80 000
Стол	120 000
Кресло	200 000
Шкаф	1200 000

Шапка таблицы записана в первой строке. На рабочем листе «Заказчики» хранится информация о заказчиках:

Таблица 12.2

Фирма	Адрес	Телефон	Р/с
Рассвет	Минск, ул.Коржа, 2	211-23-34
Восток	Витебск, пр.Мира, 5	222-45-67
Вест	Гродно, ул.Кирова, 1	333-45-78
Луч	Гомель, ул.Буре, 4	444-56-90

Требуется сформировать информацию о заказанном товаре на рабочем листе «Платеж», представленном на рис. 12.1.

Рис. 12.1 – Рабочий лист «Платеж»

Для организации диалога при оформлении заявки заказчиком надо создать диалоговое окно UserForm1 с интерфейсом, представленным на рис. 12.2.

Рис. 12.2 – Форма для выбора товара

На рабочем листе «Платеж» надо расположить кнопки с названиями «Заказ товара» и «Очистка» вне области с информацией. Командная кнопка «Заказ товара» должна заполнить раскрывающиеся списки на форме названиями товаров и фирм-заказчиков исходя из информации, имеющейся на листах «Товары» и «Заказчики» и вызвать на экран форму UserForm1:

Sub CommandButton1_Click()

k = 2

Do While Worksheets(«Заказчики»).Cells(k, 1) <> «»

UserForm1.ComboBox1.AddItem Worksheets(«Заказчики»).Cells(k, 1)

k = k + 1

Дата добавления: 2014-01-20