제가 매크로에 대한 질문을 이렇게 올렸었습니다.
------------------------
매크로 문제로 데이터 통합 문제를풀었는데
제가 첨부한 그림처럼 통합 원본 파일~을 열 수 없습니다.
이런 식으로 나오고 나서 확인을 누르면 통합 결과가 나옵니다.
이런 식으로 해서 나오 결과가 맞긴한데
채점을 하면 다 틀렸다고 나오더라구요
아무래도 이 창이 떠서 틀렸다고 나오는거같은데ㅠㅠ
왜 이런 창이 뜨는건가요?
또 이런 창이 뜨면 어떻게 고쳐야하는건가요?ㅠㅠ
낼 모레가 시험인데ㅠㅠㅠ 이런식으로 시험나오면 벌써 20점이나
날아가버리는거라서 너무 급합니다.ㅠㅠ 좀 빨리 답해주세요ㅠㅠ
------------------------------
그랬더니 문제 파악이 힘들다고 파일을 첨부해보라고 하셔서 첨부해봅니다.
뭐가 문제인지 좀 알려주세요ㅠㅠ
Sub 평균()
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("R2C1:R8C4", "R2C6:R8C9"), Function:=xlAverage, _
TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("F12").Select
End Sub
Sub 합계()
'
' 합계 Macro
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("R2C1:R8C4", "R2C6:R8C9"), Function:=xlSum, TopRow _
:=True, LeftColumn:=True, CreateLinks:=False
Range("F15").Select
End Sub
위의 식이 정답파일의 매크로 식입니다.
님의 매크로는
Sub 평균()
'
' 평균 Macro
' Park J J, Park J Y, Park S C이(가) 2011-09-18에 기록한 매크로
'
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("'C:\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9", _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C1:R8C4" _
, _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9" _
), Function:=xlAverage, TopRow:=True, LeftColumn:=True, CreateLinks:= _
False
Range("G18").Select
End Sub
Sub 합계()
'
' 합계 Macro
' Park J J, Park J Y, Park S C이(가) 2011-09-18에 기록한 매크로
'
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("'C:\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9", _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C1:R8C4" _
, _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9" _
), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("F22").Select
End Sub
-
*2011-09-20 10:12:41
Sub 평균()
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("R2C1:R8C4", "R2C6:R8C9"), Function:=xlAverage, _
TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("F12").Select
End Sub
Sub 합계()
'
' 합계 Macro
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("R2C1:R8C4", "R2C6:R8C9"), Function:=xlSum, TopRow _
:=True, LeftColumn:=True, CreateLinks:=False
Range("F15").Select
End Sub
위의 식이 정답파일의 매크로 식입니다.
님의 매크로는
Sub 평균()
'
' 평균 Macro
' Park J J, Park J Y, Park S C이(가) 2011-09-18에 기록한 매크로
''
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("'C:\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9", _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C1:R8C4" _
, _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9" _
), Function:=xlAverage, TopRow:=True, LeftColumn:=True, CreateLinks:= _
False
Range("G18").Select
End Sub
Sub 합계()
'
' 합계 Macro
' Park J J, Park J Y, Park S C이(가) 2011-09-18에 기록한 매크로
''
Range("A12:C18").Select
Selection.Consolidate Sources:=Array("'C:\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9", _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C1:R8C4" _
, _
"'C:\Documents and Settings\user\바탕 화면\2010컴활1급실기(2003)[1]\엑셀\기본\[10회.xls]대리점판매현황'!R2C6:R8C9" _
), Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("F22").Select
End Sub
와 같이 다른 파일에서 가져온 것과 같이 나와있습니다.즉 다른 파일에서 데이터를 가져온 것이 되다 보니 오류가 나타납니다.매크로를 삭제하시고 다시 만들어 보시기 바랍니다.매크로 삭제 방법은도구 -> 매크로 -> 매크로 에서 삭제할 매크로를 선택 하시고 삭제하시면 됩니다.좋은 하루 되세요."