시나공

시험에

나오는 것만

공부한다!

부분합 매크로를 확인 해 보았습니다. 

부분합 매크로가 정확히 지정되지 않은 것 같습니다. 

매크로를 삭제한 후 다시 정답 파일 대로 설정 해 보시기 바랍니다. 

코드가 아래와 같이 나와야 하는데 

Sub 부분합()

'

' 부분합 매크로

'

'

    Range("B2:G23").Select

    ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Clear

    ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("C3:C23") _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("G3:G23") _

        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

    With ActiveWorkbook.Worksheets("분석작업-2").Sort

        .SetRange Range("B2:G23")

        .Header = xlYes

        .MatchCase = False

        .Orientation = xlTopToBottom

        .SortMethod = xlPinYin

        .Apply

    End With

    Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(5, 6), _

        Replace:=True, PageBreaks:=False, SummaryBelowData:=True

    Range("H2").Select

End Sub

안녕하세요.

부분합의 경우는 매크로를 실행하기 전에 이미 작성된 부분합을 제거한 후 매크로를 실행해야 합니다. 부분합이 작성된 임의의 셀을 클릭한 후 부분합 대화상자를 실행하여 <모두 제거> 단추를 클릭하여 부분합을 삭제한 후 매크로를 실행해 보세요.

1회 모의고사의 경우는 자동 필터 실행하는 것까지 매크로에 기록되면 코드에 'Selection.AutoFilter' 부분이 있어야 하는데 님은 이 부분이 없습니다. 즉 이미 자동 필터가 실행된 상태에서 매크로 기록을 실행하여 조건만을 지정하신듯 합니다. 이미 작성한 매크로를 삭제한 후 다시 한번 해보시기 바랍니다.

즐거운 하루 되세요.

p28 2번 매크로 책에 나온대로 다시 따라해봤으나 오류 그대로입니다.

이 부분합 매크로 뿐만 아니라 매크로 문제는 모두 오류가뜨네요. 이번엔 p83 2번 매크로문제 첨부파일 참고부탁드리겠습니다.  

p28 2번문제 오류에 대해선 책에 나온대로 그대로 다시 따라해달라고 하셨는데 정말 그대로 다시 해봐도 안됩니다.

모든 매크로 문제가 다 그런거면 제가 쓰고 있는 엑셀 매크로와 관련된 설정같은 게 잘못 되어있는건아닌가요? 정말 이유를 모르겠네요