7.3 Теоретические сведения о пользовательском формате
Пользовательские форматы могут содержать до четырех секций кодов, отделенных точками с запятой: «Положительный формат; Отрицательный формат; Нулевой формат; Текстовый формат».
Если пользовательский формат содержит только одну секцию, Excel применяет этот формат к положительным, отрицательным и нулевым значениям. Если пользовательский формат содержит две секции, первая применяется к положительным и нулевым значениям, а вторая - к отрицательным. Код для текстовых значений должен располагаться в последней секции пользовательского формата, поэтому, если текстовая секция не будет включена, то формат не будет действовать на текстовые значения.
Использование условий в пользовательских форматах
При определении форматов можно использовать операторы сравнения <, >, =, <=, >=, <>
7.4 Выполнение задания
Создаем лист, копируем таблицу из условия. Заполняем таблицу. В ячейку D5 вписываем формулу: =C8*50, в ячейку E5: =D8*1,53, в ячейку G5: =(E8/100)*F8, в ячейку H5: =E8+G8 . После чего, с помощью «Автозаполнение» заполняем диапазоны D5:D12, E5:E12, G5:G12, H5:H12.
По данным таблицы создаем диаграмму как описано в пункте 1.3, только добавим дополнительную вертикальную ось, так как значения различаются довольно сильно.
Создаем сводную таблицу, как описано в пункте 7.2. При этом макет будет выглядеть следующим образом:
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Названия строк |
Максимум поля Доплата к зарплате в % |
Максимум по полю Отраб. Часов |
Максимум по полю Зарплата с Рк и без допл |
Максимум поля Зарплата с Рк и с допл |
Сумма поля Доплата к зарплате в % |
Сумма по полю Зарплата с Рк и с допл |
Сумма поля Зарплата с Рк и без допл |
Среднее поля Отраб. Часов |
Среднее поля Доплата к зарплате в % |
Среднее поля Доплата к зарплате в рублях |
Среднее поля Зарплата с Рк и с доплатой |
Среднее по полю Зарплата без Рк и без доплаты |
|
Антохин А.Р |
10 |
162 |
12393 |
13632,3 |
10 |
13632,3 |
12393 |
162 |
10 |
1239,3 |
13632,3 |
8100 |
|
Борискин В.Н |
10 |
164 |
12546 |
13800,6 |
10 |
13800,6 |
12546 |
164 |
10 |
1254,6 |
13800,6 |
8200 |
|
Зверев А.В |
10 |
162 |
12393 |
13632,3 |
10 |
13632,3 |
12393 |
162 |
10 |
1239,3 |
13632,3 |
8100 |
|
Иванов А.П |
10 |
160 |
12240 |
13464 |
10 |
13464 |
12240 |
160 |
10 |
1224 |
13464 |
8000 |
|
Кузнецов В.А |
50 |
158 |
12087 |
18130,5 |
50 |
18130,5 |
12087 |
158 |
50 |
6043,5 |
18130,5 |
7900 |
|
Кузьмин Н.В |
10 |
154 |
11781 |
12959,1 |
10 |
12959,1 |
11781 |
154 |
10 |
1178,1 |
12959,1 |
7700 |
|
Сидоров А.К |
20 |
157 |
12010,5 |
14412,6 |
20 |
14412,6 |
12010,5 |
157 |
20 |
2402,1 |
14412,6 |
7850 |
|
Шарапов В.С |
0 |
155 |
11857,5 |
11857,5 |
0 |
11857,5 |
11857,5 |
155 |
0 |
0 |
11857,5 |
7750 |
|
Общий итог |
50 |
164 |
12546 |
18130,5 |
120 |
111888,9 |
97308 |
159 |
15 |
1822,6125 |
13986,1125 |
7950 |
|
Рис. 7.1 Мастер сводных таблиц
Для того, чтобы разработать форму, позволяющую просмотреть прирост объёма производства, воспользуемся встроенным языком Visual Basic.
Далее создаем форму:
На неё перетянем метки (Label1, Label2) с поясняющим текстом; 1текстовое окно (Textbox1), куда будут выводиться результаты; список (Combobox1), куда добавим виды продукции (с помощью свойства RowSource). Работа формы будет основана на синхронном изменении свойств TextBox1.Value (то, что содержит и что будет отображаться в окнах Textbox) в зависимости от свойства ComboBox1.Text (то, что выбрано из списка.)
В Combobox1 введём следующий код:
Private Sub ComboBox1_Change()
If ComboBox1.Value = "Иванов А.П" Then
TextBox1.Value = Worksheets("Лист7").Cells(5, 7)
ElseIf ComboBox1.Value = "Кузьмин Н.В" Then
TextBox1.Value = Worksheets("Лист7").Cells(6, 7)
ElseIf ComboBox1.Value = "Зверев А.В" Then
TextBox1.Value = Worksheets("Лист7").Cells(7, 7)
ElseIf ComboBox1.Value = "Сидоров А.К" Then
TextBox1.Value = Worksheets("Лист7").Cells(8, 7)
ElseIf ComboBox1.Value = "Кузнецов В.А" Then
TextBox1.Value = Worksheets("Лист7").Cells(9, 7)
ElseIf ComboBox1.Value = "Борискин В.Н" Then
TextBox1.Value = Worksheets("Лист7").Cells(10, 7)
ElseIf ComboBox1.Value = "Антохин А.Р" Then
TextBox1.Value = Worksheets("Лист7").Cells(11, 7)
ElseIf ComboBox1.Value = "Шарапов В.С" Then
TextBox1.Value = Worksheets("Лист7").Cells(12, 7)
End If
End Sub
Далее создадим кнопку на рабочем листе, в коде её пропишем команду Userform1.show, чтобы по нажатию выводилась наша форма.
5. Для задания пользовательского формата вызываем окно «Формат ячеек» и заполняем его, как показано на рисунке 7.2
Рис 7.2. Окно Формат ячеек
На листе это будет отображаться следующим образом:
