영역 복사 관련

VBA
작성자
워싱턴
작성일
2021-11-02 20:14
조회
209
엑셀버전 : 엑셀2013

운영체제 : 윈도우10

안녕하세요
아래 그림의 B12:T20 영역을 일정시간(5분)마다 1칸우측(C12)로 반복해서 복사하는 VBA 매크로를 실행중입니다.
그런데, 복사가 잘 될때도 있지만, 간혹가다 엑셀 문제인지, 시스템 문제인지 복사중에 행이 걸려서
복사가 안되고 계속해서 시스템이 모래시계 상태로 거의 멈춰서 있는 경우가 발생합니다.
이런경우 거의 PC를 재부팅하게 됩니다.
그래서, 아래의 복사 명령 대신 시스템 부하를 최대한 줄이고, 복사할 수 있는 다른 방법이 있는지 문의드립니다.
감사합니다.

---------------------------------------

Range("B12:T20").Copy

Range("C12").Select
ActiveSheet.PasteSpecial Format:=3, link:=1, DisplayAsIcon:=False, _
IconFileName:=False


전체 4

  • 2021-11-03 04:10

    코드 앞 뒤로 아래 구문 추가해보세요

    Sub
    Application.ScreenUpdating = False
    '코드
    Application.ScreenUpdating = True
    End Sub

     


    • 2021-11-03 10:21

      @더블유에이 님 답변 감사드립니다.


  • 2021-11-03 05:54
    채택된 답변

    참고하세요......

    Dim myRng As Range
    Dim x1, x2, y1, y2 As LongLong
    Dim PauseTime, Start, Finish, TotalTime

    x1 = 12: y1 = 2: x2 = 20: y2 = 20
    Set myRng = Range(Cells(x1, y1), Cells(x2, y2))
    myRng.Interior.ColorIndex = 27

    PauseTime = 5
    Start = Timer
    Finish = Start + 50

    For Start = Timer To Finish Step 5
    myRng.Copy
    myRng.Offset(0, 1).PasteSpecial (xlPasteAll)
    y1 = y1 + 1: y2 = y2 + 1
    Set myRng = Range(Cells(x1, y1), Cells(x2, y2))
    myRng.Interior.ColorIndex = myRng.Interior.ColorIndex + 1
    Next

    첨부파일 : 구역옮기기.xlsm


    • 2021-11-03 10:22

      @Yukon 님 자세한 설명과 답변 감사드립니다.


