Программные средства персональных компьютеров

Преобразуем таблицу в  подходящий для нас формат (рис.7.3)

Рис.7.3

Заполняем параметры сводной таблицы (рис. 7.4).

Рис. 7.4

Заполняем дальнейшие параметры как на рис. 7.5.

 

Рис. 7.5

В результате имеем сводную таблицу, показанную на рис. 7.6.

Рис. 7.6

Далее создаем  форму(кнопку) выбрав необходимый пункт меню : :Всатвка\Иллюстрации\Фигуры

 

Пишем форму (рис. 7.7). Код формы:

Private Sub UserForm_Activate()

ComboBox1.Clear

For i = 2 To 6

  ComboBox1.AddItem Cells(4, i)

Next i

End Sub

 

Private Sub ComboBox1_Change()

Label2.Caption = (Cells(9, (ComboBox1.ListIndex) + 2))

End Sub

 

Рис. 7.7

Пишем макрос вызова формы. Код формы:

Sub forma()

UserForm1.Show

End Sub

 

Результат виден  на рис 7.9.

Для создания пользовательского формата данных нажимаем правой кнопкой мыши на ячейку / Формат ячеек / Число / Все форматы. Вводим наш формат:

«0;"МИНУС" 0;[Зеленый]* @»

Результат виден  на рис. 7.8.

Рис. 7.8

Результат

 

Рис. 7.9

 

 

 

 

 

 

 

 

 

 

 

 

Перечень использованных источников литературы

 

1. А. Гладкий, А. Чиртик. Трюки и эффекты Excel. —  СПб.: Питер, 2006. — 368 с.
2. http://shkola.lv [электронный ресурс]
3. Справка Microsoft Excel
4. http://www.allexcel.info/  [электронный ресурс]
5. http://www.rusnauka.com [электронный ресурс]