Управління збутовою діяльністю ДП "Електротяжмаш"

Дипломная работа - Маркетинг

Другие дипломы по предмету Маркетинг

Center

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

Range("B14").Select

End Sub

Sub Заполнение()

Заполнение Макрос

Макрос записан 10.06.2008 (Managers)

Sheets("1").Select

Range("C3:C8").Select

Selection.Copy

Sheets("2").Select

Range("C3").Select

ActiveSheet.Paste

Sheets("1").Select

Range("D3:D8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("2").Select

Range("D3").Select

ActiveSheet.Paste

Sheets("1").Select

Range("E3:E8").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("2").Select

Range("E3").Select

ActiveSheet.Paste

Range("A1:G2").Select

Selection.Font.ColorIndex = 5

Range("F11").Select

Sheets("2").Select

ActiveWorkbook.Sheets("2").Tab.ColorIndex = 3

Sheets("1").Select

ActiveWorkbook.Sheets("1").Tab.ColorIndex = 44

Sheets("3").Select

ActiveWorkbook.Sheets("3").Tab.ColorIndex = 6

Range("D41").Select

Sheets("2").Select

End Sub

Sub Рассчет()

Рассчет Макрос

 

Range("F3").Select

ActiveCell.FormulaR1C1 = "=RC[-1]/RC[-3]"

Range("F3").Select

ActiveCell.FormulaR1C1 = "=(RC[-1]/RC[-3])*100"

Range("F3").Select

Selection.NumberFormat = "#,##0.00"

Selection.AutoFill Destination:=Range("F3:F8"), Type:=xlFillDefault

Range("F3:F8").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Range("F8").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlMedium

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlMedium

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

Range("G3").Select

ActiveCell.FormulaR1C1 = "=(RC[-2]/RC[-3])*100"

Range("F3").Select

Selection.Copy

Range("G3").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

Selection.AutoFill Destination:=Range("G3:G8"), Type:=xlFillDefault

Range("G3:G8").Select

Range("G3:G8").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 = xlMedium

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlMedium

.ColorIndex = xlAutomatic

End With

Range("G8").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 = xlMedium

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlMedium

.ColorIndex = xlAutomatic

End With

Range("F17").Select

End Sub

Sub Очистка()

Очистка Макрос

Макрос записан 10.06.2008 (Managers)

Range("A1:H9").Select

Selection.Clear

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

Columns("F:F").ColumnWidth = 9

Columns("G:G").ColumnWidth = 10.57

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

Range("H19").Select

End Sub