Практикум 10. Макросы на складе Создать таблицу как на рис. A

Вид материалаПрактикум

Содержание


03 апреля 2004 года.
Дежурный по складу
Было в кассе утром
Подобный материал:
Практикум 10. Макросы на складе

Создать таблицу как на рис. 1.




A

B

C

D

E

F

G

H

I

J

1




Дата:




03 апреля 2004 года.













2




Дежурный по складу:

ФИО




















3







Было: кол-во (шт)




Цена продажи за 1 штуку

Цена покупки за 1 штуку




4

№ поз

Имеется

Продано шт.

Куплено

Стало

Стоимость

Стоимость

5

1

Шайба

2400







2400

0,03

=D5*G5

0.02

=E5*I5

6

2

Винт

120







120

0,05

=D6*G6

0.03

=E6*I6

7

3

Гайка

80







80

0,03

=D7*G7

0.02

=E7*I7

8

4

Уховерт

50







50

4,5

=D8*G8

4

=E8*I8

9

5

Ключ

24







24

3,8

=D9*G9

3.3

=E9*I9

10

6

Гвоздь 200 мм

4000







4000

0,02

=D10*G10

0.01

=E10*I10

11































12




Было в кассе утром

150






















13



Напродавали


























14



Напокупали


























15



Стало


=C13+C14-C15























Цель: макрос должен после занесения данных о проданных и купленных изделиях автоматически вычислять, сколько изделий стало на складе, а также сумму продаж и покупок и наличность в кассе.

Макрос создаем по следующему подробному словесному алгоритму.
  1. Выделить базовую ячейку (В11).
  2. Выбрать команду меню Сервис\ Макрос/Начать запись (дать маросу имя Касса, назначить «горячую» клавишу).
  3. Занести в ячейку D11 формулу =F5-D5.
  4. Скопировать её в интервал D11:D16.
  5. Скопировать этот интервал в буфер обмена.
  6. Курсор поместить в ячейку F5.
  7. Выбрать команду меню Правка\Спецвставка\Значения\Ок.
  8. Занести в ячейку Е11 формулу =F5+E5.
  9. Скопировать ее в интервал Е11:Е16.
  10. Скопировать этот интервал в буфер обмена.
  11. Курсор поместить в ячейку F5.
  12. Выбрать команду меню Правка\Спецвставка\Значения\Ок..
  13. Занести в ячейку Н11 формулу =сумм(Н5:Н10).
  14. Занести в ячейку Н12 формулу =Н11+С14.
  15. Курсор поместить в ячейку Н12.
  16. Скопировать ее в буфер обмена.
  17. Курсор поместить в ячейку С14.
  18. Выбрать команду меню Правка\Спецвставка\Значения\Ок..
  19. Занести в ячейку J11 формулу =сумм(J5:J10).
  20. Занести в ячейку J 12 формулу =J11+С15.
  21. Курсор поместить в ячейку J12.
  22. Скопировать ее в буфер обмена.
  23. Курсор поместить в ячейку C15.
  24. Выбрать команду меню Правка\Спецвставка\Значения\Ок..
  25. Выделить интервал D11:E16.
  26. Очистить.
  27. Выделить интервал Н11:J16.
  28. Очистить.
  29. Остановить запись макроса.
  30. Проверить работу макроса.
  31. В случае ошибок повторить запись, если всё нормально, сдать работу преподавателю.
  32. Сохранить документ в папке своего класса под именем Macros1.