Recort by Macro

Kelompok : 1
Anggota : 1. Ipuk Ratnasari       (21)
                 2. Silvia Cindi F        (34)
                 3. Situtik Wulandari  (35)
                 4. Tiara Nurma Sari   (36)

Kelas     : X TKJ 2
Mapel    : Program Dasar

Sub Macro1()

For i = 1 to 15

    Range("F1").Select

End Sub

Sub Macro2()

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlCenter

        .WrapText = True

        .Orientation = 6 + i

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With

    With Selection.Font

        .Name = "Calibri"

        .FontStyle = "Bold"

        .Size = 8 * i

        .Strikethrough = False

        .Superscript = False

        .Subscript = False

        .OutlineFont = False

        .Shadow = False

        .Underline = xlUnderlineStyleNone

        .Color = 255

        .TintAndShade = 0

        .ThemeFont = xlThemeFontMinor

    End With

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    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

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

    Application.Run "Book1!Macro1"

    Application.Goto Reference:="Macro1"

    Application.Goto Reference:="Macro2"

next

End Sub