r/> Результат Среднее / n
End If
TextBox1. Text CStr(Format(Результат, "Fixed"))
End Sub
3. Для кнопки «Отмена» напишите следующую процедуру:
Private Sub CommandButton2Click()
UserForm1. Hide
End Sub
4. Для инициализации формы введите следующую процедуру:
Private Sub UserFormInitialize()
With ListBox1
. List Array(1, 2, 3, 4, 5, 6, 7, 8, 10)
. ListIndex 0
. MultiSelect fmMultiSelectMulti
End With
TextBox1. Enabled False
End Sub
5. Запустите проект на выполнение. При этом в группе Операция следует установить один из переключателей: Сумма, Произведение или Среднее, чтобы указать, какая операция будет выполняться над выбранными числами. Нажатие кнопки «Вычислить» должно привести к выполнению операции и выводу результата в поле Результат.
Упражнение 4. Разработка приложения, которое будет содержать пользовательскую форму для ввода названия организации и выбора её типа и вывода данных на рабочий лист, показанную на рисунке 44.
Рисунок 44. Пользовательская форма
1. Откройте рабочую книгу и нажмите комбинацию клавиш для запуска VBA;
2. Выберите вкладку Insert – UserForm, чтобы запустить пустое диалоговое окно;
3. Свойства Caption объекта UserForm будет иметь значение по умолчанию – UserForm1. Воспользуйтесь окном Свойств (Properties) для того, чтобы изменить значение свойства Caption на Вывод названия организации (если окно Свойств (Properties) не отображается на экране, нажмите клавишу );
4. Создайте форму пользователя и разместите на ней элементы управления, как показано на рис. 6. 4;
Дважды щелкните по кнопке «Отмена» и введите следующую процедуру:
Private Sub CommandButton1Click()начало процедуры
Unload UserForm1 закрытие формы
End Sub конец про
Страницы: << < 88 | 89 | 90 | 91 | 92 > >>