Самостоятельная работа 1, 2, 3

1. Создайте новый файл с именем «Сам1(1-3)». Задание выполняйте на листе 1. Введите в диапазон А1:А6 любые числа. Создайте макрос для очистки диапазона A1:A6. С помощью панели Форма создайте кнопку с надписью «Очистить». Назначить кнопке макрос.

2. На Листе 1 введите в диапазон С2:С6 фамилии ваших друзей, а в диапазон D2:D6 занесите их телефоны. Создайте две кнопки с названием «Выделенное скопировать» и «Вставить». По нажатию первой выделенный диапазон копируется в буфер обмена. По нажатию второй выводится в активную ячейку.

3. На Листе 2 в столбец А введите исходные данные:

Иванов 123-45-67

Петров 123-45-68

Павлов 123-45-69

Смирнов 123-45-70

Сидоров 123-45-71

Киров 123-45-72

Сомов 123-45-73

Необходимо фамилии и телефоны разнести по разным столбцам.

Существует специальная команда Данные — Текст по столбцам.

Технология:

1. Выделите все ячейки столбца А.

2. Выполните Данные — Текст по столбцам.

3. Укажите формат данных — с разделителями. «Далее».

4. Символом с разделителем является пробел. «Далее».

5. Для первого и второго столбца текстовый формат.

6. В окне «поместить в» укажите ячейку С1. Нажмите кнопку «Готово».

Создайте макрос для разбора данных по ячейкам. Привяжите макрос к автофигуре. Создайте макрос для очистки ячеек, в которые заносятся разобранный данные.

Домашняя работа № 1 Подведение промежуточных итогов с применением макросов

1 ЭТАП

1. Новому файлу присвойте имя «дом № 1»

2. Лист 1 переименуйте в Задание 1

3. На листе Задание 1 подготовьте таблицу, представленную на рис 1.

4. В столбце «Сумма» значение рассчитайте по формуле

5. Отсортируйте таблицу по столбцу «Товар»

В процессе подготовки отчетов часто требуется подводить итоги. Возможности Excel позволяют автоматически вносить промежуточные итоги в таблицы, не задавая вручную области или формулы для них. В зависимости от цели отчета, в него может быть включена полная информация рабочего листа, только промежуточные и общие итоги или только общие итоги.

Рассмотрим использование команды Итоги на примере.

Подсчитаем, на какую сумму было продано отдельно ксероксов и отдельно факсов.

• Установите курсор на любую ячейку отсортированной таблицы.

• Выполните команду Данные — Итоги. В диалоговом окне Промежуточные итоги в строке При каждом изменении в выберите из открывшегося списка название графы «Товары», в строке Операции — функцию Сумма, в стоке Добавить итоги по — выберите название графы Сумма, а также для подсчета общего количества суммы по графе Сумма. Активизируйте опцию Итоги по данным.

• Нажмите клавишу ОК

6. При составлении отчета, как правило, требуются не все данные рабочего листа, а только результаты промежуточных итогов. В процессе подведения промежуточных итогов Excel автоматически структурирует рабочий лист. При этом взаимосвязанные данные группируются вместе.

7. Детали структурированных листов можно скрывать, щелкая на пронумерованных кнопках уровней структуры. Чтобы увидеть только общий итог по всем данным, следует щелкать на кнопке первого уровня, а для получения детальной картины всех элементов нужно воспользоваться кнопкой третьего уровня. Знак «+» работает как кнопка отображения деталей, знак «-» работает как кнопка скрытия.

8. Для удаления структуры и итоговых значений с рабочего листа в случае неправильного получения результатов нужно выполнить команду Данные — Итоги. В диалоговом окне щелкнуть на кнопке Убрать все.

