Ћекции.ќрг


ѕоиск:




 атегории:

јстрономи€
Ѕиологи€
√еографи€
ƒругие €зыки
»нтернет
»нформатика
»стори€
 ультура
Ћитература
Ћогика
ћатематика
ћедицина
ћеханика
ќхрана труда
ѕедагогика
ѕолитика
ѕраво
ѕсихологи€
–елиги€
–иторика
—оциологи€
—порт
—троительство
“ехнологи€
“ранспорт
‘изика
‘илософи€
‘инансы
’ими€
Ёкологи€
Ёкономика
Ёлектроника

 

 

 

 


‘ормирование новой таблицы программным путем




¬ качестве простейшего примера совместной работы двух приложений Excel и Word, рассмотрим задачу рассылки извещений, созданных в редакторе Word, тем заказчикам, которые пожелали приобрести товар в задаче предыдущего параграфа, но не перевели деньги на счет фирмы-продавца.

ѕредварительно надо добавить изменение в программу кнопки Ђѕрин€ть заказї на форме пользовател€ с тем, чтобы информаци€ о сделанном заказе поступала на отдельный рабочий лист с именем Ђ«аказыї, структура которого представлена в табл.13.1.

“аблица 13.1

«аказчик “овар  ол-во ќбща€ стоимость ƒата ќплата
Ћуч —тул   160 000 11.09.08 да
¬осток  ресло   120 000 11.09.08  
¬осток —тол   400 000 12.09.08 да
¬ест  ресло   360 000 12.09.08  

 

Ўапка таблицы на листе имеетс€, надо программным путем сформировать содержимое. ƒл€ этого в программе дл€ кнопки Ђѕрин€ть заказї перед оператором End надо добавить следующий программный код:

i = 2

Do While Worksheets("«аказы").Cells(i, 1) <> ""

i = i + 1

Loop

Worksheets("«аказы").Cells(i, 1) = Worksheets("ѕлатеж").Range("b8")

Worksheets("«аказы").Cells(i, 2) = Worsheets("ѕлатеж").Range("a13")

Worksheets("«аказы").Cells(i, 3) = Worsheets("ѕлатеж").Range("c13")

Worksheets("«аказы").Cells(i, 4) = Worsheets("ѕлатеж").Range("d13")

Worksheets("«аказы").Cells(i, 5) = Worsheets("ѕлатеж").Range("b17")

“огда программа, помимо формировани€ платежной ведомости, будет заполн€ть первые 5 столбцов списка на листе Ђ«аказыї. ¬ таблице Ђ«аказыї имеетс€ столбец Ђќплатаї, который заполн€етс€ бухгалтером при получении сведений об оплате заказа вручную.

«атем в текстовом редакторе Word надо создать шаблон текстового документа Ђ»звещениеї с интерфейсом, представленным на рис. 13.1.

 

 

 

–ис. 13.1 Ц “екст документа Ђ»звещениеї





ѕоделитьс€ с друзь€ми:


ƒата добавлени€: 2015-10-01; ћы поможем в написании ваших работ!; просмотров: 364 | Ќарушение авторских прав


ѕоиск на сайте:

Ћучшие изречени€:

—тудент всегда отча€нный романтик! ’оть может сдать на двойку романтизм. © Ёдуард ј. јсадов
==> читать все изречени€...

1583 - | 1374 -


© 2015-2024 lektsii.org -  онтакты - ѕоследнее добавление

√ен: 0.013 с.