매크로 색깔별 합계구하기....사용하니 엑셀이 너무 느려졌어요 ㅠ

VBA
작성자
큰공쥬 작은공쥬~ ♥
작성일
2021-03-28 11:56
조회
69

엑셀 관련해서 오빠두가 있어 많은 도움이 되고있습니다. 그런데,

매크로 색깔별 합계 구하기 내용 그대로 복사해서 가져가서 응용하니 너무 느려져요. 계산이 바로 바로 되지않고

프로세스 진행율이 보이면서 엄청 느려지네요 ㅠ

이 엑셀파일이 열려있으면 다른 엑셀파일까지도 영향을 받아서 느린데...혹시 왜 그런지 알 수 있을까요??

 

파일 내용은 오픈되어도 상관이 없습니다. 도와 주세요 ㅠ

전체 2

  • 2021-03-29 15:58

    안녕하세요.

    명령문의 속도 개선을 위해 화면 새로고침, 이벤트 처리 옵션을 비활성화 해서 명령문을 사용해보시길 바랍니다.

    Function SumByBgColor(Rng As Range, Ref As Range)
     
    Dim r As Range: Dim v As Double
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    For Each r In Rng
        If CheckColour(r) = CheckColour(Ref) Then v = Application.WorksheetFunction.Sum(v, r.Value)
    Next
     
    SumByBgColor = v
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    
    End Function

    제시해드린 답변이 문제 해결에 도움이 되셨길 바랍니다.

    감사합니다.


  • 2021-04-07 08:47

    안녕하세요~

    수정해주신 명령문을 넣었더니 컴파일 오류/ 정의되지 않았다고 뜨는데.....어디서 건드려야 할지 난감하네요 ㅠ

    몇일동안 씨름 씨름했는데......잉.......도와주세요 선생님~

    그리고 옵션을 비활성화 하라고 하신건 도구/옵션에 있는 걸 말씀하시는게 맞나요?

    오류.jpg


