책 내용 질문하기
대체 어느부분이 틀렷나요ㅜㅜ
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
436
조회수
180
작성일
2012-08-03
작성자
첨부파일
매크로 작성하는 문제 푸는데 계속 틀렸다고 나오네요ㅜ.ㅜ
엑셀 실전 B형입니다
아래에 제가 작성한 매크로 적어놓을게요
어느부분이 틀린건지 말좀해주세여...
Sub 총고과점수구하기()
'
' 총고과점수구하기 Macro
'
'
Range("I7").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4],RC[-3],RC[-2],RC[-1])"
Range("I7").Select
Selection.AutoFill Destination:=Range("I7:I18"), Type:=xlFillDefault
Range("I7:I18").Select
End Sub
Sub 상위점수보기()
'
' 상위점수보기 Macro
'
Range("I7").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4],RC[-3],RC[-2],RC[-1])"
Range("I7").Select
Selection.AutoFill Destination:=Range("I7:I18"), Type:=xlFillDefault
Range("I7:I18").Select
End Sub
Sub 상위점수보기()
'
' 상위점수보기 Macro
'
'
Range("B7:I18").Select
ActiveWorkbook.Worksheets("고과점수").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("고과점수").Sort.SortFields.Add Key:=Range("I7:I18"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("고과점수").Sort
.SetRange Range("B6:I18")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B6:I18").Select
Selection.AutoFilter
ActiveSheet.Range("$B$6:$I$18").AutoFilter Field:=8, Criteria1:="20", _
Operator:=xlTop10Percent
End Sub
Range("B7:I18").Select
ActiveWorkbook.Worksheets("고과점수").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("고과점수").Sort.SortFields.Add Key:=Range("I7:I18"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("고과점수").Sort
.SetRange Range("B6:I18")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B6:I18").Select
Selection.AutoFilter
ActiveSheet.Range("$B$6:$I$18").AutoFilter Field:=8, Criteria1:="20", _
Operator:=xlTop10Percent
End Sub
답변
2012-08-06 06:16:38
실기특성상 질문주신 내용만으로는 정확한 이유를 알기 어려우니
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"-
*2012-08-06 06:16:38
실기특성상 질문주신 내용만으로는 정확한 이유를 알기 어려우니
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"