Объект «Контрольный индикатор».

· Чтобы вставить контрольный индикатор, нужно выбрать пиктограмму «Флажок», переместить ее на бланк, затем установить нужный размер и написать строку текста, которая обозначает действия индикатора.

· Чтобы определить включен или выключен контрольный индикатор, надо использовать набор

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» на листе «Пример» будет номер элемента, выбранного в выпадающем окне с именем «ОКНО».

Наши рекомендации