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




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


'

UserForm1.Hide Application.Caption = Empty

ActiveSheet.DrawingObjects.Delete

End Sub

'

Private Sub SpinButtonl_Change()

'

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

With UserForml

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

Private Sub TextBox3_Change()

'

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

'

With UserForml

.SpinButtonl.Value = CInt(.TextBoxS.Text)

End With

End Sub

Private Sub ToggleButtonl_Click()

' Процедура отображения или удаления поля с текстом

'

If ToggleButtonl.Value = True Then

ActiveSheet.DrawingObjects.Delete

ActiveSheet.Shapes.

AddTextbox(msoTextOrientationHorizontal,

11.25, 44.25, 106.5, 96#)

.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(10) &

"Андреем Гарнаевым для регистрации " & Chr(10) &_

"клиентов" & Chr(10) & "туристической " & Chr(10) & "фирмы" With

Selection.Characters(Start:=1, Length:=86).Font

.Name = "Arial Cyr"

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

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.Colorlndex = xlAutomatic

End With

End If

If ToggleButtonl.Value = False Then

ActiveSheet.DrawingObjects.Delete

End If

End Sub

'

Private Sub UserForm_Initialize()

'

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

' и задание элементов раскрывающегося списка

'

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

'



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