Реферат Теоретичні та практичні основи роботи з комп'ютером

Тема: Контрольные работы

Sub Созданіе_рабочего_проекта2 ()

Створення проекту робочого бюджету

Range ("A1: G1"). Select

Range ("G1"). ActivateSelection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = FalseWith.Merge.FormulaR1C1 = "Період часу" ("A2"). Select.FormulaR1C1 = = "Операція" ("A4"). Select.WindowState = xlMinimized.WindowState = xlNormal ("A4"). Select.FormulaR1C1 = "№ п/п" ("B4"). Select.FormulaR1C1 = "Дата" ("A3: B3"). SelectSelection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = FalseWith.Merge ("A2: B2"). SelectSelection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = FalseWith.Merge ("C4"). Select.FormulaR1C1 = "Опис" ("D4"). Select.FormulaR1C1 = "Сума" ("E4") . Select.FormulaR1C1 = "Дебет" ("F4"). Select.FormulaR1C1 = "Кредит" ("F4"). Select ("C: C"). ColumnWidth = 8.57 ("C: C" ;). EntireColumn.AutoFit ("G3: G4"). SelectSelection

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False

. Orientation = 0

. AddIndent = False

. IndentLevel = 0

. ShrinkToFit = False

. ReadingOrder = xlContext

. MergeCells = FalseWith.Merge.FormulaR1C1 =

. HorizontalAlignment = xlCenter

. VerticalAlignment = xlBottom

. WrapText = False