Курсовая работа: Основы программирования на VBA модель объектов Exel

End Sub

'Процедура выхода

Private Sub CommandButton2_Click()

Unload Me

End Sub

'Информация о разработчике

Private Sub CommandButton3_Click()

Load UserForm2

UserForm1.Hide

UserForm2.Show

End Sub

'Процедура инициализации формы

Private Sub UserForm_Initialize()

UserForm1.Caption = "Главная форма"

UserForm1.TextBox1.Text = ""

UserForm1.TextBox2.Text = ""

UserForm1.TextBox3.Text = ""

UserForm1.TextBox4.Text = ""

UserForm1.TextBox5.Text = ""

UserForm1.TextBox6.Text = ""

UserForm1.TextBox1.SetFocus

'Выбор ячеек шапки

Range("A1:G1").Select

'объединение ячеек

With Selection.WrapText = False

Selection.Orientation = 0

Selection.AddIndent = True

Selection.IndentLevel = 0

Selection.ShrinkToFit = True