VBA, 매크로 사용 시 Sheet 이름으로 인한 2147024809 런타임 오류

VBA
작성자
탕수육육
작성일
2022-10-31 16:45
조회
86
엑셀버전 : 엑셀2016

운영체제 : 윈도우10


질문 요약 : 매크로 사용시 Sheet 이름으로 인한 2147024809 런타임오류..

안녕하세요? 엑셀 VBA, 메크로 처음 써보며 배우고 있는 학생입니다.

 

먼저 결론인 질문 작성하겠습니다.

Q. 매크로 사용시 Sheet 이름과 무관하게 매크로 실시하는 방법이 있나요?

 

아래는 상황 설명입니다.

제가 사진1과 되어있는 상태에서 매크로 기록을 누르고

  1. S열에 열1개 추가
  2. 추가된 S열의 S2셀에 '비중' 기입
  3. N15셀에 N3/(N3~S3절대참조)
  4. N15셀 %로 바꾸기
  5. N15셀을 S15까지 드래그해서 함수 복사시키기
  6. N2~S2(Q열제외)과 N15~S15(Q열제외) 클릭해서 도넛형 차트 삽입
  7. 도넛형 차트 데이터 레이블 서식에서 항목이름 클릭 후 굵은글씨로 표시

해당 작업을 해서 사진2처럼 만들고 매크로 기록을 정지하고 매크로 편집에서 전부 복붙해놓았습니다.

이를 새로운 상황에서 VBA 모듈추가로 해놓고 매크로를 실행하면 사진3과 같이 도넛형 그래프가 형성되다가 -2147024809 런타임 오류가 발생하고, 종료시 사진 4처럼 도넛형 그래프가 형성됩니다..

하기 매크로 기록은 제가 기록한 매크로 입니다.

*원인은 매크로에서 Sheet 이름이 기존에 Sheet1로 되어있기 때문인데, 혹시 이름과 관계없이 해당 매크로가 실시되도록하려면 어떻게 수정해야 할까요?ㅠㅠ (매크로를 실시하는 sheet의 이름을 Sheet1로 바꾸면 정상작동함.)

  • 사진1. 기본 상황

  • 사진 2.

  • 사진3

  • 사진4

  • 매크로 기록

Sub DDDD()
'
' DDDD 매크로
'

'
Columns("S:S").EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("S2").Select
ActiveCell.FormulaR1C1 = "비중"
Range("N15").Select
ActiveCell.FormulaR1C1 = "=R[-12]C/SUM(R3C14:R3C19)"
Range("N15").Select
Selection.Style = "Percent"
Selection.AutoFill Destination:=Range("N15:S15"), Type:=xlFillDefault
Range("N15:S15").Select
Range("N2,N15,O2,O15,Q2,Q15,R2,R15,S2,S15").Select
Range("S15").Activate
ActiveSheet.Shapes.AddChart2(251, xlDoughnut).Select
ActiveChart.SetSourceData Source:=Range( _
"Sheet1!$N$2,Sheet1!$N$15,Sheet1!$O$2,Sheet1!$O$15,Sheet1!$Q$2,Sheet1!$Q$15,Sheet1!$R$2,Sheet1!$R$15,Sheet1!$S$2,Sheet1!$S$15" _
)
ActiveChart.ApplyDataLabels
ActiveChart.FullSeriesCollection(1).DataLabels.Select
Selection.ShowCategoryName = True
Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("차트 1").IncrementLeft -219.6
ActiveSheet.Shapes("차트 1").IncrementTop -9
Application.CommandBars("Format Object").Visible = False
End Sub

스크랩
공유
회원등급 : 3레벨
포인트 : 79 EP
총질문 : 8 개 (마감율 : 50%)
채택답변 : 0 개
전체 3

  • 2022-10-31 17:00

    @탕수육육 님 위의 ActiveSheet된 그대로 사용하면 될텐데요..


    • 2022-10-31 17:15

      @마법의손 님 제가 sheet이름을 Sheet1로 수정해야만 정상작동합니다.. 제가 엑셀왕초보라 이해가 잘 안가서 조금만 설명부탁드립니다ㅜㅜ


      • 2022-10-31 17:34

        @탕수육육 님 위의 샘플을 첨부하세요


