Высокоуровневые методы информатики и программирования. Степанов А.Г. - 95 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

95
'Нацеливание рабочей ячейки
Запись = ComboBox1.List(ВыборCombo, 1)
Else
End If
Else
End If
'Запись в по адресу записи значения из второй колонки списка
If Запись <> "" Then
'Адрес определен
Range(Запись).Value = ListBox1.List(Выбор, 1)
Else
End If
End Sub
Процедура использует свойство ListIndex, позволяющее определить номер
выбранного ранее элемента Поля со списком и Списка. Если в процессе работы с
формой выбор в списках был сделан, то эти номера отличны от 0, что и использу-
ется для проверки возможности изменения содержимого ячеек рабочего листа Ex-
cel. Поскольку адрес ячейки, в которую заносится значение ставки, был ранее со-
хранен во второй колонке Поля со списком, а само значение ставки во второй ко-
лонке Списка, эти данные используются для внесения изменений на рабочий лист
Excel.
Пример 34. Работа с созданной формой может проводиться как угодно долго
до тех пор, пока она не будет выключена нажатием кнопки отмены в правом верх-
нем углу формы. В ответ на это запускается процедура прекращения работы с
формой. В нашем случае эта процедура восстанавливает значение выключателя
на рабочем листе.
Восстановление исходного значения выключателя на активном листе
Private Sub UserForm_Terminate()
With ActiveSheet
.ToggleButton1.Value = False
End With
End Sub
Все внедренные на рабочий лист переключатели связаны между собой (см.
стр.
45). Если при конструировании формы возникает необходимость создания не-
скольких независимых групп переключателей, то используются так называемые кон-
тейнеры. В этом случае связь между переключателями реализуется внутри контей-
нера. В качестве одного из вариантов создания контейнера является использование
рамок (Frame).
Для того, чтобы воспользоваться рамкой, ее необходимо внедрить на рабочий
лист. Соответствующая кнопка имеется на панели инструментов Toolbox, открываю-
щейся при конструировании формы (рис.
14). Далее курсором указывается место
размещения рамки на рабочем листе. После того, как рамка внедрена, можно раз-
местить в ней переключатели. Для создания второй группы переключателей нужно
внедрить в форму вторую рамку и установить в ней дополнительные переключатели.

Страницы