전체 2,796
번호 카테고리 제목 작성자 작성일 추천 조회
2785 VBA
New VBA로 SQL 형식의 관계형 데이터베이스 구축
루카스 | 2021.04.17 | 추천 0 | 조회 10
루카스 2021.04.17 0 10
2784 함수/공식
New 엑셀 버튼(?)만들기 관련 질문드려요! (2) 답변완료
Philiip Rho | 2021.04.17 | 추천 1 | 조회 33
Philiip Rho 2021.04.17 1 33
2783 기능/도구
New 이중유효성목록상자의 콤보박스 활용 관련 질문입니다. (1)
Butterfly | 2021.04.17 | 추천 1 | 조회 18
Butterfly 2021.04.17 1 18
2782 함수/공식
New 텍스트 나누기 (2)
정기🎵 | 2021.04.17 | 추천 1 | 조회 27
정기🎵 2021.04.17 1 27
2781 VBA
New [VBA] 단어진도표를 활용한 각 개인별 단어엑셀파일 만들기 첨부파일 (1)
가람 | 2021.04.17 | 추천 0 | 조회 18
가람 2021.04.17 0 18
2780 VBA
New vba버튼 표 만들기 요청의건 첨부파일
작은소녀 | 2021.04.16 | 추천 0 | 조회 39
작은소녀 2021.04.16 0 39
2779 VBA
New [vba] 엑셀 표에 있는 지정된 행에 있는 이름의 파일을 순서대로 열고 닫는 코드만들기 (2) 답변완료
가람 | 2021.04.16 | 추천 1 | 조회 31
가람 2021.04.16 1 31
2778 함수/공식
New xFilter 유사일치 적용 가능한 함수 (1)
정길이 | 2021.04.16 | 추천 -1 | 조회 24
정길이 2021.04.16 -1 24
2777 문서서식
New 원가계산이 너무 어렵습니다.. (1)
kai | 2021.04.16 | 추천 -1 | 조회 61
kai 2021.04.16 -1 61
2776 함수/공식
New 값 중복 제외 함수를 알고싶습니다. (1)
오리 | 2021.04.16 | 추천 0 | 조회 41
오리 2021.04.16 0 41
2775 VBA
New 'naverfinancehistory' VBA 관련 질문 남겨보아요 (1)
구릉이 | 2021.04.16 | 추천 0 | 조회 18
구릉이 2021.04.16 0 18
2774 기능/도구
New ' 표시 (1)
유리 | 2021.04.16 | 추천 0 | 조회 31
유리 2021.04.16 0 31
2773 함수/공식
New 중복된 데이터 제거 후 불러오기 첨부파일 (3) 답변완료
seisai | 2021.04.15 | 추천 0 | 조회 74
seisai 2021.04.15 0 74
2772 차트/그래프
New 가로형 차트에서 세로축의 항목이 2개 이상일 때 텍스트 방향 변경 어떻게 하나요? (1)
k**** | 2021.04.15 | 추천 0 | 조회 18
k**** 2021.04.15 0 18
2771 함수/공식
New 중복값 제거 및 축출 함수 첨부파일 (2)
3victor | 2021.04.15 | 추천 0 | 조회 48
3victor 2021.04.15 0 48
2770 기능/도구
New 엑셀 셀안에 내용을 메모삽입후 셀복사+삽입된 메모에 붙여넣기 가능할까요? (3)
엑셀공부 | 2021.04.15 | 추천 1 | 조회 42
엑셀공부 2021.04.15 1 42
2769 함수/공식
New 엑셀 왕초보 질문 2개 영역의 데이터 목록을 순차적으로 자동배치 문의 드립니다 첨부파일 (4)
atoz | 2021.04.15 | 추천 -3 | 조회 34
atoz 2021.04.15 -3 34
2768 함수/공식
추천인 등수와 신규회원 데이터 정리 방법을 어떻게 시작해야할지 모르겠어요ㅠ (2) 답변완료
뿌드득 | 2021.04.14 | 추천 0 | 조회 37
뿌드득 2021.04.14 0 37
2767 함수/공식
다른 시트의 항목값중 한개 입력하면 여러항목 같이 불러오기 첨부파일 (1)
정미니 | 2021.04.14 | 추천 0 | 조회 26
정미니 2021.04.14 0 26
2766 함수/공식
지정한 기간+지정한 조건 사이를 만족하는 값의 갯수를 구할떄 함수질문드려요 (2)
냥냥 | 2021.04.14 | 추천 1 | 조회 32
냥냥 2021.04.14 1 32
2765 함수/공식
다중 조건과 텍스트 추출 첨부파일 (4)
강혜원 | 2021.04.14 | 추천 0 | 조회 103
강혜원 2021.04.14 0 103
2764 VBA
vba 질문 (뒤로가기 버튼 구현) (2)
자신 | 2021.04.13 | 추천 0 | 조회 48
자신 2021.04.13 0 48
2763 VBA
여러 항목별 중 반복되는 특정시각에 맞는 항목 찾기. 논리적 규칙? 방향을 못잡겠습니다. (4)
6ra70 | 2021.04.13 | 추천 0 | 조회 45
6ra70 2021.04.13 0 45
2762 함수/공식
XLOOKUP 함수 활용한 세트구성 원가 합 구하기 첨부파일 (1)
고래 | 2021.04.13 | 추천 0 | 조회 49
고래 2021.04.13 0 49
2761 함수/공식
텍스트 및 수식 불러오기 함수 요청의 건 첨부파일 (3) 답변완료
seisai | 2021.04.13 | 추천 0 | 조회 56
seisai 2021.04.13 0 56
2760 함수/공식
리본메뉴 단축버튼 만들기 첨부파일 (5) 답변완료
SAM | 2021.04.13 | 추천 0 | 조회 46
SAM 2021.04.13 0 46
2759 피벗테이블
피벗테이블 - 계산필드 첨부파일 (5)
나도오빠두한다 | 2021.04.13 | 추천 0 | 조회 46
나도오빠두한다 2021.04.13 0 46
2758 기능/도구
엑셀2007 필터링 및 데이터 붙여넣기, 삭제 관련 첨부파일 (2)
엑셀초보 | 2021.04.13 | 추천 0 | 조회 25
엑셀초보 2021.04.13 0 25
2757 함수/공식
어떤 수식을 써야할지 감이 안잡힙니다... 3탄... 첨부파일 (4) 답변완료
벳남외노자 | 2021.04.13 | 추천 1 | 조회 78
벳남외노자 2021.04.13 1 78
2756 함수/공식
경력의 80페센트를 구하는 수식을 알고 싶습니다. (1)
eggs**** | 2021.04.13 | 추천 0 | 조회 58
eggs**** 2021.04.13 0 58