2015-05-10
440Рис. 1.
Перечень работ:
1.1. Откройте новую рабочую книгу и окрасьте видимый диапазон ячеек в синий цвет.
1.2. Щелкните правой кнопкой мыши на любой панели инструментов (ПИ) и выберите в контекстном меню панели команду Формы. На этой ПИ расположены 16 элементов управления, но только 9 из них доступны – это те элементы управления, которые можно использовать в рабочих листах.
1.3. Вставьте кнопки: Старт и Выход следующим образом:
1.3.1. На ПИ Формы выберите элемент управления Кнопка, поместите указатель мыши в то место рабочего листа, где должен находиться верхний левый угол элемента управления.
1.3.2. Нажмите левую кнопку мыши и перетащите указатель рисуя прямоугольник. Этот прямоугольник задаёт размеры вставляемого элемента управления.
1.3.3. Отпустите кнопку мыши. Измените надпись на кнопке. Назначте кнопке Старт и Выход макрос. При нажатии кнопки Cтарт должен открываться лист Главное меню. При нажатии Выход выходим из Excel. Текст макроса для кнопки Старт должен иметь вид:
Public Sub Glavmeny()
|
|
|
Worksheets("Лист2").Activate
End Sub
Лист2 – имя листа на котором находится форма Главное меню.
Текст макроса для кнопки Выход:
Public Sub Выход()
ActiveWorkbook.Close
End Sub
 |
Задание2. Создайте форму Главное меню имеющую следующий вид (рис.2.)
Рис.2.
2.1. Создайте кнопки Итоги и Заставка и 10 кнопок которые будут открывать соответствующий штат Америки.
 |
Задание 3. Создайте10 форм с названием штатов США имеющих следующий вид (Рис.3.).
Рис.3
Задание 4. Создайте два переключателя с названиями Доход и Прибыль. При выборе переключателя Доход будет отображаться диаграмма доходов, при выборе переключателя Прибыль- сравнительная диаграмма прибыли 10 штатов Америки.
Создание элемента управления Переключатель
Создание элемента управления на рабочем листе происходит с использованием ПИ Элементы управления, которая включается командой Вид/Панели инструментов /Элементы управления. Для управления элементами управления во время разработки в среде Excel 97 было введено понятие режима конструктора. Когда режим конструктора включён в Excel 97, можно выделить элементы управления и изменить их размер и свойства.
Для установки свойств элементов управления вручную во время разработки необходимо выделить элемент управления и нажать кнопку Свойства в ПИ Элементы управления, что приведёт к появлению окна Свойства. В нём на одной вкладке находится список свойств элемента управления в алфавитном порядке, а на второй – свойства, упорядоченные по категориям.
В следующем задании нам необходимо создать два переключателя. Переключатель отличается от других элементов управления тем, что позволяет пользователю выделить один из нескольких взаимно исключающих параметра. Чтобы это сделать необходимо одному из переключателей установить свойство. Свойство определяет текст, отображаемый рядом с элементом управления Переключатель. Свойство– указывает имя элемента управления, по которому на него будет производиться ссылка в коде.
|
|
|
Перечень работ:
3.1. Создайте переключатель Доход как описано выше. Установите ему следующие свойства:
Value=True
Caption=Доход
Name= optRevenue
3.2. Создайте переключатель Прибыль, установите ему следующие свойства.
Value=False
Caption=Прибыль
Name= optNetIncome
Задание 4. Создайте диаграмму и свяжите её с элементом управления переключатель.
Перечень работ:
4.1.Создайте диаграмму по столбцу 1997 и Доход.
4.2.Задайте имя диапазону ячеек.
4.2.1. Первый диапазон - первый и второй столбцы таблицы на форме (Рис.3.).
Второй диапазон - первый и третий столбцы той же таблицы. Имя первого диапазона – RevenueRange, второго- NetIncomeRange.
Чтобы дать имя диапазону ячеек, выделите этот диапазон и в поле Имя (с левой стороны в строке формул) введите имя диапазона. Нажмите клавишу Enter.
В зависимости от выбранного переключателя будет строится диаграмма по первому или второму диапазону ячеек.
4.2.2. Войдите в редактор VBA и создайте код следующего вида. Изучите код.
Sub ChangeChart()
Dim rngData As Range
If Лист3.optRevenue.Value = True Then
Set rngData = Лист3.Range("RevenueRange")
Else
Set rngData = Лист3.Range("NetIncomeRange")
End If
Application.ScreenUpdating = False
With Лист3.ChartObjects(1)
.Activate
.Chart.SetSourceData rngData
End With
ActiveWindow.Visible = False
Лист3.Range("A1").Select
End Sub
4.2.3. В окне проекта перейдите на лист который содержит форму Итоги и создайте следующий код для переключателя Доход:
Private Sub optRevenue_Click()
ChangeChart
