3.3. Использование макросов

3.3.1. Создать таблицу Продажи (табл. 16).

Таблица 16

№ п/п	Товар	Цена	1-й кварт.	2-й кварт.	3-й кварт.	4-й кварт.
1	Бальзам "Абу-Симбел"	120	20	15	95	66
2	Бальзам "Демидов"	153	45	150	32	50
3	Бальзам "Русский"	200	82	65	45	47
4	Бальзам "Сто трав"	95	23	45	66	82
5	Витамин В12	45	100	89	23	45
6	Витамин С	67	123	160	95	66
7	Гель "Для ванны"	90	200	26	98	69
8	Гель "Здоровье"	80	45	47	450	230
9	Крем "Бальзам"	25	32	50	82	65
10	Крем "Бальзам"	25	32	26	45	150
11	Крем "Елена"	29	87	160	32	50
12	Поливитамины	25	450	230	123	160
13	Рыбий жир	40	98	69	200	26
14	Соль "Беби"	100	65	80	450	230
15	Соль "Хвойная"	70	95	66	82	65

3.3.2. Активизируйте ячейку А1. Выполните команды меню Сервис –Макрос – Макросы. Из диалогового окна выберите имя первого макроса Вставка_строк, нажмите кнопку Выполнить. На листе появились четыре новые строки.

3.3.3. Активизируйте ячейку А1 и запустите второй макрос Создание_заголовка другим способом: нажмите клавиши <Ctrl>+<М>. Заголовок вставлен.

3.4. Закрепление макроса за различными элементами

1. Скопируйте и вставьте табл. 16 без заголовка на новый лист.

3.4.2. Выполните команды меню Сервис – Настройка. На вкладкеКоманды выберите категориюМакросы.Из спискаКоманды перетащите мышьюНастраиваемую кнопкуна панель инструментов. В диалоговом окнеНазначить макрос выберите имя первого макроса, нажмитеОК. Закройте окно. Выполните макрос, щелчком по новой пиктограмме предварительно активизировав ячейкуА1.

3.4.3. Создайте графический объект в виде прямоугольника с помощью панели инструментов Рисование (Вид – Панель инструментов – Рисование)для управления вторым макросом. Для этого:

1. выберите место на листе для кнопки и щелкните по инструменту Прямоугольник;

2. перемещая мышь, нарисуйте прямоугольник;

3. щелкните правой кнопкой мыши по контуру прямоугольника и выберите команду контекстного меню Назначить макрос;

4. введите в поле Имя макросаимя второго макроса и нажмитеОК;

5. выполните макрос, активизировав предварительно ячейку А1.

3.4.4. Создайте кнопочную форму запуска макроса. Для этого:

• выведите на экран панель инструментов Формы(командыВид – Панели инструментов – Формы);

• перенесите с помощью мыши инструмент Кнопкана рабочее поле листа;

• в диалоговом окне Назначить макрос объектувведите в полеИмя макросаимя первого или второго макроса. Если окно не открылось, щелкните по кнопке правой клавишей мыши и выберите эту команду в контекстном меню;

• закройте Формы. Выполните макрос, активизировав ячейкуА1.

3. Отчет по работе

Опишите порядок создания макроса, закрепления за макросом кнопки, создания графического объекта.

Литература: [2], c. 49-54.

Работа 7. ОБРАБОТКА МАССОВЫХ ОТПРАВЛЕНИЙ

1. Цель работы

Научить пользователя производить слияние файлов ExcelиWord.

2. Основные теоретические положения

Операционная система Windowsдает возможность совмещать работы основных приложений пакетаMicrosoftOffice. Например, из информации табличного процессораExcelможно сформировать базу данных вAccess. Можно также осуществить слияние документов табличного процессораExcelи текстового редактораWord.

3. Порядок выполнения работы

Задание. Разработать вWordобразец серийных писем для рассылки должникам по оплате за телефонные услуги. Список должников следует считать из таблицыExcel.

Внимание! Требуется обязательная запись в отчете последовательности всех операций слияния.

