В пользовательской форме
Алгоритм заполнения поля со списком
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 Опишем используемые переменные