Отмена функций
Запишем макрос для отмены расчетов. Действия пользователя следующие:
Выбрать команду Сервис/Макрос/Начать запись. Задать имя «функции_отмена»
Выделить ячейки A2:G2 и нажать клавишу Delete
Выделить ячейки J11:J19 и нажать клавишу Delete
Установить курсор в ячейку A1
Выбрать команду Сервис/Макрос/Остановить запись
Модулю, в котором записаны все программы для работы с листом «функции» задаем имя «№5_функции».
Во все макросы, кроме макроса «функции_отмена», для очистки ячеек с результатами расчетов добавляем после названия строку
Call функции_отмена
Полный текст полученного модуля:
Sub функции_ДМАКС()
Call функции_отмена
Range("D2").Select
ActiveCell.FormulaR1C1 = InputBox("Введите ФИО продавца")
Range("G4").Select
ActiveCell.FormulaR1C1 = "=DMAX(R[6]C[-6]:R[36]C,R[6]C,R[-3]C[-6]:R[-2]C)"
End Sub
Sub функции_ДМИН()
Call функции_отмена
Range("E2").Select
ActiveCell.FormulaR1C1 = InputBox("Введите наименование фрукта")
Range("G5").Select
ActiveCell.FormulaR1C1 = "=DMIN(R[5]C[-6]:R[35]C,R[5]C,R[-4]C[-6]:R[-3]C)"
End Sub
Sub функции_ДСРЗНАЧ()
Call функции_отмена
Range("C2").Select
ActiveCell.FormulaR1C1 = InputBox("Введите дату")
Range("G6").Select
ActiveCell.FormulaR1C1 = "=DAVERAGE(R[4]C[-6]:R[34]C,R[4]C[-1],R[-5]C[-6]:R[-4]C)"
End Sub
Sub функции_БДСУММ()
Call функции_отмена
Range("C2").Select
ActiveCell.FormulaR1C1 = InputBox("Введите дату")
Range("G7").Select
ActiveCell.FormulaR1C1 = "=DSUM(R[3]C[-6]:R[33]C,R[3]C,R[-6]C[-6]:R[-5]C)"
End Sub
Sub функции_БСЧЕТ()
Call функции_отмена
Range("G2").Select
ActiveCell.FormulaR1C1 = InputBox("Введите условие для суммы")
Range("G8").Select
ActiveCell.FormulaR1C1 = "=DCOUNT(R[2]C[-6]:R[32]C,R[2]C,R[-7]C[-6]:R[-6]C)"
End Sub
Sub функции_отмена()
Range("A2:G2").Select
Selection.ClearContents
Range("G4:G8").Select
Selection.ClearContents
Range("A1").Select
End Sub
Лист 6. Сводная таблица
Соответствие команд MS Office 2003 и MS Office 2007/10:
Сервис/Макрос/Начать запись |
Разработчик /Запись макроса |
Сервис/Макрос/Остановить запись |
Разработчик/ Остановить запись |
Данные/Сводная таблица |
Вставка/Сводная таблица |
Мастер создания сводных таблиц |
Не выбирается, сразу выходит на Создание |
Рассмотрим порядок создания сводной таблицы в MS Office 2003 и в MS Office 2007/10.
В MS Office 2003 перейти на лист «Продажи», установить курсор внутри таблицы в ячейке A10 и выбрать команду Данные/Сводная таблица. Появится Мастер создания сводных таблиц.
Первый шаг:
Нажать кнопку «Далее»
Второй шаг – выделить всю таблицу вместе со строкой заголовков:
Третий шаг - выбрать место размещения таблицы
нажать кнопку «макет», появится макет сводной таблицы
В этом окне справа расположены заголовки всех столбцов таблицы, а в центре – область построения. Не обязательно, чтобы все столбцы участвовали в создании сводной таблицы.
В область «страница» нужно перетащить мышкой заголовок того столбца, в котором данные повторяются, например, «дата продажи».
В область «строка» поместим столбец «наименование», в область «столбец» поместим столбец «ФИО продавца».
В область «данные» нужно поместить тот столбец, в котором есть числа, так как для них будут выполняться расчеты, например, «сумма».
Один из примеров макета:
Нажать кнопку «ОК», а затем «Готово».
На новом листе появится таблица:
Чтобы создать отчет сводной таблицы в MS Office 2007/10, также надо перейти на лист Продажи, выделить ячейку А10 и затем выполнить команду Вставка/Сводная таблица. В диалоговом окне «Создание сводной таблицы» задать диапазон исходной таблицы и выбрать лист для размещения отчета.
После нажатия на кнопку ОК открывается новый лист и заготовка для создания макета на этом листе.
Область страниц – Фильтр отчета
Область строк, столбцов – Названия строк, Названия столбцов
Область данных – Значения.
Поля исходной таблицы добавляются в список полей сводной таблицы обычным перетаскиванием указателем мыши.
В Фильтр отчета перетаскиваем Дату продажи, в Названия строк – Наименование, в Названия столбцов – ФИО продавца, в Значения – поле Сумма. Отчет сводной таблицы примет вид:
Переименуем лист и зададим ему название «Сводная таблица».
Создаем на листе кнопку «Титульный лист» с гиперссылкой перехода на титульный лист и стрелку перехода на лист Сводная диаграмма.