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

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

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Range("E2").Select

ActiveCell.FormulaR1C1 = "Потребление л/100"

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

With Selection.HorizontalAlignment = xlCenter

Selection.VerticalAlignment = xlCenter

Selection.WrapText = True

Selection.Orientation = 0

Selection.AddIndent = True