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

UptoLike

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

Рубрика:

ListBox1.AddItem (Cells(Строка_списка + i, Колонка_списка).Value)

ListBox1.List(i, 1) = Cells(Строка_списка + i, Колонка_списка + 1).Value

Next i

End Sub

Рис. 15. Исходный лист для программируемой задачи.

В программе используется свойство ColumnCount классов ComboBox и ListBox,

позволяющее задавать количество полей в списках, а также методы Clear и AddItem,

обеспечивающие начальную очистку и добавление строк в список. Во вторые ко-

лонки созданных списков с использованием свойства List занесены соответственно

адреса ячеек, в которые будут записаны значения начисленной заработной платы и

сами значения используемых ставок.

Пример 33. Работа с созданной формой заключается в выборе значения

ставки и фамилии сотрудника, которому эта ставка назначается. Эти действия сво-

дятся к работе с Полем со списком и Списком и обеспечиваются библиотечными

функциями классов ComboBox и ListBox. Специальных действий, связанных с созда-

ваемой формой, не требуется, поэтому никаких пользовательских процедур обра-

ботки событий в Поле со списком и Списке не создается. После того, как выбор

сделан, должны быть произведены изменения на рабочем листе Excel. Командой

на внесение изменений является нажатие кнопки Запись создаваемой формы. Если

щелкнуть мышкой по этой кнопке, возникает событие Click, которое обрабатывается

процедурой CommandButton1_Click, связанной с этой кнопкой.

Private Sub CommandButton1_Click()

Dim Запись As String 'Хранение адреса записи

Dim Выбор%, ВыборCombo%

'Определение номера выбранной строки списка

Выбор = ListBox1.ListIndex

'Определение номера выбранной строки поля со списком

ВыборCombo = ComboBox1.ListIndex

If ВыборCombo >= 0 Then

'Определение адреса ячейки. Адрес возвращается в формате A1

'Проверка факта выбора

If Выбор >= 0 Then