전체 5,225
번호 카테고리 제목 작성자 작성일 추천 조회
알림
하루 딱 "1분", 진짜 쓰는 엑셀 꿀팁 👉 "오빠두엑셀" 인스타그램 오픈! (32)
트로피 오빠두엑셀 | 2021.10.12 | 추천 23 | 조회 826
트로피 오빠두엑셀 2021.10.12 23 826
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (23)
오빠두엑셀 | 2021.10.28 | 추천 33 | 조회 2504
트로피 오빠두엑셀 2021.10.28 33 2504
26468 함수/공식
New 똑같은 수식으로 텍스트의 바이트수를 계산하는데 다르게 나옵니다.ㅠ 첨부파일
turtle**** | 21:19 | 추천 0 | 조회 15
turtle**** 21:19 0 15
26466 VBA
New 재고관리 filtered_db 함수 사용관련 질문입니다. (db가 empty인 경우 사용법)
탄만두 | 20:09 | 추천 0 | 조회 16
탄만두 20:09 0 16
26462 VBA
New VBA오빠두님의 Listfiles함수 중에 (1)
H.B | 18:20 | 추천 1 | 조회 20
H.B 18:20 1 20
26460 VBA
New vba 일치하는 값 찾기 질문 드립니다. 첨부파일 (1)
qkrwo**** | 18:10 | 추천 0 | 조회 20
qkrwo**** 18:10 0 20
26454 VBA
New Excel VBA _ Select 하지않고 바로 작업하는 방법 (2) 답변완료
백일호 | 16:34 | 추천 1 | 조회 32
백일호 16:34 1 32
26444 VBA
New 네이버 웹페이지 특정 정보 가져오기 질문
엑셀초보(LV.1) | 14:09 | 추천 0 | 조회 16
엑셀초보(LV.1) 14:09 0 16
26441 VBA
New vba 코딩으로 다른 시트 데이터 가져오기 질문입니다. 첨부파일 (2) 답변완료
qkrwo**** | 13:34 | 추천 0 | 조회 34
qkrwo**** 13:34 0 34
26440 피벗테이블
New 3개의 피벗테이블 필터 값을 동시에 변경하는 방법이 알고 싶어요 첨부파일
forest choi | 13:19 | 추천 0 | 조회 24
forest choi 13:19 0 24
26439 VBA
New VBA 네이버 부동산 크롤링 질문 (1)
엑셀초보(LV.1) | 12:55 | 추천 0 | 조회 23
엑셀초보(LV.1) 12:55 0 23
26421 문서서식
New 엑셀과 워드 메일머지 강의에는 예제파일이 없나요?
pcs**** | 01:30 | 추천 0 | 조회 25
pcs**** 01:30 0 25
26420 함수/공식
New 회원자료실 커스텀 일정표에서 조건추가하여 사용하고싶은데 질문있습니다 !
창동명 | 01:27 | 추천 0 | 조회 28
창동명 01:27 0 28
26410 피벗테이블
New 피벗 테이블에서 취소선을 표현하는 방법 첨부파일 (1)
퉁퉁이 | 2022.01.25 | 추천 0 | 조회 44
퉁퉁이 2022.01.25 0 44
26408 기능/도구
New 표에서 바로만든 슬라이서도 보고서연결 기능과 비슷하게 만들 수 있나요? (2)
차가운열매 | 2022.01.25 | 추천 0 | 조회 36
차가운열매 2022.01.25 0 36
26405 함수/공식
New 최고점/최저점 찾아내기 첨부파일 (9) 답변완료
km**** | 2022.01.25 | 추천 0 | 조회 55
km**** 2022.01.25 0 55
26403 VBA
New VBA를 이용하여 euc-kr로 인코딩된 site 크롤링 방법
콩순이 | 2022.01.25 | 추천 0 | 조회 26
콩순이 2022.01.25 0 26
26401 VBA
New 목표값 계산 자동 매크로 방법 첨부파일 (1)
박우성 | 2022.01.25 | 추천 0 | 조회 39
박우성 2022.01.25 0 39
26399 피벗테이블
New 데이터 새로고침 시 피벗테이블 연결 오류 첨부파일 (1)
유정 | 2022.01.25 | 추천 0 | 조회 25
유정 2022.01.25 0 25
26392 함수/공식
New MINIFS 함수 사용시 0으로 값 반환됨 (초보자에게 도움 부탁드립니다...ㅜㅜ) 첨부파일 (3) 답변완료
김원석 | 2022.01.25 | 추천 0 | 조회 36
김원석 2022.01.25 0 36
26387 VBA
New VBA 엑셀에서 다른 프로그램 실행하기 (2) 답변완료
병욱 | 2022.01.25 | 추천 0 | 조회 37
병욱 2022.01.25 0 37
26378 피벗테이블
New 피벗테이블 집계 오류 (5) 답변완료
가을남자 | 2022.01.25 | 추천 0 | 조회 44
가을남자 2022.01.25 0 44
26371 VBA
New VBA 항목별 행렬전환 문의 첨부파일 (6) 답변완료
H.B | 2022.01.25 | 추천 1 | 조회 45
H.B 2022.01.25 1 45
26368 문서서식
New 셀에 입력시 자음 모음 분리문제 (1)
흑형 | 2022.01.25 | 추천 0 | 조회 29
흑형 2022.01.25 0 29
26366 VBA
New ■ 셀에 삽입된 메모 수량 카운팅하는 방법 첨부파일 (5) 답변완료
비스타 | 2022.01.25 | 추천 1 | 조회 54
비스타 2022.01.25 1 54
26360 함수/공식
New 엑셀 데이터통합 기능 이용시 합계가 달라지는 이유 첨부파일 (5)
wlfl**** | 2022.01.25 | 추천 0 | 조회 50
wlfl**** 2022.01.25 0 50
26343 함수/공식
New 전산입고품목과 실제입고품목의 실재고조사관련 양식(함수+피벗테이블)첨언좀 부탁드립니다.도와주세요! 첨부파일 (4) 답변완료
sunjong**** | 2022.01.24 | 추천 0 | 조회 72
sunjong**** 2022.01.24 0 72
26341 VBA
New VBA 내 배열 통합(쿼리 통합 기능을 VBA에서 구현하고자 합니다.) 첨부파일 (1)
병욱 | 2022.01.24 | 추천 0 | 조회 38
병욱 2022.01.24 0 38
26339 VBA
New 많은 텍스트상자안 문자 찾기 (4)
noeu**** | 2022.01.24 | 추천 -1 | 조회 53
noeu**** 2022.01.24 -1 53
26338 함수/공식
New 지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? 첨부파일 (3) 답변완료
말창 | 2022.01.24 | 추천 0 | 조회 57
말창 2022.01.24 0 57
함수/공식
New Re:지정한 일수(days)를 달력에 자동으로 표시 되게끔 설정이 가능한가요? (1)
Lucas's | 2022.01.24 | 추천 0 | 조회 35
Lucas's 2022.01.24 0 35
26336 함수/공식
New 셀안 동일 회사명을 순차 카운트를 하고 싶습니다. (3) 답변완료
sickp**** | 2022.01.24 | 추천 0 | 조회 32
sickp**** 2022.01.24 0 32
26334 함수/공식
New 이름만 치면 열 다 띄워주는 방법을 알려주세요 첨부파일 (8) 답변완료
아마테라스 | 2022.01.24 | 추천 0 | 조회 61
아마테라스 2022.01.24 0 61