Информация о товарах
Товар	Модель №	Название	Стоимость	Цена	Количество	Сумма
Ксерокс	C210GLS	Деловой	1 430,00	1 858,00	438	813804,00
Ксерокс	C300GLS	Деловой	1 716,00	2 231,00	645	1438995,00
Ксерокс	C400GLS	Деловой	4 270,00	5 551,00	534	2964234,00
Ксерокс	C100GLS	Персональный	827,00	1 076,00	564	606864,00
Ксерокс	C100GLS	Персональный	1 608,00	2 090,00	567	1185030,00
Ксерокс	C400GLS	Персональный	6 000,00	7 200,00	328	2361600,00
Ксерокс	C420GLS	Персональный	6 415,00	8 340,00	395	3294300,00
Ксерокс	C110GLS	Профессиональный Плюс	923,00	1 291,00	632	815912,00
Ксерокс	C310GLS	Профессиональный Плюс	2 965,00	3 855,00	437	1684635,00
Ксерокс	C410GLS	Профессиональный Плюс	5 124,00	6 661,00	409	2724349,00
Ксерокс	C500GLS	Профессиональный Плюс	7 378,00	9 591,00	298	2858118,00
Факс	F250G	Деловой	2 551,00	3 316,00	297	984852,00
Факс	F350G	Деловой	2 761,00	3 589,00	437	1568393,00
Факс	F450G	Деловой	3 815,00	4 960,00	289	1433440,00
Факс	F550G	Деловой	5 614,00	7 298,00	108	788184,00
Факс	F100G	Профессиональный	1 840,00	2 090,00	420	877800,00
Факс	F150G	Профессиональный	1 730,00	2 392,00	634	1516528,00
Факс	F300G	Профессиональный	2 761,00	3 589,00	437	1568393,00
Факс	F400G	Профессиональный	3 513,00	4 567,00	324	1479708,00
Факс	F200G	Профессиональный Плюс	2 076,00	2 698,00	432	1165536,00
Факс	F500G	Профессиональный Плюс	4 878,00	6 342,00	211	1338162,00

Рис. 1

2 ЭТАП

1. На листе «Задание 1» создайте макрос подведения промежуточных итогов для исходной таблицы, а также макрос отказа от промежуточных итогов.

2. Для создания 1-ого макроса «Промежуточные итоги»:

• Активизируйте MacroRecorder с помощью команды Сервис — Макрос — Начать запись.

• Присвойте макросу имя «Итоги».

Не выполняйте никаких лишних действий. Все ваши действия фиксируются и записываются. Надо выполнять следующие действия:

• Установите курсор в исходную таблицу

• Если таблица не отсортирована по полю «Товар», то отсортируйте ее с помощью команды Данные — Сортировка

• Затем выполните команду Данные — Итоги

• В диалоговом окне в строке При каждом изменении в выберите из списка название графы «Товары», в строке Операция — функцию Сумма, в строке Добавить итоги по — выберите название графы «Сумма», а также для подсчета общего количества суммы по графе «Сумма». Активизируйте опцию Итоги по данным. Нажмите клавишу ОК.

• Остановите запись макроса, нажав на кнопку Остановить запись.

Просмотрите записанную программу. Для этого выполните команду Сервис — Макрос — Макросы. Выделите макрос Итоги и нажмите кнопку Изменить. Это вызовет появление главного окна редактора VBA с текстом записанного макроса.

3. Для создания 2-ого макроса «Убрать промежуточные итоги»:

• Активизируйте MacroRecorder с помощью команды Сервис — Макрос — Начать запись.

• Присвойте макросу имя УбратьИтоги.

Не выполняйте никаких лишних действий. Все ваши действия фиксируются и записываются. Ваши следующие действия:

• Установите курсор в исходную таблицу

• Выполните команду Данные — Итоги. В появившемся окне щелкните на кнопке Убрать все.

• Остановите запись макроса.

4. На листе «Задание1» создайте кнопки и привяжите к ним созданные макросы подведения промежуточных итогов для исходной таблицы и отказа от промежуточных итогов.

5. Проверьте работоспособность кнопок