VBA에서 데이터 로딩한 후 다음 수식을 지연시키는 방법

VBA
작성자
반갑습니
작성일
2022-09-06 15:50
조회
67
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : VBA에서 데이터를 로딩한 후 그 데이터로 도형의 색을 바꾸고 있습니다.
데이터를 불러오는 속도가 조금 걸려서 다른 계산식이 먼저 작동해버리는데,
이를 어떻게 하면 좋을까요

먼저 SQL을 이용해서 시트4에 데이터를 로딩하고 있습니다.

그래서 새로고침 명령문을 입력을 했는데

새로고침 명령문을 시행하고 실제로는 데이터를 불러오느라 약간의 시간이 걸리지만

VBA에서는 데이터 로딩 실행 후 바로 밑에 명령문들을 시행하느라

데이터가 도착하기 전에 다른 명령문을 먼저 시행해버립니다.

그래서 VBA를 두 번 클릭해줘야 원하는 결과를 얻을 수 있는데 한 번 클릭으로 원하는 결과를 얻는 건 어떻게 해야할까요?

딜레이를 줘봤는데 소용이 없네요.

 

 

 

Sub test()

ActiveWorkbook.RefreshAll

Application.ScreenUpdating = False

 

Dim sh As Object

Dim i As Long

Dim u As Long

For i = 1 To 3

For Each sh In Sheets(i).Shapes

For u = 1 To 20

 

If sh.Name = "펌프" & u Then

If Sheets(4).Cells(2, u) = "on" Then

sh.Fill.ForeColor.RGB = RGB(255, 0, 0)

Else

sh.Fill.ForeColor.RGB = RGB(0, 255, 0)

End If

 

End If

 

Next

Next

Next

 

 

End Sub

 

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

  • 2022-09-06 16:05

    @반갑습니

    application.wait를 사용하세요.
    
    Sub run()
    
        MsgBox "Start : 5 seconds waiting"
        
        Application.Wait Now + TimeValue("0:00:5")
        
        '실행할 내용..~
       
    
    End Sub
    

     


