Программирование на VBA

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = xlAutomatic

        .TintAndShade = 0

        .Weight = xlThin

    End With

    ActiveCell.Range("A8").Select

    ActiveCell.FormulaR1C1 = "Итого"

    ActiveCell.Range("A1:B1").Select

    ActiveWindow.SmallScroll Down:=-3

    ActiveCell.Offset(-7, 0).Range("A1:G8").Select

    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$8"), , xlYes).Name = _

        "Таблица3"

    ActiveCell.Range("A1:G8").Select

    ActiveSheet.ListObjects("Таблица3").TableStyle = "TableStyleLight8"

    ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(0, 4).Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(0, 6).Columns("A:A").EntireColumn.EntireColumn.AutoFit

    ActiveCell.Offset(8, 0).Range("A1").Select

   

End Sub

 

Используемая  литература:

1. Практическая работа в VBA: Учебное пособие/ Липецкий Государственный технический университет, Липецк, 2001. – 98с.