Контрольная работа: Создание информационного справочника в Excel

Range("книги").Sort Key1:=Range("D11"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

End Sub

В результате выполнения макроса, записи в таблице сортируются по полю «стеллаж»

5. группа сортировка, кнопка полка.

Sub сортировка_полка()

Range("E12").Select

Range("книги").Sort Key1:=Range("E11"), Order1:=xlAscending, Header:= _

xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

DataOption1:=xlSortNormal

End Sub

В результате выполнения макроса, записи в таблице сортируются по полю «полка»

Таблица отсортированная по полю Автор:

Таблица отсортированная по полю Наименование:

При помощи включенного автофильтра, (пункт меню данные - фильтр - автофильтр)

Возможно применение фильтра для выбора определенных записей:

Критерий фильтра жанр = детская

Страница “информация о библиотеке”

На странице «информация о библиотеке», расположена сводная таблица и диаграмма, показывающие количество книг в библиотеке, с распределением по стеллажам и по жанрам.

кнопка «обновить данные» запускает макрос:

Sub обновить()

Range("E14").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotCache.Refresh

End Sub