시나공

시험에

나오는 것만

공부한다!

매크로 오류뜨는데 왜 그럴까요? 검색해봐도 안나와요 ㅜㅜ

문제는 최신기출 2018년 1회 1급 E형이구요.

디버그 눌렀더니 이런 코드가 나와요.

Sub 감가상각액()

'

' 감가상각액 매크로

'

'

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "감가상각액"

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5). _

        ParagraphFormat

        .FirstLineIndent = 0

        .Alignment = msoAlignLeft

    End With

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font

        .NameComplexScript = "+mn-cs"

        .NameFarEast = "+mn-ea"

        .Fill.Visible = msoTrue

        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1

        .Fill.ForeColor.TintAndShade = 0

        .Fill.ForeColor.Brightness = 0

        .Fill.Transparency = 0

        .Fill.Solid

        .Size = 11

        .Name = "+mn-lt"

    End With

    Range("C9").Select

    ActiveCell.FormulaR1C1 = "=SLN(R[-6]C[1],R[-5]C[1],R[-4]C[1])"

    Range("C9:I15").Select

    Application.CutCopyMode = False

    Application.CutCopyMode = False

    Selection.Table RowInput:=Range("D5"), ColumnInput:=Range("D4")

    Range("K8").Select

End Sub