책 내용 질문하기
메크로 질문이요 ..
도서
[2012] 컴퓨터활용능력 1급 실기(엑셀, 액세스 2007 사용자용)
페이지
179
조회수
75
작성일
2012-01-30
작성자
첨부파일
이상하게 부분합 메크로를 풀고잇는데
계속 디버그가 발생하네요 .,.ㅜㅜ
문제점이 무엇일까요?
Sub 단추()
'
' 단추 Macro
'
'
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "부분합 실행"
With Selection.Characters(Start:=1, Length:=6).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("C2").Select
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("분석작업-2").Sort
.SetRange Range("A3:G20")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1").Select
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = "부분합 실행"
With Selection.Characters(Start:=1, Length:=6).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("C2").Select
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("분석작업-2").Sort.SortFields.Add Key:=Range("C2"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("분석작업-2").Sort
.SetRange Range("A3:G20")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Range("A1").Select
답변
2012-01-31 02:39:23
현재 질문만으로는 정확한 이유를 알기 어렵습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"-
*2012-01-31 02:39:23
현재 질문만으로는 정확한 이유를 알기 어렵습니다.
작성하신 파일을 첨부하여 다시 질문 주시면 확인 후 답변 드리겠습니다.
좋은 하루 되세요.
"