- •Таблица 1
- •Таблица 2
- •Таблица 3
- •Таблица 4
- •Таблица 6
- •Таблица 7
- •10.2. Задание для выполнения на компьютере
- •10.3. Контрольные вопросы
- •11.3. Контрольные вопросы
- •Рис. 12.2. Листы рабочей книги «Товары» и «Заказчики» со списками
- •Range(«a11:e11»).ClearContents
- •12.3. Контрольные вопросы
- •Рис. 13.1. Вид заполненного бланка приложения «Извещение»
- •При создании программы для командной кнопки «Должники» необходимо учитывать, что в ней будут обращения из текстового документа к объектам, принадлежащим табличным документам Excel.
- •Рис. 13.2. Интерфейс диалогового окна проекта «Извещение»
- •Dim tab1 As Worksheet
- •13.3. Контрольные вопросы
- •Анкета «Заказ товара» может быть обработана программой процедуры обработки события OnClick для командной кнопки «Информация о заказе» следующего вида:
- •Рис. 14.6. Окно сообщения с информацией о заказе
- •14.2. Задание для выполнения на компьютере
- •14.3. Контрольные вопросы
- •Рис. А2.1. Примерный интерфейс приложения «Калькулятор»
- •Next
12.2.Задание для выполнения на компьютере
1.Создать на листе рабочей книги Excel интерфейс бланка счетфактуры, соответствующий виду, представленному на рис. 12.1.
2.Создать списки товаров и заказчиков на отдельных листах рабочей книги со столбцами, соответствующими виду, представленному на рис. 12.2.
3.Добавить в проект табличного документа пользовательскую форму и создать на ней интерфейс, приведенный на рис. 12.3.
4.Создать программу для кнопки «Заказ» на листе «Бланк».
5.Создать программу для комбинированного списка ComboBox2, выводящую на форму количество оставшегося на складе товара.
6.Создать программу для кнопки «Принять» на пользовательской форме UserForm1.
7.Создать программы для командных кнопок «Очистить» и «Отменить»
8.Создать макрос для проекта, выделяющий заполненный бланк счет-фактуры и выводящий его на печать.
9.Проверить и отладить работу всех программ счет-фактуры.
12.3.Контрольные вопросы
1.Как добавить в проект табличного документа Excel пользовательскую форму?
2.Как создать программу для элемента управления в проекте табличного документа Excel?
3.Как организовать заполнение комбинированных списков на пользовательской форме исходно информацией?
4.Как вывести дату в ячейку электронных таблиц?
5.Как организовать подсчет номера оформленной счет-
фактуры?
6.Как вывести на пользовательскую форму количество оставшегося на складе товара?
7.Как организовать учет стоимости доставки в стоимости това-
ра?
8.Как заполнить бланк счет-фактуры после диалога на пользовательской форме?
9.Как очистить бланк счет-фактуры заполняемой информацией?
10.Как распечатать заполненный бланк счет-фактуры?
110
13. СОВМЕСТНАЯ ОБРАБОТКА НА VBA ДОКУМЕНТОВ
WORD И EXCEL
13.1.Общие сведения
Вкачестве простейшего примера совместной работы двух приложений, входящих в пакет Microsoft Office – Excel и Word, рассмотрим задачу рассылки извещений, созданных в редакторе Word, тем предполагаемым заказчикам, которые сделали заказ в соответствии с оформленной в Excel счет-фактурой, но не перевели деньги на счет фирмы, отправившей товар.
Заказчик |
Товар |
Кол-во |
Стоимость |
Дата |
№ сч- |
Оплата |
|
|
|
|
|
факт. |
|
Луч |
Стул |
10 |
1100 |
11 Март, 2002 |
25 |
да |
Восток |
Кресло |
5 |
2000 |
11 Март, 2002 |
26 |
|
Восток |
Стол |
5 |
1600 |
12 Март, 2002 |
28 |
да |
Вест |
Кресло |
5 |
2000 |
12 Март, 2002 |
29 |
|
Рис. 13.1. Структура листа «Заказы» для создания архива заказов
Предварительно надо усовершенствовать программу работы электронной счет-фактуры, добавив в нее процедуру создания архива всех заказов в соответствии с заполняемым бланком. Для фиксирования информации о заказанных товарах необходимо в проект счетфактуры добавить лист «Заказы», куда должна заноситься информация о произведенном заказе перед ее удалением. Это может выполнить программа для уже имеющейся кнопки «Очистить» на бланке счет-фактуры (рис. 13.1), в начало которой нужно добавить следующий программный код
i = 1
Do While Worksheets(«Заказы»).Cells(i, 1) <> «» i = i + 1
Loop
Worksheets(«Заказы»).Cells(i, 1) = Range(«c6») Worksheets(«Заказы»).Cells(i, 2) = Range(«b11») Worksheets(«Заказы»).Cells(i, 3) = Range(«c11») Worksheets(«Заказы»).Cells(i, 4) = Range(«c14») Worksheets(«Заказы»).Cells(i, 5) = Range(«c17») Worksheets(«Заказы»).Cells(i, 6) = Range(«e5»)
111