전체 8,667
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (37)
오빠두엑셀 | 2022.09.28 | 추천 9 | 조회 3206
오빠두엑셀 2022.09.28 9 3206
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (110)
오빠두엑셀 | 2021.10.28 | 추천 136 | 조회 8788
오빠두엑셀 2021.10.28 136 8788
45399 함수/공식
New 제시간에 퇴근하고싶어요 엑셀파일
taegshin kim | 17:51 | 추천 0 | 조회 16
taegshin kim 17:51 - 16
45398 기능/도구
New 목록명이 다른 데이터 통합방법 첨부파일 (1)
will12**** | 17:31 | 추천 0 | 조회 14
will12**** 17:31 - 14
45397 함수/공식
New 산출식이 들어 있는 값으로 표시 엑셀파일첨부파일 (1)
바른나무 | 17:29 | 추천 0 | 조회 14
바른나무 17:29 - 14
45394 함수/공식
New 여러수식의 범위값을 연동해서 변경하는 방법 있을까요 (1)
하이롭 | 17:07 | 추천 0 | 조회 15
하이롭 17:07 - 15
45390 함수/공식
New 조건에 맞는 값 구하기 첨부파일
노갈 | 16:26 | 추천 0 | 조회 24
노갈 16:26 - 24
45389 문서서식
New 기존에 인쇄 되어있는 용지를 넣고 출력할때 원하는 위치에 글씨 입력하는 방법 (1)
willow123 | 16:24 | 추천 0 | 조회 14
willow123 16:24 - 14
45388 함수/공식
New 여러가지 조건 함수 첨부파일 (4)
지니 | 16:07 | 추천 0 | 조회 29
지니 16:07 - 29
45387 함수/공식
New 다른 시트 계산 변수 자동 입력 후 결과 추출 엑셀파일첨부파일 (4)
김승현 | 15:35 | 추천 0 | 조회 26
김승현 15:35 - 26
45386 함수/공식
New 중복된 행을 삭제하고 수량만 합산해서 표시하기 엑셀파일 (1)
태을 | 15:31 | 추천 0 | 조회 34
태을 15:31 - 34
45383 함수/공식
New 조건에 맞는 값 구하기 첨부파일 (1)
노갈 | 14:43 | 추천 0 | 조회 31
노갈 14:43 - 31
45382 함수/공식
New 랜덤으로 뽑는 방법 엑셀파일 (1)
이보경 | 14:38 | 추천 0 | 조회 33
이보경 14:38 - 33
45381 함수/공식
New 스레드 해결방법 (1)
드라이비트 | 14:28 | 추천 0 | 조회 14
드라이비트 14:28 - 14
45380 문서서식
New 사용자서식 또는 조건부서식에서 같은셀에 두가지 서식 적용 어떻게 하나요? 엑셀파일 (1)
mrbl**** | 14:15 | 추천 0 | 조회 20
mrbl**** 14:15 - 20
45376 VBA
New vba 실행 전에 셀등을 복사하고 실행 후에 이 복사된 데이터 등이 초기화되는 문제는 해결이 어려울까요? (3)
얇은피만두 | 11:38 | 추천 0 | 조회 28
얇은피만두 11:38 - 28
45374 함수/공식
New 엑셀 공휴일 일정 자동화 달력 v1.5 함수 문의
ssibal**** | 11:17 | 추천 0 | 조회 27
ssibal**** 11:17 - 27
45373 함수/공식
New 조건에 "부등호" & 함수 이런식으로 작성하는 엑셀 문법이 궁금합니다 ㅠ
워크홀릭 | 11:13 | 추천 0 | 조회 28
워크홀릭 11:13 - 28
45368 기능/도구
New 맨 아래 데이터에 ┘이런 모양 어케 만드는 거였죠?? 첨부파일 (1)
VictorY | 10:22 | 추천 0 | 조회 33
VictorY 10:22 - 33
45367 함수/공식
New 매출채권 채무 불 이행율 계상 (2)
jyk0077@hanmail.net | 10:20 | 추천 0 | 조회 21
jyk0077@hanmail.net 10:20 - 21
45366 기능/도구
New Excel 에서 Excel 머지 기능 (1)
Frost | 10:07 | 추천 0 | 조회 36
Frost 10:07 - 36
45364 피벗테이블
New 피벗테이블 필터 기능 문의 (1)
단수조정 | 09:53 | 추천 0 | 조회 29
단수조정 09:53 - 29
45363 문서서식
New 행 아래 삽입 (1)
💆🏻‍♀️ DA | 09:44 | 추천 0 | 조회 27
💆🏻‍♀️ DA 09:44 - 27
45362 함수/공식
New if함수로 여러개 조건이텍스트일때 값을 알고싶어요 첨부파일 (2)
짱구는옷말려 | 09:36 | 추천 0 | 조회 34
짱구는옷말려 09:36 - 34
45360 함수/공식
New INDEX, MATCH함수 사용후 값찾은 뒤 할증금액 더하는법 엑셀파일 (4) 답변완료
명주 | 09:07 | 추천 0 | 조회 36
명주 09:07 - 36
45357 함수/공식
New 엑셀 단축키 F2 키 문제 0: 07 초 에서 수식 풀이 방법이 궁금합니다. 첨부파일 (2) 답변완료
엑셀 초보자 | 08:29 | 추천 0 | 조회 22
엑셀 초보자 08:29 - 22
45355 문서서식
New 45강 고급필터 비주얼베이직 메크로 오류 엑셀파일첨부파일
연꽃사랑 | 01:44 | 추천 0 | 조회 24
연꽃사랑 01:44 - 24
45349 함수/공식
New 중복값 주의하면서 조건에 맞는 순위 구하기 엑셀파일첨부파일
노갈 | 2022.12.07 | 추천 0 | 조회 42
노갈 2022.12.07 - 42
45347 함수/공식
New 엑셀 숫자 E+ 표시 문제 해결 방법 셀 서식을 사용해서 1초면 OK! 첨부파일 (2) 답변완료
엑셀 초보자 | 2022.12.07 | 추천 0 | 조회 34
엑셀 초보자 2022.12.07 - 34
45346 함수/공식
New 엑셀 단축키 F2 키 문제 0: 07 초 에서 수식 풀이 방법이 궁금합니다. 첨부파일 (2) 답변완료
엑셀 초보자 | 2022.12.07 | 추천 0 | 조회 33
엑셀 초보자 2022.12.07 - 33
45344 함수/공식
New 다중조건 조건부 서식 다시한번 도움요청 드릴께요 엑셀파일 (1) 답변완료
김태성 | 2022.12.07 | 추천 0 | 조회 47
김태성 2022.12.07 - 47
45339 함수/공식
New 일수로 "0개월00일"로 변환 방법 (1)
보라색양털 | 2022.12.07 | 추천 1 | 조회 41
보라색양털 2022.12.07 1 41