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

В результате исполнения добавляется пустая строка над первой строкой в таблице книги.

Группа «сортировка» содержит кнопки, нажатие на которые производит сортировку записей в таблице.

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

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

Range("A12").Select

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

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

DataOption1:=xlSortNormal

End Sub

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

3. группа сортировка, кнопка жанр.

Sub сортировка_жанр()

Range("B11").Select

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

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

DataOption1:=xlSortNormal

End Sub

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

4. группа сортировка, кнопка наименование.

Sub сортировка_название()

Range("C11").Select

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

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

DataOption1:=xlSortNormal

End Sub

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

4. группа сортировка, кнопка стеллаж.

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