Самоучитель VBA




Практика - часть 2


/p>

ToggleButtonl Click

Отображает текстовое поле в выбранном состоянии и удаляет его — в снятом состоянии.

ЗаголовокРабочегоЛиста

Создает заголовки полей базы данных о регистрации туристов. Эти заголовки отображаются с примечаниями.

Private Sub CommandButtonl_Click()

' Процедура считывания информации из диалогового окна

' и записи ее в базу данных на рабочем листе

'

'

' Смысл переменных однозначно определен их названиями

'

Dim Фамилия As String * 20

Dim Имя As String * 20

Dim Пол As String * 3

Dim ВыбранныйТур As String * 20

Dim Оплачено As String * 3

Dim Фото As String * 3

Dim Паспорт As String * 3

Dim Срок As String * 3

Dim НомерСтроки As Integer '

' НомерСтроки - номер первой пустой строки рабочего листа

'

НомерСтроки = Application.CountA(ActiveSheet.Columns(1)) + 1

'

' Считывание информации из диалогового окна в переменные

'

With UserForml

Фамилия = .TextBoxl.Text

Имя = .TextBox2.Text

Срок = .TextBox3.Text

If .OptionButtonl.Value = True Then

Пол = "Муж"

Else

Пол = "Жен"

End If

If .CheckBoxl.Value = True Then Оплачено = "Да"

Else

Оплачено = "Нет"

End If

If .CheckBox2.Value = True Then

Фото = "Да"

Else

Фото = "Нет"

End If

If .CheckBoxS.Value = True Then

Паспорт = "Да"

Else

Паспорт = "Нет"

End If

ВыбранныйТур = .ComboBoxl.List(.ComboBoxl.Listlndex, 0)

End With

'

' Ввод данных в строку с номером НомерСтроки рабочего листа

'

With ActiveSheet

.Cells(НомерСтроки, 1).Value = Фамилия

.Cells(НомерСтроки, 2).Value = Имя

.Cells(НомерСтроки, 3).Value = Пол

.Cells(НомерСтроки, 4).Value = ВыбранныйТур

.Cells(НомерСтроки, 5).Value = Оплачено

.Cells(НдмерСтроки, 6).Value = Фото

.Cells(НомерСтроки, 7).Value = Паспорт

.Cells(НомерСтроки, 8).Value = Срок

End With

End Sub

Private Sub CommandButton2_Click()

' Процедура закрытия диалогового окна

'

' Установка заголовка окна приложения по умолчанию




Содержание  Назад  Вперед