Dim NS As Integer, NORG As Integer

Dim DS As String, DORG As String

‘Определение последней заполненной строки в столбце А на листе «Сотрудники»;

NS=Application.CountA(Sheets(“Сотрудники”).Range(“A:A”))

‘Определение последней заполненной строки в столбце А на листе «Организации»

NORG=Application.CountA(Sheets(“Организации”).Range(“A:A”))

‘определение диапазона фамилий сотрудников:

’NS преобразуется в строку (функция cstr),

‘ затем складывается (&) со строкой A2:A.

DS=”A2:A”&cstr(NS)

‘определение диапазона наименований организаций:

’NО преобразуется в строку (функция cstr),

‘ затем складывается (&) со строкой A2:A.

DORG=”A2:A”&cstr(NОRG)

‘присваивание имени диапазону, содержащему фамилии

Sheets(“Сотрудники”).Range(DS).Name=”Сотр”

‘присваивание имени диапазону, содержащему организации

Sheets(“Организации”).Range(DORG).Name=”Орг”

‘Далее работаем с пользовательской формой UserForm1.

With UserForm1

‘очистка содержимого полей для ввода: TextBox1,TextBox2, TextBox3, ‘TextBox4, TextBox5, ComboBox1, ComboBox2:

.TextBox1.Text = “ “

.TextBox2.Text = “ “

.TextBox3.Text = “ “

.TextBox4.Text = “ “

.TextBox5.Text = “ “

.ComboBox1.Text = “ “

.ComboBox2.Text = “ “

‘указание источника строк для поля со списком ComboBox1.

.ComboBox1.Rowsource = “Сотр“

‘указание источника строк для поля со списком ComboBox2.

.ComboBox2.Rowsource = “Орг“

‘вывод пользовательской формы на экран.

Show