О тмена итогов
Для отмены подведения итогов выполняются следующие действия:
Установить курсор за пределами таблицы, выбрать команду Сервис/Макрос/Начать запись. Задать макросу имя Итоги_отмена, нажать ОК
Выделить ячейку А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
Для кнопки «Титульный лист» назначаем гиперссылку для перехода на титульный лист.
Для всех остальных кнопок назначаем соответствующие макросы. Создаем стрелку для перехода на лист Отчеты и функции.
Л ист 5. Отчеты и функции
Для получения отчетов будем использовать возможность отбора данных из таблицы с помощью элементов управления, расширенного фильтра и функции ИНДЕКС из категории «Ссылки и массивы». На листе также должны быть использованы пять функций рабочего листа из категории «Работа с базой данных»: ДМАКС, ДМИН, ДСРЗНАЧ, БДСУММ, БСЧЕТ.
Для получения отчетов и для расчета функций необходимо предварительно на свободном месте рабочего листа создать критерий, который создается так же, как и для расширенного фильтра. Для создания таблицы критериев выделяем ячейки A10:G10 (заголовки таблицы БД) и копируем их в ячейки A1:G1. Строка 2 будет содержать критерии для фильтрации данных.
Создадим на листе 9 кнопок: Получить отчет, Отменить все, ДМАКС, ДМИН, ДСРЗНАЧ, БДСУММ, БСЧЕТ, Отмена расчетов, Титульный лист.