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

UptoLike

ВУЗ: 

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

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

Рубрика: 

216
5. Введите в процедуру CommandButton1_Click сразу после имени
процедуры три оператора описания:
Dim Форма As Object
Dim I As Integer
Set Форма = Sheets("Форма")
6. Теперь в текст той же процедуры перед оператором Unload Me введите
следующий код:
Worksheets(“Форма”).Activate
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 .
7. Теперь процедура, выполняющаяся при щелчке по кнопке Сохранить,
выглядит так:
Private Sub CommandButton1_Click
Dim I As Integer
Dim Форма As Object
Set Форма = Sheets("Форма")
If TextBox2 = “” Then
MsgBox (”Пожалуйста, введите Фамилию И.О. студента”)
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = “” Then
MsgBox (”Пожалуйста, введите название факультета”)
TextBox3.SetFocus
Exit Sub
End If
Worksheets("Форма").Activate

Страницы