Составители:
Рубрика:
78
заработная плата, а также определены положения на листе списка возможных
используемых ставок и их количество.
Рис. 2.13. Исходный лист для программируемой задачи.
'Инициализация формы
Private Sub UserForm_Activate()
'Объявление переменных с указанием признака %, соответствующего типу Integer
Dim Строка_списка%, Колонка_списка%, Элементов%, i%
'Задание начального адреса размещения поля со списком
Строка_списка = 3
Колонка_списка = 1
'Задание количества элементов списка
Элементов = 4
'Очистка списка и подготовка к его заполнению
ComboBox1.Clear
ComboBox1.ColumnCount = 2
'Заполнение списка тем
For i = 0 To Элементов - 1
ComboBox1.AddItem (Cells(Строка_списка + i, Колонка_
списка).Value)
'Запоминание рабочего адреса
ComboBox1.List(i, 1) = Cells(Строка_списка + i, Колонка_списка + 1).Address
Next i
'Задание начального адреса размещения списка
Строка_списка = 11
Колонка_списка = 1
'Задание количества элементов списка
Элементов = 5
'Очистка списка и подготовка к его заполнению
ListBox1.Clear
ListBox1.ColumnCount = 2
'Заполнение списка тем
For i = 0 To Элементов - 1
ListBox1.AddItem (Cells(Строка_списка + i, Колонка_списка).Value)
ListBox1.List(i, 1) = Cells(Строка_списка + i, Колонка_списка + 1).Value
Страницы
- « первая
- ‹ предыдущая
- …
- 76
- 77
- 78
- 79
- 80
- …
- следующая ›
- последняя »
