매크로 잘만 작동하는데 왜 자꾸 틀렸다고 나오나요?
순서도 정확하게 딱딱 맞고 정답도 딱 맞게 나왔는데
이 문제만 계속 붙잡고 있습니다
이런 문제의 유형이 시험에 나오면 틀렸었는지 아니었는지 기억도 안 나지만 되게 찝찝합니다
해설대로 했는데 왜 채점 결과가 저러나요?
부분합 매크로 누를 때마다 값이 바뀌는데 그것때문인가요?
안녕하세요.
부분합을 제거하고 매크로를 재실행했을 때, 결과가 정답과 다릅니다.
말씀드렸듯이 컴퓨터과의 성별 최대값이 나타나지 않습니다.
코드로 확인하면, 부분합 작성시에
영역 설정을 해 주셔야 하는데 그 부분의 작업을 빠뜨리신 것 같습니다.
영역 설정이 정확히 되지 않아, 매크로 재실행시에 잘못된 결과가 나타납니다.
Sub 부분합()
'
' 부분합 매크로
'
'
Range("A3:H13").Select
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("C4:C13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("D4:D13") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("분석작업-2").Sort
.SetRange Range("A3:H13")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3:H13").Select
Selection.Subtotal GroupBy:=3, Function:=xlAverage, TotalList:=Array(5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A3:H18").Select
Selection.Subtotal GroupBy:=4, Function:=xlMax, TotalList:=Array(8), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Range("K4").Select
End Sub
매크로 삭제 후 매크로 기록을 다시 해 주시는 것이 좋습니다.
좋은 하루 보내세요.
-
*2018-09-07 22:55:22
안녕하세요.
부분합을 제거하고 매크로를 재실행했을 때, 결과가 정답과 다릅니다.
말씀드렸듯이 컴퓨터과의 성별 최대값이 나타나지 않습니다.
코드로 확인하면, 부분합 작성시에
영역 설정을 해 주셔야 하는데 그 부분의 작업을 빠뜨리신 것 같습니다.영역 설정이 정확히 되지 않아, 매크로 재실행시에 잘못된 결과가 나타납니다.
Sub 부분합()
'
' 부분합 매크로
''
Range("A3:H13").Select
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("C4:C13") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("D4:D13") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("분석작업-2").Sort
.SetRange Range("A3:H13")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End WithRange("A3:H13").Select
Selection.Subtotal GroupBy:=3, Function:=xlAverage, TotalList:=Array(5, 6, _
7, 8), Replace:=True, PageBreaks:=False, SummaryBelowData:=TrueRange("A3:H18").Select
Selection.Subtotal GroupBy:=4, Function:=xlMax, TotalList:=Array(8), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
Range("K4").Select
End Sub매크로 삭제 후 매크로 기록을 다시 해 주시는 것이 좋습니다.
좋은 하루 보내세요.