for each 문 에서 진행율 을 지역창에 표시하거나 아니면 process bar 를 만들고 싶습니다

VBA
작성자
밍장군
작성일
2021-11-03 11:44
조회
50
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요

제목과 같습니다

현재

for each i in ActiveWorkbook.Worksheets

'coding

next i

해당 구문을 쓴는데

한참 걸려서 진행율을 보고 싶네요

찾아보니 그냥 for 문에 대한 건 나와 있는데

for each 문에 대한건 찾기가 어려워서

가르쳐주실분~

회원등급 : 9레벨
포인트 : 647 EP
총질문 : 36 개 (마감율 : 28%)
채택답변 : 0 개
전체 2

  • 2021-11-03 11:54
    채택된 답변
    i = 1
    tot = ActiveWorkbook.WorkSheets.Count
    for each i in ActiveWorkbook.Worksheets
    Debug.Print i / tot & "% Completed"
    i = i + 1
    next i

     


    • 2021-11-03 17:19

      @엑셀은즐거워 님 가끔씩 내가 바보인가 하는 생각이 ... 듭니다


전체 4,648
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 14 | 조회 702
트로피 오빠두엑셀 2021.10.28 14 702
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일
가리 | 12:22 | 추천 0 | 조회 9
가리 12:22 0 9
24153 VBA
New 엑셀 검색 창 첨부파일 (1)
이혜 | 11:59 | 추천 0 | 조회 12
이혜 11:59 0 12
24149 VBA
New 엑셀 메일 보내기 자동화 매크로 관련 (저장경로 변경, 일정한 셀 값의 변화로 매크로 반복) 첨부파일
| 10:48 | 추천 0 | 조회 20
10:48 0 20
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환
이길호 | 10:34 | 추천 0 | 조회 15
이길호 10:34 0 15
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 01:37 | 추천 0 | 조회 35
이치영 01:37 0 35
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 46
툴잇지 with 우정기기 2021.11.29 0 46
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 48
키큰아저씨 2021.11.29 0 48
24129 VBA
New 직사각형 도형 삭제vba (2) 답변완료
H.B | 2021.11.29 | 추천 1 | 조회 32
H.B 2021.11.29 1 32
24126 VBA
New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
볼펜수리공 | 2021.11.29 | 추천 0 | 조회 29
볼펜수리공 2021.11.29 0 29
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (2) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 34
glas**** 2021.11.29 0 34
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 40
감사하모니카 2021.11.29 0 40
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 44
한정석 2021.11.29 0 44
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의
T첫 | 2021.11.29 | 추천 0 | 조회 24
T첫 2021.11.29 0 24
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 39
공수래 2021.11.29 0 39
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
유지연 | 2021.11.29 | 추천 0 | 조회 27
유지연 2021.11.29 0 27
24098 VBA
New 워드 Format(숫자, "#,###") (1) 답변완료
argus | 2021.11.28 | 추천 0 | 조회 38
argus 2021.11.28 0 38
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 42
축전 2021.11.28 0 42
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 23
가을전어 2021.11.28 0 23
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
어루 | 2021.11.28 | 추천 0 | 조회 21
어루 2021.11.28 0 21
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 40
y**** 2021.11.28 0 40
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 45
ㅈㄱㄹ 2021.11.28 0 45
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 58
007 2021.11.28 0 58
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 37
루s cos 개인대행 2021.11.28 0 37
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 57
호랑이파워 2021.11.28 0 57
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 55
jyj6**** 2021.11.27 0 55
24060 VBA
New 메모리가 부족하다고 뜹니다. 첨부파일
선물 | 2021.11.27 | 추천 0 | 조회 33
선물 2021.11.27 0 33
24059 VBA
New 첨부파일을 서버 업로드 (1)
권원재 | 2021.11.27 | 추천 0 | 조회 31
권원재 2021.11.27 0 31
24053 파워쿼리/피벗
엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 2021.11.27 | 추천 1 | 조회 36
jyj6**** 2021.11.27 1 36
VBA
Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 2021.11.27 | 추천 1 | 조회 43
Yukon 2021.11.27 1 43
피벗테이블
New Re:Re:엑셀 배열 순서를 바꾸고 싶습니다. (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 28
jyj6**** 2021.11.27 0 28