Реферат Знаходження критичного шляху табличним методом

= xlAutomatic

End With

With Selection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = True

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = False

End With

Range ("A1"). Select

ActiveCell.FormulaR1C1 = "Початковий етап"

With ActiveCell.Characters (Start: = 1, Length: = 14). Font

. name = "Arial Cyr "

. FontStyle = "звичайний"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Range ("B1"). Select

Columns ("A: A"). ColumnWidth = 15

Range ("B1"). Select

ActiveCell.FormulaR1C1 = "Кінцевий етап"

With ActiveCell.Characters (Start: = 1, Length: = 13). Font

. name = "Arial Cyr "

. FontStyle = "звичайний"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Range ("C1"). Select

Columns ("B: B"). ColumnWidth = 15

ActiveCell.FormulaR1C1 = "Далі-житель-ність"

With ActiveCell.Characters (Start: = 1, Length: = 20). Font

. name = "Arial Cyr "

. FontStyle = "звичайний"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Range ("D1"). Select

Columns ("C: C"). ColumnWidth = 12

ActiveCell.FormulaR1C1 = "Час раннього початку"

With ActiveCell.Characters (Start: = 1, Length: = 20). Font

. name = "Arial Cyr "

. FontStyle = "звичайний"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Range ("E1"). Select

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

ActiveCell.FormulaR1C1 = "Час раннього кінця"

With ActiveCell.Characters (Start: = 1, Length: = 19). Font

. name = "Arial Cyr "

. FontStyle = "звичайний"

. Size = 14

. Strikethrough = False

. Superscript = False

. Subscript = False

. OutlineFont = False

. Shadow = False

. Underline = xlUnderlineStyleNone

. ColorIndex = xlAutomatic

End With

Range ("F1"). Select

Columns ("E: E"). ...