1. 채점프로그램에 돌렸는데, 문제3(분석작업) 2번에 2번.
'분석작업-2 시트의 푸목별최소값 개체에 연결된 매크로가 정답(품목별최소값)과 다릅니다."
라고 뜨길래 매크로를 삭제하고 다시 만들어서, 채점프로그램에 돌려봤지만 같은 멘트만 나올 뿐이었습니다.
뭐가 잘못된 것인지 모르겠어요ㅜㅜ
2. 그리고 매크로 문제에서 보통 매크로 지정하는 도형을 생성하여 도형의 텍스트를 지정하고, 매크로도 생성하여 매크로 이름도 지정하잖아요?
답지엔 도형을 삽입해놓고 - 바로 도형의 바로가기 메뉴에서 매크로 지정을 한 다음 - 매크로 이름을 입력 - 기록..... - 임의의 셀 클릭 후 '기록 중지' 클릭하고나서 - 도형의 텍스트&서식을 그제서야 지정하더라구요.
저는 아예 처음에 도형을 삽입한 다음, 바로 도형의 텍스트&서식을 지정해놓고 - 도형의 바로가기 메뉴에서 매크로 지정........... 이렇게 하거든요.
이렇게 해도 상관이 없는건가요? 아니면 답지에 나온대로 해야하는 건가요?
감사합니다!
1. Sub 품목별최소값()
'
' 품목별최소값 매크로
'
'
Range("B10:D14").Select
Selection.Consolidate Sources:=Array( _
"'C:\Users\CEPER\Downloads\[04회-1차 품 (1).xlsm]분석작업-2'!R2C2:R6C6", _
"'C:\Users\CEPER\Downloads\[04회-1차 품 (1).xlsm]분석작업-2'!R2C8:R6C12"), Function _
:=xlMin, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("E21").Select
End Sub
위의 경로 부분에서 오류가 나고 있습니다.
데이터의 원래 위치에서 이동 한 경우 이런 현상이 발생할 수 있으므로
아래 와 같은 위치에서 그대로 지정하고 실행 해 보시기 바랍니다.
Sub 품목별최소값()
'
' 품목별최소값 매크로
'
'
Range("B10:D14").Select
Selection.Consolidate Sources:=Array( _
"'C:\길벗컴활1급\01 엑셀\03 기본모의고사\[기본모의고사 04회정답.xlsm]분석작업-2'!R2C2:R6C6", _
"'C:\길벗컴활1급\01 엑셀\03 기본모의고사\[기본모의고사 04회정답.xlsm]분석작업-2'!R2C8:R6C12"), _
Function:=xlMin, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("H13").Select
End Sub
2. 어떤 방법으로 작성하시든 정확한 결과가 나오면 정답으로 인정 됩니다.
좋은 하루 되세요.
-
관리자2020-05-28 15:30:55
1. Sub 품목별최소값()
'
' 품목별최소값 매크로
'
'
Range("B10:D14").Select
Selection.Consolidate Sources:=Array( _
"'C:\Users\CEPER\Downloads\[04회-1차 품 (1).xlsm]분석작업-2'!R2C2:R6C6", _
"'C:\Users\CEPER\Downloads\[04회-1차 품 (1).xlsm]분석작업-2'!R2C8:R6C12"), Function _
:=xlMin, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("E21").Select
End Sub
위의 경로 부분에서 오류가 나고 있습니다.
데이터의 원래 위치에서 이동 한 경우 이런 현상이 발생할 수 있으므로
아래 와 같은 위치에서 그대로 지정하고 실행 해 보시기 바랍니다.
Sub 품목별최소값()
'
' 품목별최소값 매크로
'
'
Range("B10:D14").Select
Selection.Consolidate Sources:=Array( _
"'C:\길벗컴활1급\01 엑셀\03 기본모의고사\[기본모의고사 04회정답.xlsm]분석작업-2'!R2C2:R6C6", _
"'C:\길벗컴활1급\01 엑셀\03 기본모의고사\[기본모의고사 04회정답.xlsm]분석작업-2'!R2C8:R6C12"), _
Function:=xlMin, TopRow:=True, LeftColumn:=True, CreateLinks:=False
Range("H13").Select
End Sub
2. 어떤 방법으로 작성하시든 정확한 결과가 나오면 정답으로 인정 됩니다.
좋은 하루 되세요.