rscript = False
. Subscript = False
. OutlineFont = False
. Shadow = False
. Underline = xlUnderlineStyleNone
. ColorIndex = xlAutomatic
End With
Rows ("3:3"). RowHeight = 18
Range ("A1"). Select
ActiveCell.FormulaR1C1 = "№"
Range ("A2"). Select
ActiveCell.FormulaR1C1 = "1"
Range ("A3"). Select
ActiveCell.FormulaR1C1 = "2"
Range ("A2: A3"). Select
Selection.AutoFill Destination: = Range ("A2: A" + Trim (Str (n + 1))), Type: = xlFillDefault
Range ("A2: A" + Trim (Str (n + 1))). Select
Range ("B1"). Select
ActiveCell.FormulaR1C1 = "1"
Range ("C1"). Select
ActiveCell.FormulaR1C1 = "2"
Range ("B1: C1"). Select
Selection.AutoFill Destination: = Range ("B1:" + Trim (st2) + "1"), Type: = xlFillDefault
Range ("A1:" + Trim (st2) + Trim (Str (n + 1))). Select
With Selection
. HorizontalAlignment = xlCenter
. VerticalAlignment = xlBottom
. WrapText = False
. Orientation = 0
. AddIndent = False
. IndentLevel = 0
. ShrinkToFit = False
. ReadingOrder = xlContext
. MergeCells = False
End With
Range ("A1: A" + Trim (Str (n + 1)) + ", A1:" + Trim (st2) + "1"). Select
Range ("A1"). Activate
With Selection.Interior
. ColorIndex = 33
. Pattern = xlSolid
. PatternColorIndex = xlAutomatic
End With
Range ("A1:" + Trim (st2) + Trim (Str (n + 1))). Select
Selection.Borders (xlDiagonalDown). LineStyle = XlNone
Selection.Borders (xlDiagonalUp). LineStyle = XlNone
With Selection.Borders (xlEdgeLeft)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeTop)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeBottom)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlEdgeRight)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlInsideVertical)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
With Selection.Borders (xlInsideHorizontal)
. LineStyle = xlContinuous
. Weight = xlThin
. ColorIndex = xlAutomatic
End With
For i = 1 To n + 1
st1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
h = i
If h> 26 Then
a = h 26
If h Mod 26 = 0 Then
stroka1 = Mid (st1, a - 1, 1)
Else
stroka1 = Mid (st1, a, 1)
End If
b = a * 26
...
