책 내용 질문하기
매크로 디버그 오류
도서
2020 시나공 컴퓨터활용능력 1급 실기 [기본서]
페이지
286,287,288,289,290
조회수
209
작성일
2020-03-03
작성자
탈퇴*원
첨부파일

매크로지정으로 데이터 통합을 했는데 결과 지우고 매크로 재실행을 하면 디버그 오류가 뜹니다. 

관련해서 질문답변받은 것을 찾아보니 visual basic에서 범위?가 동일해서 그렇다고 하더라구요. 그런데 그걸 어떻게 고쳐야 하는지 모르겠고 

일단 책과 똑같이 따라했는데 왜 이렇게 답이 나왔는지 어떤 부분을 놓쳤는지 모르겠습니다. 


 

답변
2020-03-04 21:22:09

Sub 학과별전체평균()
'
' 학과별전체평균 매크로
'

'
    Range("I3:L9").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Selection.Consolidate Sources:=Array( _
        "'C:\길벗컴활1급\01 엑셀\02 시험장따라하기\[1급 상시.xlsm]분석작업-2'!R3C4:R7C7", _
        "'C:\길벗컴활1급\01 엑셀\02 시험장따라하기\[1급 상시.xlsm]분석작업-2'!R10C4:R17C7", _
        "'C:\길벗컴활1급\01 엑셀\02 시험장따라하기\[1급 상시.xlsm]분석작업-2'!R20C4:R30C7"), Function:= _
        xlAverage, TopRow:=True, LeftColumn:=True, CreateLinks:=False
    ActiveWindow.SmallScroll Down:=-30
    Range("N12").Select
End Sub

 

빨간색으로 표시된 부분을 수정하시면 실행이 가능하긴 합니다.

 

매크로 편집에서 해당 부분과 같이 변경 해 보시구요.

 

잘 안되신다면 오피스 프로그램이 달라서 그런 경우일 수 있습니다.

 

오피스 프로그램이 2010 이 아니라면 사용방법만 정확히 익혀서 실제 시험에서 정확한 결과가 나올 수 있도록 학습해 두시면 될 것 같습니다.

 

좋은 하루 되세요.
 

  • 관리자
    2020-03-04 21:22:09

    Sub 학과별전체평균()
    '
    ' 학과별전체평균 매크로
    '

    '
        Range("I3:L9").Select
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Application.CutCopyMode = False
        Selection.Consolidate Sources:=Array( _
            "'C:\길벗컴활1급\01 엑셀\02 시험장따라하기\[1급 상시.xlsm]분석작업-2'!R3C4:R7C7", _
            "'C:\길벗컴활1급\01 엑셀\02 시험장따라하기\[1급 상시.xlsm]분석작업-2'!R10C4:R17C7", _
            "'C:\길벗컴활1급\01 엑셀\02 시험장따라하기\[1급 상시.xlsm]분석작업-2'!R20C4:R30C7"), Function:= _
            xlAverage, TopRow:=True, LeftColumn:=True, CreateLinks:=False
        ActiveWindow.SmallScroll Down:=-30
        Range("N12").Select
    End Sub

     

    빨간색으로 표시된 부분을 수정하시면 실행이 가능하긴 합니다.

     

    매크로 편집에서 해당 부분과 같이 변경 해 보시구요.

     

    잘 안되신다면 오피스 프로그램이 달라서 그런 경우일 수 있습니다.

     

    오피스 프로그램이 2010 이 아니라면 사용방법만 정확히 익혀서 실제 시험에서 정확한 결과가 나올 수 있도록 학습해 두시면 될 것 같습니다.

     

    좋은 하루 되세요.
     

· 5MB 이하의 zip, 문서, 이미지 파일만 가능합니다.
· 폭언, 욕설, 비방 등은 관리자에 의해 경고없이 삭제됩니다.