전체 7,839
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉 오피스 분야 30주 연속 1위! - 「 진짜쓰는 실무엑셀 」 전자책이 출간되었습니다! (6)
오빠두엑셀 | 2022.09.28 | 추천 5 | 조회 276
오빠두엑셀 2022.09.28 5 276
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 5 | 조회 1709
오빠두엑셀 2022.08.04 5 1709
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (97)
오빠두엑셀 | 2021.10.28 | 추천 125 | 조회 7487
오빠두엑셀 2021.10.28 125 7487
42696 VBA
New VBA 리스트박스 목록 선택 시 자동 누적 입력하기 안됨 해결방법 엑셀파일
GMART | 2022.10.01 | 추천 0 | 조회 15
GMART 2022.10.01 - 15
42695 파워쿼리/피벗
New 파워쿼리 병합 후 정렬에 대해서 질문드립니다. 엑셀파일첨부파일
월마리아 | 2022.10.01 | 추천 0 | 조회 10
월마리아 2022.10.01 - 10
42689 VBA
New 셀의 이미지를 복사하는 매크로... 첨부파일
실런 | 2022.10.01 | 추천 0 | 조회 23
실런 2022.10.01 - 23
42686 문서서식
New 영상 자료파일
뿌삐뿌찌빵꾸똥 | 2022.10.01 | 추천 0 | 조회 27
뿌삐뿌찌빵꾸똥 2022.10.01 - 27
42684 문서서식
New 조건부 서식 색 적용 안됨 첨부파일 (3)
아드키 | 2022.10.01 | 추천 0 | 조회 27
아드키 2022.10.01 - 27
42678 VBA
New VBA코드 오류뜨는데 왜 일까요ㅠㅠ 첨부파일 (2)
엑셀공부중 | 2022.10.01 | 추천 0 | 조회 28
엑셀공부중 2022.10.01 - 28
42676 함수/공식
New 함수조언 구합니다. 엑셀파일
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 29
엑셀공부중 2022.09.30 - 29
42672 기능/도구
New 조건부 서식이 적용되지 않습니다. 첨부파일
dollffin | 2022.09.30 | 추천 0 | 조회 30
dollffin 2022.09.30 - 30
42670 피벗테이블
New 관계형데이터베이스 파워피벗 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 0 | 조회 37
겸둥이 2022.09.30 - 37
42669 함수/공식
New 출퇴근 자료를 이용하여 근태 테이블 작성하기 (index, match, iferror 함수 사용) 엑셀파일 (1)
공학 | 2022.09.30 | 추천 0 | 조회 38
공학 2022.09.30 - 38
42667 VBA
New M365 2206 버전의 VBA 자동화 오류 관련하여 문의를 드리고자 합니다
lililililil | 2022.09.30 | 추천 0 | 조회 24
lililililil 2022.09.30 - 24
42665 함수/공식
New if 함수 논리 설정 시 범위 선택 첨부파일 (2)
구찌갱 | 2022.09.30 | 추천 0 | 조회 30
구찌갱 2022.09.30 - 30
42664 문서서식
New 엑셀 날짜관련 질문드립니다. 첨부파일 (1)
엑셀잘할래요 | 2022.09.30 | 추천 0 | 조회 30
엑셀잘할래요 2022.09.30 - 30
42661 함수/공식
New 함수 조언구합니다. 엑셀파일 (2) 답변완료
엑셀공부중 | 2022.09.30 | 추천 0 | 조회 38
엑셀공부중 2022.09.30 - 38
42660 기능/도구
New 27인치 4K모니터로 엑셀을 하면... (1)
9 Crimes | 2022.09.30 | 추천 0 | 조회 45
9 Crimes 2022.09.30 - 45
42656 함수/공식
New 떨어진 여러 셀간의 AVERAGEIF 함수 사용 (1) 답변완료
아홉열 | 2022.09.30 | 추천 0 | 조회 35
아홉열 2022.09.30 - 35
42655 피벗테이블
New 피벗테이블에서 날짜 값 중에 "월"이 표시되었으면 합니다. 첨부파일 (7) 답변완료
twou**** | 2022.09.30 | 추천 0 | 조회 42
twou**** 2022.09.30 - 42
42653 VBA
New 엑셀 함수가 적용된 셀 영역에 round를 하는 방법 엑셀파일 (9) 답변완료
우산쓰자 | 2022.09.30 | 추천 0 | 조회 31
우산쓰자 2022.09.30 - 31
42651 함수/공식
New 수식 사용 시 결과값 오류 문의 엑셀파일 (3) 답변완료
병알 | 2022.09.30 | 추천 0 | 조회 28
병알 2022.09.30 - 28
42650 피벗테이블
New 관계형데이터 -파워피벗 관련 질문드려요. 엑셀파일 (2) 답변완료
겸둥이 | 2022.09.30 | 추천 1 | 조회 31
겸둥이 2022.09.30 1 31
42648
New OFFSET함수 관련 문의 첨부파일 (9)
콕콕이 | 2022.09.30 | 추천 0 | 조회 42
콕콕이 2022.09.30 - 42
42643 기능/도구
New 셀 병합 관련 알림 끄는 법 첨부파일 (1)
이종현 | 2022.09.30 | 추천 0 | 조회 29
이종현 2022.09.30 - 29
42635 VBA
New 원드라이브에 공유된 엑셀간에 VBA를 사용해서 데이터를 가져올수 있을까요 ?
헬롱 | 2022.09.30 | 추천 0 | 조회 30
헬롱 2022.09.30 - 30
42632 파워쿼리/피벗
New 파워쿼리 내에서 vlookup함수와 같은 기능이 없을까요? 엑셀파일첨부파일 (3)
월마리아 | 2022.09.30 | 추천 0 | 조회 46
월마리아 2022.09.30 - 46
42621 기능/도구
New 셀 하나당 그래프 하나를 만드는 방법이 궁금합니다. 첨부파일 (2) 답변완료
XD | 2022.09.29 | 추천 0 | 조회 45
XD 2022.09.29 - 45
42619 함수/공식
New 행방향으로으로 정열된 동일항목의 비고를 열방향으로 정열하는 방법 엑셀파일첨부파일 (8)
마운틴 | 2022.09.29 | 추천 0 | 조회 45
마운틴 2022.09.29 - 45
42618 VBA
New 블로그 문서 발행량 크롤링 서식을 다른 파일에서 이용하려면? 첨부파일 (3) 답변완료
XD | 2022.09.29 | 추천 0 | 조회 27
XD 2022.09.29 - 27
42612 함수/공식
New 다중 조건으로 하나의 결과값을 도출하고 싶습니다. 엑셀파일첨부파일 (2) 답변완료
배워배움 | 2022.09.29 | 추천 0 | 조회 38
배워배움 2022.09.29 - 38
42610 피벗테이블
New 엑셀 문서 재정리및 재정렬(부탁드려요 ㅠㅠ) 엑셀파일 (1)
u2y1gz71vdif | 2022.09.29 | 추천 0 | 조회 40
u2y1gz71vdif 2022.09.29 - 40
42607 기능/도구
New 엑셀 프로그램 2개를 하나의 파일로 합치는 방법이 있을까요? 엑셀파일 (2) 답변완료
노무인턴 | 2022.09.29 | 추천 0 | 조회 46
노무인턴 2022.09.29 - 46