VBA what replace 구문 사용 시 엑셀 프로그램이 종료(팅김현상)됩니다.

VBA
작성자
강아지
작성일
2022-09-14 11:16
조회
38
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart 구문 사용시 프로그램 종료되는 오류를 해결하고 싶습니다.
* Replacement:="" 코드만 제거 후 매크로를 돌리면 종료되지 않습니다.

안녕하세요.

VBA 코딩 중 오류가 발생해 질문드립니다.

다른 PC에서는 발생하지 않았으나, 한 개의 PC에서 아래 코드 사용시 엑셀 프로그램이 자동 종료(팅김)되는 오류가 발생했습니다.

RUN TIME ERROR 등 디버그 창도 발생하지 않고 그냥 자동 종료됩니다.

 

With ThisWorkbook.Worksheets(sh)

On Error Resume Next

.Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart

End With

 

위의 코드에서 Replacement:=""만 제거하고 돌리면 정상 작동합니다.

(On Error Resume Next 주석 처리, 오류 PC 엑셀 옵션 초기화 등 다른 방법으로는 계속 튕깁니다..)

어떤 이유로 이런 자동 종료 오류가 발생하는지 궁금하며,

어떻게 코드를 수정(위의 코드와 유사한 코드로 대체 등)해야 자동 종료 오류를 해결할 수 있는지 질문드립니다.

감사합니다.

스크랩
공유
전체 4

  • 2022-09-15 13:33

    @강아지 님 Sub foo()

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False

    Dim b As Range
    Set b = Selection

    Dim c As Range
    Cells.Select
    Set c = Selection.Find(What:=" ", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False)
    If Not c Is Nothing Then
    Do
    c.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False
    Set c = Selection.FindNext(c)
    Loop While Not c Is Nothing
    End If

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True

    b.Select

    End Sub

    이 코드도 꺼지는지 테스트해보세요


  • 2022-09-14 11:52

    @강아지 님 CTRL+H로도 한번 해보세요...튕기는지.


    • 2022-09-14 13:18

      @마법의손 님 CTRL+H는 정상 작동합니다


  • 2022-09-14 13:49

    @강아지 님 VBA 소스에 대해서 수없이 반복하여 수정하고 컴파일하면서 사용하는 경우에 종종 엉키는 경우가 있습니다.

    소스를 내보내기 해서 새로운 파일에서 가져오기 해서 다기만들어 보면 아무런 문제가 안생기는 경우도 있습니다.


