5.4. Макросы.

Если какое-то действие часто повторяется, то его можно автоматизировать с помощью макроса. Макроязык основан на запоминании последовательности нажатых клавиш и их последующем воспроизведении. При записи макроса создается код, который можно просматривать и редактировать. Для автоматической записи используется макрорекордер. Макрорекодер - это транслятор, создающий программу (макрос) на языке VBA, которая является результатом перевода на язык VBA действий пользователя с момента запуска рекордера до окончания записи.

Имя макроса	Название кнопки	Предназначение
Sub База_данных()	База данных	Переход в базу данных
Sub Задание_1()	К заданию 1	Переход к задаче 1
Sub Задание_2 ()	К заданию 2	Переход к задаче 2
Sub Задание_3 ()	К заданию 3	Переход к задаче 3
Sub Диаграмма()	Диаграмма	Переход к диаграмме
Sub Автор()	О себе	Переход на страницу автора
Sub В_меню()	В меню	Переход в меню
Sub отобразить_бд	Отобразить	Отобразить таблицу
Sub Решение_1()	выполнить	Выполнение задачи 1
Sub Решение_2()	выполнить	Выполнение задачи 2

5.5. Распечатка макросов.

Sub Меню()

'

' Меню Макрос

' Макрос записан 29.03.2006 (Пархачев)

'

'

ActiveWindow.ScrollWorkbookTabs Sheets:=-1

Sheets("меню").Select

End Sub

****************************************************

Sub База_данных()

'

' База_данных Макрос

' Макрос записан 29.03.2006 (Пархачев)

'

'

Sheets("база данных").Select

Range("b8").Select

End Sub

****************************************************

Sub Задание_1()

'

' Задание_1 Макрос

' Макрос записан 29.03.2006 (Пархачев)

'

Sheets("задание 1").Select

Range("B1").Select

End Sub

Sub Задание_2()

'

' Задание_2 Макрос

' Макрос записан 29.03.2006 (Пархачев)

'

'

Sheets("задание 2").Select

Range("B7").Select

ActiveWindow.ScrollRow = 1

Range("B10").Select

End Sub

****************************************************

Sub Задание_3()

'

' Задание_3 Макрос

' Макрос записан 29.03.2006 (Пархачев)

'

'

Sheets("задание 3").Select

ActiveSheet.PivotTables("СводнаяТаблица4").PivotSelect "'Кошкина П.Р.'", _

xlDataAndLabel

Range("A2").Select

End Sub

****************************************************

Sub диаграмма()

'

' диаграмма Макрос

' Макрос записан 29.03.2006 (Пархачев)

'

'

Sheets("Диаграмма").Select

ActiveChart.ChartArea.Select

End Sub

****************************************************

Sub Автор()

'

' Автор Макрос

' Макрос записан 04.04.2006 (Пархачев)

'

'

ActiveWindow.ScrollWorkbookTabs Position:=xlLast

Sheets("Автор").Select

End Sub

****************************************************

Sub отобразить_бд()

'

' отобразить_бд Макрос

' Макрос записан 05.04.2006 (Пархачев)

'

'

Range("D1").Select

ActiveSheet.ShowAllData

End Sub

****************************************************

Sub Решение_1()

'

' Решение_1 Макрос

' Макрос записан 17.05.2006 (Пархачев)

'

a = InputBox("Введите полное название должности")

'

Range("D5").Select

ActiveCell.FormulaR1C1 = "" & a

Range("E5").Select

ActiveCell.FormulaR1C1 = _

"=DAVERAGE(R[3]C[-3]:R[19]C[3],R[3]C[3],R[-1]C[-1]:RC[-1])"

End Sub

****************************************************

Sub Решение_2()

'

' Решение_2 Макрос

' Макрос записан 17.05.2006 (Пархачев)

'

a = InputBox("введите начальное значение з/п")

b = InputBox("введите конечное значение з/п")

'

Range("D5").Select

ActiveCell.FormulaR1C1 = ">" & a

Range("F5").Select

ActiveCell.FormulaR1C1 = "<" & b

Range("B9").Select

Range("B9:H25").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _

Range("D4:F5"), Unique:=False

End Sub