3.5 Диаграмма
Диаграмму получаем из сводной таблицы (Выделяем сводную таблицу и кликаем на вкладку вставка):
Получаем нашу диаграмму:
Перемещаем её на отдельный лист.
Рис.5 Перемещение диаграммы
В результате выполнения диаграммы получаем:
Рис.6 Диаграмма
3.6 Работа с макросами
3.6.1 Список макросов
№ |
Имя макроса |
Название кнопки |
Предназначение |
Расположение |
1 |
Переход_в_меню |
Меню |
Переход на лист «Меню» |
На всех листах, кроме «Меню» |
2 |
Переход_на_БД |
К Базе данных |
Переход на лист «База данных» |
Лист «Меню» |
3 |
Переход_на_задание_1 |
Задание 1 |
Переход на лист «Задание1» |
Лист «Меню» |
4 |
Переход_на_задание_2 |
Задание 2 |
Переход на лист «Задание2» |
Лист «Меню» |
5 |
Переход_на_задание_3 |
Задание 3 |
Переход на лист «Задание3» |
Лист «Меню» |
6 |
Переход_на_автора |
Об Авторе |
Переход на лист «Об авторе» |
Лист «Меню» |
7 |
Переход_на_гистограмму |
Гистограмма |
Переход на лист «Гистограмма» |
Лист «Меню» |
8 |
Задание_1 |
Начать |
Выполнение задания1 |
Лист «Задание 1» |
9 |
Задание_1_Очистка |
Очистка |
Очистка задания 1 |
Лист «Задание 1» |
10 |
Задание_2 |
Пуск |
Выполнение задания 2 |
Лист «Задание 2» |
11 |
Задание_2_Очистка |
Очистка |
Очистка задания 2 |
Лист «Задание 2» |
12 |
Задание_3 |
Начать |
Обновление задания 3 |
Лист «Задание 3» |
3.6.2 Распечатка макросов
Sub Задание_1()
' Задание_1 Макрос
'1. Подсчитать наименьшее количество проданных телефонов выбранной фирмы.
i = InputBox("Введите фирму производителя : Nokia, Fly, Apple, Samsung, LG, Sony Ericsson, HTC", "Таблица ввода")
Range("D1").Value = "1. Подсчитать наименьшее количество проданных телефонов для " & i
Range("E20").Value = "Наименьшее количество проданных телефонов для " & i
Range("E22").Select
ActiveCell.FormulaR1C1 = "Фирма"
Range("E23").Select
ActiveCell.FormulaR1C1 = i
Range("F22").Select
ActiveCell.FormulaR1C1 = "Количество проданных телефонов"
Range("E22").Select
ActiveCell.FormulaR1C1 = "Фирма"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Calibri"
.FontStyle = "полужирный"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
.ThemeFont = xlThemeFontMinor
End With
Range("F22").Select
ActiveCell.FormulaR1C1 = "Количество проданных телефонов"
With ActiveCell.Characters(Start:=1, Length:=30).Font
.Name = "Calibri"
.FontStyle = "полужирный"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
.ThemeFont = xlThemeFontMinor
End With
Range("D16").Select
Range("A2:G19").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E22:E23"), CopyToRange:=Range("F22:F23"), Unique:=False
ActiveWindow.SmallScroll Down:=3
Range("F27").Select
ActiveCell.FormulaR1C1 = "Наименьшее количество"
With ActiveCell.Characters(Start:=1, Length:=21).Font
.Name = "Calibri"
.FontStyle = "полужирный"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight2
.TintAndShade = -0.249977111117893
.ThemeFont = xlThemeFontMinor
End With
Range("F28").Select
ActiveCell.FormulaR1C1 = "=MIN(R[-5]C:R[-2]C)"
Range("D27").Select
End Sub
Sub Задание_1_Очистка()
'Задание_1_Очистка Макрос
Range("D20:G77").Select
Selection.Clear
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A1:H1").Select
Selection.Clear
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("D27").Select
End Sub
Sub задание_3()
' задание_3 Макрос
Range("A22").Select
ActiveSheet.PivotTables("СводнаяТаблица1").PivotCache.Refresh
End Sub
Sub Задание_2()
' Задание_2 Макрос
' Вывести список телефонов (номера моделей), стоимость которых задана в виде диапазона.
q = InputBox("Введите начальную стоймость от 0", "Таблица ввода")
w = InputBox("Введите конечную стоймость до 50000", "Таблица ввода")
Range("A1").Value = "2. Вывести список телефонов (номера моделей), стоимость которых задана в виде диапазона " & "от " & q & vbTab & " до " & w & " Шекелей"
Range("B2").Select
Selection.Copy
Range("B22").Select
ActiveSheet.Paste
Range("G2").Select
Application.CutCopyMode = False
Selection.Copy
Range("C22").Select
ActiveSheet.Paste
Range("D22").Select
ActiveSheet.Paste
Range("C23").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ">" & q
Range("D23").Select
ActiveCell.FormulaR1C1 = "<" & w
Range("B23").Select
Range("A2:G19").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"C22:D23"), CopyToRange:=Range("B22:B23"), Unique:=False
End Sub
Sub Задание_2_Очистка()
' Задание_2_Очистка Макрос
Range("A20:G42").Select
Selection.Clear
Range("A1:G1").Select
Selection.Clear
End Sub
Sub Переход_на_задание_1()
' Переход_на_задание_1 Макрос
Sheets("Задание 1").Select
End Sub
Sub Переход_на_задание_2()
' Переход_на_задание_2 Макрос
Sheets("Задание 2").Select
End Sub
Sub Переход_на_задание_3()
' Переход_на_задание_3 Макрос
Sheets("Задание 3").Select
End Sub
Sub Переход_на_гистограмму()
' Переход_на_гистограмму Макрос
Sheets("Гистограмма").Select
End Sub
Sub Переход_на_БД()
' Переход_на_БД Макрос
Sheets("База данных").Select
End Sub
Sub Переход_на_автора()
' Переход_на_автора Макрос
Sheets("Об авторе").Select
End Sub
Sub Переход_в_меню()
' Переход_в_меню Макрос
Sheets("Меню").Select
End Sub