Итоги по фио продавца
Для подведения итогов по ФИО продавца выполняются следующие действия:
Установить курсор за пределами таблицы в ячейке A1, выбрать команду Сервис/Макрос/Начать запись. Задать макросу имя Итоги_фио, нажать ОК
Установить курсор в ячейку А10 и выполнить команду Данные/Сортировка для группировки данных в столбце ФИО продавца
Вызвать команду Данные/Итоги и задать следующие параметры:
Нажать ОК и выбрать команду Сервис/Макрос/Остановить запись
В результате получится таблица:
Итоги по наименованию фруктов
Для подведения итогов по наименованию фруктов выполняются следующие действия:
Установить курсор за пределами таблицы в ячейке A1, выбрать команду Сервис/Макрос/Начать запись. Задать макросу имя Итоги_наим, нажать ОК
Установить курсор в ячейку А10 и выполнить команду Данные/Сортировка для группировки данных в столбце Наименование
Вызвать команду Данные/Итоги и задать следующие параметры:
Нажать ОК и выбрать команду Сервис/Макрос/Остановить запись
В результате получится таблица:
Итоги по дате и наименованию фруктов
Для решения задачи необходимо было получить итоги по дате и наименованию фруктов. Создадим макрос итоги_дата_и_наим.
Установить курсор за пределами таблицы в ячейке A1, выбрать команду Разработчик/Запись макроса. Задать макросу имя итоги_дата_и_наим, нажать ОК
Установить курсор в ячейку А10 и выполнить команду Данные/Сортировка для группировки данных в столбцах Дата и Наименование (т.е. задать два уровня группировки)
Вызвать команду Данные/Структура/Промежуточные итоги, задать следующие параметры для поля дата продажи (первый уровень сортировки)и нажать Ок:
Затем еще раз выполнить команду Данные/Структура/Промежуточные итоги и задать параметры для поля Наименование (второй уровень сортировки), снять флажок в окне Заменить текущие итоги – для того чтобы сохранились итоги по дате - и нажать Ок:
В результате получится таблица:
Для того, чтобы посмотреть только итоговые цифры, нужно нажать на цифру 3 в уровнях структуры. Получим таблицу:
О тмена итогов
Для отмены подведения итогов выполняются следующие действия:
Установить курсор за пределами таблицы, выбрать команду Сервис/Макрос/Начать запись. Задать макросу имя Итоги_отмена, нажать ОК
Выделить ячейку А10, вызвать команду Данные/Итоги и нажать кнопку Убрать все
Выполнить команду Данные/Сортировка для сортировки данных по столбцу №п/п
Нажать ОК и выбрать команду Сервис/Макрос/Остановить запись
Модулю, в котором записаны все программы для работы с листом «итоги» задаем имя «№4_итоги».
Во все макросы, кроме макроса «итоги_отмена», для отмены действия подведения итогов добавляем после названия строку
Call итоги_отмена
Полный текст полученного модуля:
Sub итоги_фио()
Call итоги_отмена
Range("A10").Select
Range("A10:G40").Sort Key1:=Range("D11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Sub итоги_наим()
Call итоги_отмена
Range("A10").Select
Range("A10:G40").Sort Key1:=Range("E11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
Sub Итоги_дата_и_наим()
' Итоги_дата_и_наим Макрос
ActiveWorkbook.Worksheets("итоги").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("итоги").Sort.SortFields.Add Key:=Range("C11:C50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("итоги").Sort.SortFields.Add Key:=Range("E11:E50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("итоги").Sort
.SetRange Range("A10:G50")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=5, Function:=xlSum, TotalList:=Array(6, 7), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
End Sub
Sub итоги_отмена()
Range("A10").Select
Selection.RemoveSubtotal
Range("A10:G40").Sort Key1:=Range("A11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Для кнопки «Титульный лист» назначаем гиперссылку для перехода на титульный лист.
Для всех остальных кнопок назначаем соответствующие макросы. Создаем стрелку для перехода на лист Отчеты и функции.