End Sub

Некоторые комментарии к программе:

– В модуле Private Sub ListBox1_Click(), программно поддерживающем объект ListBox1, к объекту ListBox1 применяется свойство .Text, которое позволяет получить значение текущего выбранного элемента объекта ListBox1. Этозначение присваивается объекту TextBox1, а так как выбран “сентябрь”, то этот элемент и отображен в окне объекта TextBox1. Кроме того, этот же элемент списка объекта ListBox1 выведен в ячейку десятой строки и пятого столбца таблицы Excel;

– Модуль объекта CommandButton2, который в свойстве Caption переименован в “Отменить”,обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm2 метода Hide ( скрыть ).

Заполнение списка из диапазона, в который предварительно введены элементы списка

Вызов объекта UserForm3, на базе которого организуется заполнение списка объекта ListBox1 из диапазона, осуществляется с помощью следующего программного модуля:

Private Sub CommandButton3_Click()

UserForm3.Show