Реферат: Макросы в Excel
ActiveCell.FormulaR1C1 = “CP_35_SR”
ActiveCell.Offset(0; 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_40_SR”
ActiveCell.Offset(0; 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_55_LS”
ActiveCell.Offset(0; 1).Range(“A1”).Select
ActiveCell.FormulaR1C1 = “CP_55_SX”
ActiveCell.Offset(0; -3).Range(“A1:D1”).Select
ActiveCell.Activate
Selection.Columns.AutoFit
ActiveCell.Offset(-1; 0).Range(“A1:D1”).Select
With Selection
.HorizontalAlignment = xlCEnterAcrossSelection
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = xlHorizontal
End With
With Selection.Font
.Name = “TimesET”
.FontStyle = “Italic”
.Size = 16
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = xlAutomatic
End With