Информатика в управлении и экономике. Боброва Л.В - 207 стр.

UptoLike

ВУЗ: 

СЗТУ | Санкт-Петербург

Составители: 

Рубрика: 

217
For I = 1 To 100
If Форма.Cells(I, 1) = "" Then
Форма.Cells(I, 1) = TextBox1.Value
Форма.Cells(I, 2) = TextBox2.Value
Форма.Cells(I, 3) = TextBox3.Value
If OptionButton1 = True Then
Форма.Cells(I, 4) = "Очная"
ElseIf OptionButton2 = True Then
Форма.Cells(I, 4) = "Вечерняя"
ElseIf OptionButton3 = True Then
Форма.Cells(I, 4) = "Заочная"
End If
Форма.Cells(I, 5) = ComboBox1.Value
Форма.Cells(I, 6) = ComboBox2.Value
Exit For
End If
Next
CheckBox1.Value = False
Unload Me
End Sub .
8. Для того, чтобы работала кнопка Отмена, щелкните по ней на форме и
создайте процедуру:
Private Sub CommandBatton2_Click
Unload Me
End Sub .
9. Перейдите в рабочую книгу на Лист1.
10. Сохраните рабочую книгу.
11. Щёлкните по кнопке, вызывающей экранную форму. Введите в поле
Фамилия И.О. студента фамилию Иванов И.И., в поле Факультет- ФТУСЭС.
Установите переключатель Форма
обучения в положение Очная, в поле со
списком Тема занятия выберите СУБД Access. Установите флажок
Исходные данные взять с дискеты в положение Включено, а в поле со
списком Имя файла на дискете – Список абонентов .Щёлкните по кнопке
Сохранить.
12. Форма закроется, а введённые в неё данные будут записаны в ячейки
рабочего
листа Формы.
13. Перейдите на рабочий Лист1 и убедитесь, что он совпадает с рис. 15.15.
14. Повторите ввод данных в форму (для другого студента) и убедитесь, что
данные о нём будут записаны в следующей строке таблицы.
14.7. Панели инструментов
Все пользователи применяют инструменты, расположенные на панелях, так
как это очень удобно. Excel позволяет легко создавать собственные панели
инструментов и помещать новые кнопки на имеющиеся. Каждая кнопка может
быть использована для управления макросом или процедурой.

Страницы