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

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Range("D2").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 = False

Selection.HorizontalAlignment = xlCenter

End With

Columns("D:D").ColumnWidth = 7

Rows("2:2").EntireRow.AutoFit

Columns("D:D").EntireColumn.AutoFit

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

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