전체 7,755
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉다양한 이벤트와 함께 진행하는, PPT 보고서 디자인 특강 안내 - 9/24 (토) 오후 9시~ (14)
오빠두엑셀 | 2022.09.08 | 추천 9 | 조회 2268
오빠두엑셀 2022.09.08 9 2268
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1636
오빠두엑셀 2022.08.04 4 1636
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (93)
오빠두엑셀 | 2021.10.28 | 추천 123 | 조회 7368
오빠두엑셀 2021.10.28 123 7368
42434 VBA
New 셀레니움을 통한 엣지 호출 첨부파일 (1)
로고테라피 | 2022.09.25 | 추천 0 | 조회 19
로고테라피 2022.09.25 - 19
42432 VBA
New get_db 명령어 관련 질문드립니다 첨부파일 (1)
EXCELEXCEL | 2022.09.25 | 추천 0 | 조회 18
EXCELEXCEL 2022.09.25 - 18
42427 기능/도구
New 엑셀 '안전모드' 실행하는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2022.09.25 | 추천 0 | 조회 26
월마리아 2022.09.25 - 26
42426 VBA
New 사진대지 VBA 매크로 수정 엑셀파일 (1)
WWW | 2022.09.25 | 추천 0 | 조회 20
WWW 2022.09.25 - 20
42414 기능/도구
New 엑셀로 가능한지 여쭤봅니다. 엑셀파일첨부파일 (1)
naver_5f055a605ee7d | 2022.09.24 | 추천 0 | 조회 51
naver_5f055a605ee7d 2022.09.24 - 51
42405 함수/공식
New 엑셀 INDEX MATCH 함수 질문드립니다. (다중조건) 첨부파일 (4)
임천명 | 2022.09.24 | 추천 0 | 조회 43
임천명 2022.09.24 - 43
42396 함수/공식
New 함수조언 엑셀파일 (1) 답변완료
엑셀공부중 | 2022.09.24 | 추천 0 | 조회 39
엑셀공부중 2022.09.24 - 39
42395 함수/공식
New 함수 결과값 자동 갱신 질문입니다 엑셀파일 (2)
lifeti**** | 2022.09.24 | 추천 0 | 조회 36
lifeti**** 2022.09.24 - 36
42391 VBA
New 검색어와 동일한 결과값에 하이라이트 색깔 넣기 첨부파일 (1)
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 40
조지아 칸타타 2022.09.23 - 40
42390 VBA
New 검색어 입력시 같은 정보가 2개 반복되어... 첨부파일
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 28
조지아 칸타타 2022.09.23 - 28
42386 함수/공식
New 조건부서식 오류 엑셀파일첨부파일 (3)
Ngw77 | 2022.09.23 | 추천 0 | 조회 36
Ngw77 2022.09.23 - 36
42385 기능/도구
New 파일 가로로 통합하기(합치기) 질문입니다 첨부파일 (1)
감귤쫀드기 | 2022.09.23 | 추천 0 | 조회 36
감귤쫀드기 2022.09.23 - 36
42379 문서서식
New 가로로 작업했는데, 내용 보존?하면서 세로로 쉽게 바꿀 수 있는 방법이 있나요?? (1)
앨리 | 2022.09.23 | 추천 0 | 조회 50
앨리 2022.09.23 - 50
42378 차트/그래프
New 강우-유출량 그래프 분석 엑셀파일 (1)
chanyk | 2022.09.23 | 추천 0 | 조회 45
chanyk 2022.09.23 - 45
42377 함수/공식
New 한도액에서의 지원금 정산하기 엑셀파일 (2)
송인숙 | 2022.09.23 | 추천 0 | 조회 31
송인숙 2022.09.23 - 31
42374 함수/공식
New 각기 다른셀에 값 입력시 한셀에 날짜 자동 나타내기 (2)
MC쿠마 | 2022.09.23 | 추천 0 | 조회 26
MC쿠마 2022.09.23 - 26
42372 함수/공식
New 조건별 날짜계산 함수 계산 엑셀파일 (2) 답변완료
Ngw77 | 2022.09.23 | 추천 0 | 조회 41
Ngw77 2022.09.23 - 41
42367 기능/도구
New 엑셀2019에서 shift + 스크롤 (시트 좌우 스크롤) 되는건가요? 첨부파일 (4) 답변완료
월마리아 | 2022.09.22 | 추천 0 | 조회 44
월마리아 2022.09.22 - 44
42366 구글시트
New 스프레드 시트 필터함수 엑셀파일첨부파일 (5) 답변완료
거꾸로문 | 2022.09.22 | 추천 0 | 조회 48
거꾸로문 2022.09.22 - 48
42362 함수/공식
New NaverFinanceHistory 함수 연결 데이터 갱신 질문입니다 엑셀파일첨부파일
lifeti**** | 2022.09.22 | 추천 0 | 조회 34
lifeti**** 2022.09.22 - 34
42358 VBA
New VBA 텍스트 파일 저장 후 불러오기 질문드립니다. 엑셀파일
LovelyK | 2022.09.22 | 추천 0 | 조회 42
LovelyK 2022.09.22 - 42
42355 함수/공식
New 근속년수 산출 관련 문의 (4)
꼬맹이영 | 2022.09.22 | 추천 0 | 조회 61
꼬맹이영 2022.09.22 - 61
42354 함수/공식
New 세가지의 조건을 만족하는 값 불러오기 엑셀파일 (3) 답변완료
뎡이 | 2022.09.22 | 추천 0 | 조회 70
뎡이 2022.09.22 - 70
42348 차트/그래프
New 엑셀 일일 데이터관리 차트를 만들려고 합니다,,, 첨부파일 (2)
MC쿠마 | 2022.09.22 | 추천 0 | 조회 55
MC쿠마 2022.09.22 - 55
42342 기능/도구
New 엑셀 셀의 열너비, 행높이 고정 문의드립니다. (4)
함수시르미 | 2022.09.22 | 추천 0 | 조회 54
함수시르미 2022.09.22 - 54
42341 함수/공식
New  증가 또는 하락하는 함수 문의 합니다. 엑셀파일 (1) 답변완료
천형기 | 2022.09.22 | 추천 0 | 조회 44
천형기 2022.09.22 - 44
42336 차트/그래프
New 차트 세로줄 변동 되게 하고 싶습니다. 첨부파일 (3) 답변완료
성호 | 2022.09.22 | 추천 0 | 조회 32
성호 2022.09.22 - 32
42332 기능/도구
New 여러 행 데이터 한 행으로 통합하는 방법 첨부파일 (4)
엑셀고수왕소취 | 2022.09.21 | 추천 0 | 조회 57
엑셀고수왕소취 2022.09.21 - 57
42330 함수/공식
New STOCKHISTORY 거래량 오류 질문입니다 첨부파일 (2) 답변완료
lifeti**** | 2022.09.21 | 추천 0 | 조회 45
lifeti**** 2022.09.21 - 45
42327 구글시트
New 도서목록 검색하기 엑셀파일 (4) 답변완료
거꾸로문 | 2022.09.21 | 추천 0 | 조회 46
거꾸로문 2022.09.21 - 46