책 내용 질문하기
기본모의고사 3회 문제3번 급여현황 시트 매크로 작성..
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
322
조회수
86
작성일
2012-04-03
작성자
첨부파일
1004런타임 오류가 발생하였습니다. 응용프로그램 정의 또는 개체 정의 오류입니다.
이렇게 떠요 ㅠㅠ 그래서 디버그 눌러보면 Sub 부분합()
'
' 부분합 Macro
'
'
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "부분합"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "맑은 고딕"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("A3:I12").Select
ActiveWorkbook.Worksheets("급여현황").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("급여현황").Sort.SortFields.Add Key:=Range("D4:D12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("급여현황").Sort
.SetRange Range("A3:I12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=4, Function:=xlAverage, TotalList:=Array(6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
End Sub
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "부분합"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "맑은 고딕"
.FontStyle = "보통"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = 2
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("A3:I12").Select
ActiveWorkbook.Worksheets("급여현황").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("급여현황").Sort.SortFields.Add Key:=Range("D4:D12"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("급여현황").Sort
.SetRange Range("A3:I12")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=4, Function:=xlAverage, TotalList:=Array(6), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(6), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=True
End Sub
뭐가 잘못된거죠?
답변
2012-04-04 10:51:33
안녕하세요.
매크로 문제의 경우는 코드 상으로 잘못된 곳을 찾기가 어렵습니다. 매크로를 삭제한 후 다시 처음부터 작성해 보시고 그래도 동일한 오류가 발생했다면 코드가 아닌 님이 작성한 엑셀 파일을 올려주세요.
즐거운 하루 되세요.
"-
*2012-04-04 10:51:33
안녕하세요.
매크로 문제의 경우는 코드 상으로 잘못된 곳을 찾기가 어렵습니다. 매크로를 삭제한 후 다시 처음부터 작성해 보시고 그래도 동일한 오류가 발생했다면 코드가 아닌 님이 작성한 엑셀 파일을 올려주세요.
즐거운 하루 되세요.
"