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

Selection.MergeCells = True

Selection.HorizontalAlignment = xlCenter

Selection.VerticalAlignment = xlCenter

End With

ActiveCell.FormulaR1C1 = "Индивидуальное задание"

' установка шрифта

With Selection.Font.Name = "Times New Roman"

Selection.Font.Size = 10

Selection.Font.Strikethrough = False

Selection.Font.Superscript = False

Selection.Font.Subscript = False

Selection.Font.OutlineFont = False

Selection.Font.Shadow = False

Selection.Font.Underline = xlUnderlineStyleNone

Selection.Font.ColorIndex = xlAutomatic

Selection.Font.Bold = True

End With

Range("A2").Select

'центровка записи

ActiveCell.FormulaR1C1 = "Номер автомобиля"

With Selection.HorizontalAlignment = xlCenter

Selection.VerticalAlignment = xlCenter

Selection.WrapText = True

Selection.Orientation = 0

Selection.AddIndent = True

Selection.IndentLevel = 0

Selection.ShrinkToFit = True

Selection.ReadingOrder = xlContext

Selection.MergeCells = True