Практикум 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.
