1: Private Sub UserForm_Activate()
2: With lstExpenseType
3: .RowSource = "Расходы"
4: .ListIndex =0
5: End With
6:
7: txtDate.Text = Format(Now, "dd/mm/yy")
8:
9: With lstCardType
10: .RowSource = "ТипыКарт"
11: .ListIndex = 0
12: End With
13: End Sub
Для задания значений списков используются одинаковые группы операторов. Так, для списка Типы расходов значения задаются следующими операторами:
With lstExpenseType
.RowSource = "Расходы"
.ListIndex = 0
End With
Свойство RowSource ссылается на имя диапазона, где хранятся значения элементов списка. (Очевидно преимущество использования имени диапазона по сравнению с адресом диапазона - меньше вероятность неправильно ввести ссылку, возможность в дальнейшем переопределить диапазон без изменения кода процедуры, лучшая читаемость кода.) Свойство ListIndex определяет, какой элемент списка будет отображаться при открытии формы - все элементы списка пронумерованы, начиная с нуля.
По-иному задается значение для поля Дата:
txtDate.Text = Format(Now, "dd/mm/yy")
Функция Now возвращает текущую дату, функция Format форматирует текущую дату в соответствии с форматом dd/mm/yy (день месяца, порядковый номер месяца, две цифры года).
