3.8. Использование макросов
При написании программы на VBA, включающей программирование сложных действий с таблицами Excel 2007, можно использовать макросы. Для этого нужно выполнять такие действия в Excel 2007, включив предварительно макрорекордер. Полученные в результате макросы, представляющие по существу программы на языке Visual Basic, могут быть вставлены в программу. Ниже приведен пример использования макросов.
Приложение "Учет продаж"
В данном приложении UserForm используется для ведения базы данных и составления итоговых отчетов. При создании программы на VBA используются макросы, созданные в Excel 2007.
Поставленная задача - учет продаж и финансовых поступлений от предприятий, занимающихся реализацией произведенной продукции, - решается путем создания на языке VBA базы данных в Excel 2007:
Табл. 18
|
Дата |
Наим.организ. |
Кол. |
Цена |
Сумма |
Кол. 1.0 |
Цена |
Сумма |
Всего |
Дата |
Оплата |
Остаток |
|
0.5 | |||||||||||
|
01.янв |
ВИЛАРД |
50 |
2,45 |
122,5 |
|
|
0 |
122,5 |
15.янв |
100 |
22,5 |
|
01.янв |
КАРАТ |
80 |
2,4 |
192 |
|
|
0 |
192 |
|
0 |
192 |
|
01.янв |
КОНДАС |
50 |
2,45 |
122,5 |
20 |
4,4 |
88 |
210,5 |
05.янв |
200 |
10,5 |
|
01.янв |
ЛИГА |
20 |
2,5 |
50 |
|
|
0 |
50 |
|
|
50 |
|
02.янв |
ЛОРА |
100 |
2,6 |
260 |
10 |
4,3 |
43 |
303 |
07.янв |
303 |
0 |
|
02.янв |
СОЛО |
50 |
2,3 |
115 |
|
|
0 |
115 |
|
0 |
115 |
|
02.янв |
ТИГ |
50 |
2,5 |
125 |
|
|
0 |
125 |
|
0 |
125 |
|
03.янв |
АЛЬЯНС |
50 |
2,5 |
125 |
|
|
0 |
125 |
|
0 |
125 |
|
03.янв |
АННА-МАРИЯ |
200 |
2,4 |
480 |
|
|
0 |
480 |
|
0 |
480 |
|
03.янв |
АЯКС |
50 |
2,3 |
115 |
|
|
0 |
115 |
|
0 |
115 |
|
03.янв |
ВИЛАРД |
100 |
2,3 |
230 |
|
|
0 |
230 |
|
0 |
230 |
|
03.янв |
КОНДАС |
100 |
2,5 |
250 |
|
|
0 |
250 |
|
0 |
250 |
|
03.янв |
СТО |
50 |
2,5 |
125 |
|
|
0 |
125 |
|
0 |
125 |
|
03.янв |
ТИГ |
100 |
2,45 |
245 |
|
|
0 |
245 |
10.янв |
200 |
45 |
|
04.янв |
ОЛФОЮ |
50 |
2,3 |
115 |
|
|
0 |
115 |
|
0 |
115 |
|
05.янв |
БЕЛЬКАНТО |
30 |
2,45 |
73,5 |
|
|
0 |
73,5 |
|
0 |
73,5 |
|
05.янв |
ВОЛАНД |
20 |
2,6 |
52 |
|
|
0 |
52 |
|
0 |
52 |
|
05.янв |
КАРАТ |
150 |
2,3 |
345 |
|
|
0 |
345 |
|
0 |
345 |
|
06.янв |
ЛИГА |
100 |
2,5 |
250 |
|
|
0 |
250 |
|
0 |
250 |
|
07.янв |
КОНДАС |
100 |
2,3 |
230 |
|
|
0 |
230 |
|
0 |
230 |
Создание отчетов по фирмам-потребителям и по датам может быть также выполнено по программе, реализованной на VBA, но более просто выполнить все необходимые для этого действия в Excel 2007, включив MacroRecorder. Текст макроса, который будет при этом получен, можно будет включить в программу на VBA.
Указания по выполнению задания
UserForm рекомендуется создать по приведенной ниже форме рис. 39 и с приведенным набором окон ввода/вывода и кнопок управления.
2. При программном создании в Excel 2007 приведенной выше таблицы используйте следующие объекты, методы, свойства и события VBA:
а) Определение текущей пустой строки БД:
НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1
б) Внесение очередной записи в БД:
With ActiveSheet
.Cells(НомерСтроки, 1).Value = Дата
в) Очистка ячеек активного листа рабочей книги Excel 2007:
ActiveSheet.Cells.Clear
г) Заполнение строки заголовков таблицы базы данных:
Range("A1:L1").Value = Array("Дата", "НаимОрганиз", "Кол1", "Цена1", "Сумма1", "Кол2", "Цена2", "Сумма2", "Всего", "Дата_опл.", "Оплата", "Остаток")
Примечание: В именах не должны содержаться символы точки и запятой.
3. Для создания модулей формирования отчетов после создания базы данных создайте макросы в Excel 2007, используя MacroRecorder, затем скопируйте тексты макросов через буфер обмена.
Рис. 39