End Sub. Некоторые комментарии к программе

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

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox1 из диапазона, к объекту ListBox1 применяется свойство RowSours, с помощью которого устанавливается диапазон, содержащий элементы списка, в данном случае "A1:B8";

– Так как данные, передаваемые из указанного диапазона, в объект ListBox1 представляют собой таблицу, состоящую из двух столбцов, то, к объекту ListBox1 применяется свойство .ColumnCount, значение которого устанавливаетчисло столбцов в списке = 2;

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

Заполнение списка поэлементно, если список состоит из нескольких колонок

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

Private Sub CommandButton1_Click()

UserForm4.Show