Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.87
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.87

If .CheckBox2.Value = True Then Фото = "Да" Else Фото = "Нет" End If

Программирование в среде Visual Basic for Applications

If .СпескВохЗ.Value = True Then Паспорт = "Да" Else Паспорт = "Нет" End If

ВыбранныйТур =_

.ComboBoxl.List(.ComboBoxl.Listlndex, 0) End With .

1 Ввод данных в строку с номером * НомерСтроки рабочего листа With Active Sheet

.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 CornmandButton2_Click ()

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

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

UserForml.Hide

Application.Caption = Empty

ActiveSheet.DrawingObj ects.Delete

End Sub

Private Sub SpinButtonl_Change()

' Процедура ввода значения счетчика в поле ввода With UserForml

.TextBox3.Text = CStr(.SpinButtonl.Value) End With End Sub

Private Sub TextBox3_Change()

1 Процедура установки значения счетчика из поля ввода With UserForml

.SpinButtonl.Value = CIntf.TextBox3.Text) End With End Sub

Private Sub ToggleButtonl_Click()

' Процедура отображения или удаления поля с текстом If ToggleButtonl.Value = True_ Then ActiveSheet.DrawingObjects.Delete ActiveSheet.Shapes.AddTextbox_

19. Заполнение базы данных

(msoTextOrientationHorizontal, 11. 25 ,

44.25, 106.5, 9б#).Select Selection.Characters.Text =

With Selection.Font

.Name = "Arial Cyr"

.FontStyle = "обычный"

.Size = 10

.Strikethrough = False

.Superscript = False .Subscript = False .OutlineFont = False .Shadow = False

.Underline = xlUnderlineStyleNone .Colorlndex = xlAutomatic End With

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 Selection.ShapeRange.Fill.Visible = msoTrue Selection.ShapeRange.Fill.Solid Selection.Characters.Text = _ "Программа составлена" & Chr(lO) & _ "Владимиром для регистрации" & Chr(lO) & "клиентов" & Chr(lO) & "туристической"_ & Chr(lO) & "фирмы"


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta