В пользовательской форме

Алгоритм заполнения поля со списком

End If

If IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then

‘присвоим переменной T содержимое поля ввода TextBox2.

T = TextBox2.Text

‘присвоим переменной V содержимое поля ввода TextBox3

V = TextBox3.Text

‘содержимым надписи Label5 сделаем произведение переменных ‘T и V

Label5.Caption = T * V

‘закрываем условный оператор

Программа должна выполняться всякий раз при изменении содержимого полей TextBox2 и TextBox3, т.е. по событию «изменение поля». Для того, чтобы ввести текст программы, надо в редакторе Visual Basic, в форме UserForm1 щелкнуть правой кнопкой мыши по полю TextBox2, выбрать команду View Code, появятся заголовок программы: Private Sub TextBox2_Change(), а также ее окончание End Sub. Программа набирается между заголовком и окончанием. После набора программы, надо ее скопировать в буфер обмена, перейти к форме UserForm1, щелкнуть правой кнопкой мыши по полю TextBox3, выбрать команду View Code, и после заголовка Private Sub TextBox3_Change() вставить из буфера обмена.

Один из вариантов алгоритма заполнения поля со списком в пользовательской форме приведен на стр. 32, рассмотрим еще один вариант на следующем примере.

Переименовать Лист1 – в Меню, Лист2 – в Поставщики, на листе Поставщики ввести несколько наименований поставщиков. Создать пользовательскую форму, содержащую поле для ввода Товар и поле со списком Поставщик. Налисте Меню создать кнопку для вызова созданной формы. В появляющейся форме поле со списком должно быть заполнено данными с листа Поставщики.

Словесное описание алгоритма:

1. Переименуем листы, на листе Поставщики в столбец А введем заголовок и несколько названий поставщиков.

2. Создадим пользовательскую форму, см. рис.10.

Рис.10. Пользовательская форма для ввода данных о товаре

и поставщике

Пользовательская форма содержит две надписи, одно поле для ввода TextBox1 и поле со списком ComboBox1.

3. Рассчитаем количество заполненных строк в 1-м столбце на листе Поставщики.

4. Определим диапазон, в котором записаны наименования поставщиков, присвоим диапазону имя Список.

5. В пользовательской форме UserForm2 источником поля со списком сделаем Список.

6. На листе Меню создадим кнопку и назначим ей макрос, содержащий текст программы.

Программное описание алгоритма.

Rem Опишем используемые переменные

Дата добавления: 2014-12-08