цедуры
5. Данная процедура выполняется после щелчка пользователем по кнопке «Отмена». Она вызывает выгрузку формы UserForm из памяти;
6. Нажмите комбинацию клавиш , чтобы повторно отобразить объект UserForm1;
7. Дважды щелкните по кнопке «Ok» и введите следующую процедуру:
Private Sub CommandButton1Click() начало процедуры
Sheets("Лист1"). Activate активизация рабочего листа
(связь с рабочим листом)
NextRow
Application. WorksheetFunction. CountA(Range("A:A")) 1 определение пустой строки в рабочем листе, здесь Count (функция СЧЕТ), Range("A:A")) 1 - выделяет диапазон ячеек, начиная с ячейки А1 с шагом 1
Cells(NextRow, 1) TextBox1. Text передача имени
If OptionButton1 Then Cells(NextRow, 2) "Фирма"
If OptionButton2 Then Cells(NextRow, 2) "Корпорация"
If OptionButton3 Then Cells(NextRow, 2) "Частное предприятие"
проверка условия
TextBox1. Text "" Очистка элементов управления для следующих записей
OptionUnknown True
TextBox1. SetFocus
If TextBox1. Text "" Then
MsgBox "Введите название организации. "
TextBox1. SetFocus
Exit Sub
End If Проверка введения имени
End Sub
8. Перейдите на рабочий лист MS Excel и поместите элемент управления Кнопка панели элементов Visual Basic , после чего появиться диалоговое окно «Назначить макрос объекту», выберите вкладку «Создать». В окне модуля введите код:
Sub Кнопка1Щелкнуть()начало процедуры
UserForm1. Showоткрытие формы
End Sub конец процедуры
Поместите на ней надпись «Нажать» (рис. 45). С помощью этой кнопки будет вызываться разрабатываемое диалоговое окно, показанное на рисунке 44.
Рисунок 45. Законченный вид рабочего листа
Страницы: << < 89 | 90 | 91 | 92 | 93 > >>