Объект «Контрольный индикатор».
· Чтобы вставить контрольный индикатор, нужно выбрать пиктограмму «Флажок», переместить ее на бланк, затем установить нужный размер и написать строку текста, которая обозначает действия индикатора.
· Чтобы определить включен или выключен контрольный индикатор, надо использовать набор
CheckBoxes и свойство Value. Если индикатор включен, то свойство Value возвращает значение «1», если выключен, то «-4146»
Sub Контрольный_индикатор1()
Sheets("Пример").Range("A2").Value = DialogSheets("Диалог5").CheckBoxes("Флажок1").Value
End Sub
В результате выполнения этой процедуры в ячейке «А2» на листе «Пример» будет значение «1», если индикатор с именем «Флажок1» на листе «Диалог5» был включен, либо значение «-4146» в противном случае. (пример на листе «Диалог5»)
· Чтобы определить строку текста, располагающуюся справа от индикатора, используют свойство Caption.
Sub Контрольный_индикатор2()
Sheets("Пример").Range("A3").Value = DialogSheets("Диалог5").CheckBoxes("Флажок1").Caption
End Sub
В ячейке «А3» после выполнения этой процедуры будет располагаться строка текста, расположенная справа от индикатора.
Объект «Кнопка выбора».
· Чтобы вставить кнопку выбора, нужно выбрать пиктограмму «Переключатель», переместить ее на бланк, затем установить нужный размер и написать строку текста.
· Чтобы определить включена или не включена кнопка выбора, надо использовать набор OptionButtons и свойство Value. Если кнопка включена, то свойство Value возвращает значение «1», если выключена, то «-4146»
Sub Кнопка_выбора1()
Sheets("Пример").Range("A4").Value = DialogSheets("Диалог6").OptionButtons("КНвыбора").Value
End Sub
Ячейка «А4» содержит значение «1» или «-4146», если кнопка выбора включена или выключена соответственно.
· Чтобы определить строку текста, располагающуюся справа от кнопки выбора, используют свойство Caption.
Sub Кнопка_выбора2()
Sheets("Пример").Range("A5").Value=
DialogSheets("Диалог6").OptionButtons("КНвыбора").Caption
End Sub
(пример на листе «Диалог 6»)
Объект «Окно списка».
Пользователь не имеет возможности редактировать содержимое окна списка и может выбрать только один элемент из списка.
· Чтобы создать окно списка, нужно выбрать пиктограмму «Список», переместить ее на бланк, затем установить нужный размер.
· Чтобы добавить элементы в список можно воспользоваться одним из способов:
1) Выбрав окно списка, щелкнуть правой кнопкой мыши, вызвав, таким образом, меню, в котором открыть команду «Формат объекта». В строку «Формировать список по диапазону» записать ссылку на область таблицы, в ячейках которой находятся элементы списка. В строку «Помещать результат в ячейку» записать ячейку, в которую будет передаваться номер выбранного элемента.
Пример.
Пусть на листе «Пример» в ячейках записана следующая информация:
В ячейке «А6» - зима, в «А7» - весна, в «А8» - лето, в «А9» - осень,
а свойства списка (которые были вызваны командой «Формат объекта») содержат следующую информацию:
«Формировать список по диапазону» Пример!$A$6:$A$9
«Помещать результат в ячейку» Пример!$A$10
Тогда в ячейке «А10» на листе «Пример» будет записан номер выбранного элемента, а список будет содержать значения: зима, весна, лето, осень. (пример на листе «Диалог 7»)
2) Заполнить список можно, используя набор ListBoxes и свойство List.
3) Добавить элемент к списку можно, применив метод AddItem. Этот метод использует два аргумента – строку текста, которая вставляется в список, и индекс, определяющий место нового элемента в списке. Если индекс опущен, новый элемент будет добавлен в конец списка.
Пример процедуры, в которой использованы два последних метода.
Sub Добавление_в_окно_списка()
DialogSheets("Диалог8").ListBoxes("ОКНОсписка").List = Array("зима", "весна", "осень")
DialogSheets("Диалог8").ListBoxes("ОКНОсписка").AddItem "лето", 3
End Sub
Процедура «Добавление_в_окно_списка» присваивает свойству List массив времен года, чтобы поместить эти названия в окно списка. Затем применяется метод AddItem, позволяющий вставить «осень» на место третьего элемента списка. В результате выполнения данной процедуры в списке с именем «ОКНОсписка» на листе «Диалог8» будут находиться названия: зима, весна, осень, лето. (пример на листе «Диалог8»)
Предупреждение:Если сначала заполнить список, используя 1 метод, то изменение даже одного элемента с помощью свойства List (2 метод) разрывает связь между окном списка и областью таблицы. После применения свойства List и ли метода AddItem в списке останутся только те элементы, которые были помещены в него этими свойством и методом. Применять свойство List без разрыва связей можно только для просмотра содержимого списка.
· Чтобы удалить элементы из списка используется метод RemoveItem, использующий два аргумента – индекс и счетчик. Индекс определяет номер элемента списка, с которого начинается удаление, а счетчик – количество элементов, подлежащих удалению. Если счетчик опущен, то по умолчанию он принимается равным 1.
Sub Удаление_из_окна_списка()
DialogSheets("Диалог9").ListBoxes("ОКНОсписка").RemoveItem Index:=1, Count:=1
End Sub
Процедура «Удаление_из_окна_списка» удаляет первый элемент окна списка. (пример лист «Диалог9»)
Чтобы удалить все элементы списка применяется метод RemoveAllItem или RemoveItem с индексом, равным 1, и счетчиком, превышающим количество элементов списка.
Чтобы определить номер элемента из списка пользователя, применяется свойство Value окна списка. Это свойство содержит номер элемента, выбранного из списка.
Sub Выбор_номера_элемента_в_окне_списка()
Sheets("Пример").Range("A13").Value = DialogSheets("Диалог8").ListBoxes("ОКНОсписка").Value
End Sub
После выполнения процедуры «Выбор_номера_элемента_в_окне_списка» в ячейке «А13» на листе «Пример» будет номер элемента, выбранного в окне списка с именем «ОКНОсписка».
Чтобы увидеть сам элемент, нужно выбрать его из свойства List с помощью свойства Value.
Sub Выбор_элемента_в_окне_списка()
With DialogSheets("Диалог8").ListBoxes("ОКНОсписка")
Sheets("Пример").Range("A12").Value = .List(.Value)
End With
End Sub
Окно списка с именем «ОКНОсписка» находится на листе диалога «Диалог8», ячейке «А12» на листе «Пример» присваивается содержимое текущего выбранного элемента в окне списка.
Объект «Выпадающее окно».
Выпадающее окно практически аналогично окну списка, за исключением того, что окно списка размещает список в прокручиваемом окне, а выпадающее окно создает выпадающий список. Доступ к выпадающему окну осуществляется с помощью набора DropDowns.
Чтобы создать выпадающее окно, нужно выбрать пиктограмму «Поле со списком», переместить ее на бланк, затем установить нужный размер.
Чтобы поместить элементы в список, можно использовать команду «Формат объекта» (заполнить строки «Формировать список по диапазону» и «Помещать результат в ячейку»).
Чтобы увидеть элемент выпадающего окна, нужно выбрать его из свойства List с помощью свойства Value, используя набор DropDowns.
Sub Выбор_элемента_в_выпадающем_окне()
With DialogSheets("Диалог10").DropDowns("ОКНО")
Sheets("Пример").Range("A18").Value = .List(.Value)
End With
End Sub
Окно списка с именем «ОКНО» находится на листе диалога «Диалог10», ячейке «А18» на листе «Пример» присваивается содержимое текущего выбранного элемента в выпадающем окне.
Чтобы определить номер элемента в выпадающем окне, применяется свойство Value выпадающего окна. Это свойство содержит номер элемента, выбранного из списка.
Sub Выбор_номера_элемента_в_выпадающем_окне()
Sheets("Пример").Range("A19").Value = DialogSheets("Диалог10").DropDowns("ОКНО").Value
End Sub
После выполнения процедуры «Выбор_номера_элемента_в_выпадающем_окне» в ячейке «А19» на листе «Пример» будет номер элемента, выбранного в выпадающем окне с именем «ОКНО».