Выполнение задания

3.1. Создание файла с данными об абонентах:

3.1.1. Выполните команды меню Файл – Создать (откроется новая книга Excel с чистым рабочим листом).

2. Создать таблицу (табл. 17), которая представляет собой ведомость оплаты за телефонные услуги.

3. В ячейку Е1 ввести заголовок: 1 –должник, 0 – нет.

4. В ячейку Е2 ввести формулу, работающую по правилу: если значение ячейки D2 не равно нулю (т. е. есть задолжность), то ввести 1, иначе – 0.Формула имеет вид =ЕСЛИ(D2=0;0;1).

5. Скопировать формулу на весь список. В графе 1 –должник, 0 –нетстоят единицы, если абонент не заплатил за услуги.

3.2. Подготовка данных об абонентах–задолжниках

3.2.1. Выделите строку заголовков таблицы и выполните команды меню Данные – Фильтр – Автофильтр. Щелкните по кнопке фильтра в графе 1 –должник, 0 –нет и выберите в списке условие1. На экране появится новая таблица (табл. 18), содержащая только те записи, в которых стоит условие1.

3.2.2. Протяните курсор мыши с нажатой левой кнопкой по новой таблице и выполните команды меню Правка – Копировать, затем вставьте на рабочий Лист2 данные из буфера обмена (Правка – Вставить). Получилась новая табл. 18 без кнопок автофильтра.

Таблица 17

	A	B	C	D
1	№ пп	Фамилия И.О.	Телефон	Сумма долга
2	1	Баболина А.И.	213-89-51	75р. 50к.
3	2	Быковская Г.В.	135-67-97	175р.00к.
4	3	Васильева Э.С.	312-77-57
5	4	Воеводина Е.Г.	213-89-52
6	5	Громин Л.С.	432-90-94
7	6	Дмитриев Н.А.	213-89-54	46р. 93к.
8	7	Евдокимова Е.В.	312-11-10
9	8	Евсеева И.А.	312-87-66	25р. 50к.
10	9	Жилина Н.В.	312-11-11
11	10	Земелина Н.И.	432-90-98	0р. 33к.
12	11	Зубарев П.С.	311-45-16
13	12	Ильина К.В.	210-36-87
14	13	Истомина Н.В.	315-45-45
15	14	Итков В.М.	213-77-12
16	15	Карелин М.Ю.	312-89-57	75р. 50к.
17	16	Кузнецова А.Д.	210-85-89
18	17	Ларина В.Г.	213-65-98
19	18	Лавров К.И.	315-78-78
20	19	Лещенков О.Ф.	213-44-81
21	20	Ломова Р.И.	110-15-87
22	21	Макарова Н.Н.	319-11-13	225р. 75к.
23	22	Мошкина О.В.	320-33-54
24	23	Мякишев Л.Д.	312-57-11
25	24	Налина О.М.	432-90-96	18р. 96к.
26	25	Огольцава Е.В.	312-11-19	75р. 50к.
27	26	Одоевская В.Г.	432-89-74
28	27	Оросьева О.В.	110-11-12
29	28	Панин П.П.	112-56-98
30	29	Петрова Н.Р.	186-34-32
31	30	Пташкина О.В.	186-45-67
32	31	Романина Н.Ю.	312-11-14	33р. 50к.
33	32	Рокотов С.В.	315-96-31
34	33	Руковица А.Д.	312-45-73
35	34	Рябов А.Р.	310-12-45
36	35	Санин О.К.	311-60-07
37	36	Стегалина З.С.	135-67-93	885р. 00к.
38	37	Тенина Г.В.	564-05-60
39	38	Тупалев В.П.	552-23-18	75р. 50к.
40	39	Усатов В.В.	212-04-98
41	40	Ушеров Р.И.	213-89-62	23р. 70к.

3.2.3. Для сохранения документа выполнить командыФайл – Сохранить как… – Мои документы – папкаФакультет– ваша Именная папка – в окнеИмя– введите имяАбонент – Сохранить. Закройте документ.