엑셀 VBA 코드좀 짜주실 능력자분 계십니까?

VBA
작성자
향기
작성일
2021-09-08 10:13
조회
88
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요
네이버지식인 형님들께서 VBA 코드를 짜주셨는데
15프로 모자란.......

원래 SUMIFS 로 함수로 했었는데...셀 수가 100만개 가까이 SUMIFS 가 들어가니 파일자체가 너무 무거워져서

간단한 타이핑도 렉이 걸리는 현상이 발생해버려서....매크로 제작을 부탁드리게 되었습니다.

수정좀 가능하신분 계실까요 ?

파일이 3매가 정도되는데 용량이 크다고 올려지질않네요 ;;
밑의 링크에서 다운부탁드릴께요
https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=399364350&scrollTo=answer1

문제 1.

8월 데이터만 불러온다.

그뒤로는 데이터를 불러오질못하네요

문제 2.

FIELD 시트에는 불러올때 조건이 하나더 있다.

AREA시트의 D열에 ● 가 들어있을시에만 합산하여 불러오게 해줬으면 하네요.

SHOP시트는 8월31일 이후에도 데이터를 불러와줬으면하고

FIELD 시트에서 사용할 기존의 코드에 추가 코드가 필요합니다..

 

 

 

코드를 보시면 아시겠지만 조금이라도 참고가 될지 모르기에 글로 설명을 드리겠습니다.

시트는 총 3개가 있는데 SHOP 시트와 FIELD 시트에 AREA 시트에서 값을 불러오면 됩니다.

※SHOP 시트와 FIELD 시트의 K열 이전에 값은 전부 싸그리 무시하셔도 됩니다.

단지. A 열 의 번호를 참고합니다.

※SHOP시트 에 불러올값※

SHOP시트의 7행의 K 부터  IP 에 날짜가 들어있습니다.
8행의 K열 가부 L열 용접 이 계속 반복되며 그밑으로 A열 번호를 참고하며 AREA시트에서 합산한 데이터를 가져오면됩니다.

AREA시트 O7부터 O5000 에 가부를 한날짜가 들어있습니다.

AREA시트 S7부터 S5000 에 용접를 한날짜가 들어있습니다.

L7부터 S5000에 가부한 갯수

S7부터 S5000 에 용접한 갯수

A7부터 A5000 에 숫자 (SHOP시트의 A열 숫자의 참조 숫자)
ex)AREA시트의 A7 부터 A13까지 1 이 들어있으면
SHOP 9행의 해당 날짜에 값이 합산되어서 들어가면됩니다.

 

SHOP 시트에서 버튼을 누르면 SHOP시트와 AREA시트의

A열의 번호를 비교하며  AREA시트의 O열과 S열에서 날짜를 찾아서 SHOP시트의 해당날짜에 합산하여 넣는다

날짜가 100몇십일 정도 있기에 눈에 빨리 들어오게 가부는 파랑 용접은 빨강 을 표시해줬으면 합니다.

(샾시트의 8열에 색이 있습니다.)

 

※FIELD 시트 에 불러올값※

위와 동일하나 추가 조건이 하나 더 붙습니다.
AREA시트의 D7부터 D5000셀안에 ●가 붙을때만 불러 오게 해주셨으면 합니다.

 

 

능력자분계시면....손좀 봐주시면 감사하겠습니다.

 

 

전체 4

  • 2021-09-16 16:27

    감사합니다 ! 이것저것 많은 공부가 되었씁니다


  • 2021-09-09 00:42

    아래 강의 참고하시면 바로 해결 될 것 같습니다

    엑셀 고급필터 매크로, 필터 자동화 완벽 정리


    • 2021-09-09 11:26

      답변 감사합니다만
      제가 원하던것이랑은 조금 다른것같습니다.
      그대로 불러오는게 아니라 여러조건에 따라 합산하고 필요한곳에 원본을 보내는게 아니고 계산된 그 값을 보내는거라....
      계산식등을 몰라서 해매고 있습니다.

      다른 곳에서 사용가능할것같아서 도움이 되었습니다.
      감사합니다


      • 2021-09-10 18:46
        채택된 답변

        필터링 된 결과를 하나씩 선택해서 계산하도록 명령문을 작성하시면 될 것 같습니다.

        여기 홈페이지에 VBA 강의 보시면 예제가 많이 있고.. 구글에 VBA For 반복문 검색하시면 내용을 찾을 수 있는데, 셀을 하나씩 돌아가며 계산하면 됩니다.

        제가 도와드릴 수 있는 부분은 완성된 스니펫이나 링크를 알려드리는 정도이고..

        문제가 명확하다면 작성된 코 중에 더 개선할 수 있는 부분을 짚어드리는 것입니다.

        좀 더 편하게 접근하려면 원본데이터에 계산된 결과를 미리 추가하신 뒤.. 필터링 하시거는 방법도 좋을 것 같습니다.


전체 4,000
번호 카테고리 제목 작성자 작성일 추천 조회
3984 함수/공식
New 함수 만들 수 있을까요?
soo | 09:47 | 추천 0 | 조회 2
soo 09:47 0 2
3983 VBA
New 엑셀 VBA에서 RemoveDuplicates 사용시 '5' 런타임 오류가 발생하여 해결 방법 문의드립니다. (1)
namonamo | 02:14 | 추천 0 | 조회 8
namonamo 02:14 0 8
3982 함수/공식
New (도와주세요) INDEX, MATCH 를 통해 만들었는데 많이 무거워요ㅠ 첨부파일 (2)
18 강영순 | 02:07 | 추천 0 | 조회 17
18 강영순 02:07 0 17
3981 VBA
New 재고관리 툴 만들기 8시간 풀영상 중 목록상자 가시성과 다중페이지에 대해 질문합니다.
나두엑셀왕 | 2021.09.18 | 추천 0 | 조회 11
나두엑셀왕 2021.09.18 0 11
3980 기능/도구
New 목록 단추 차수 조회를 피벗테이블과 연동해서 총괄표 조회 할때 에러 발생 해결 부탁드려요~~ 첨부파일 (1)
알면서 | 2021.09.18 | 추천 0 | 조회 11
알면서 2021.09.18 0 11
3979 파워쿼리/피벗
New 웹데이터 엑셀로 가져오기 (1)
yoo | 2021.09.18 | 추천 -1 | 조회 28
yoo 2021.09.18 -1 28
3978 기능/도구
New 아이콘을 매뉴에 저장하는 방법 문의 (1)
Trimman | 2021.09.18 | 추천 0 | 조회 20
Trimman 2021.09.18 0 20
3977 VBA
New 선택 행 강조 매크로 사용시 복사/붙여넣기 할 수 있는 방법 있을까요? (1)
차오 | 2021.09.17 | 추천 0 | 조회 30
차오 2021.09.17 0 30
3976 함수/공식
New index/match 함수 사용시 다중 데이터을 합산하여 데이터 합계 끌고오는 방법이 있을까요? 첨부파일 (1)
관절바람 | 2021.09.17 | 추천 0 | 조회 28
관절바람 2021.09.17 0 28
3975 VBA
New VBA 시트명을 참조하는 함수입력 매크로에서 시트명을 변수로 설정하는 방법 (1)
kimki**** | 2021.09.17 | 추천 0 | 조회 23
kimki**** 2021.09.17 0 23
3974 함수/공식
New [카운팅 함수 해결방법] 고수님들 아무쪼록 가르침을 주시면 감사하겠습니다! 첨부파일 (2) 답변완료
CreativeGil | 2021.09.17 | 추천 0 | 조회 36
CreativeGil 2021.09.17 0 36
3973 함수/공식
New 일자/품목 열 행으로 나눠져 있는 자료 끌고오기 (1)
top**** | 2021.09.17 | 추천 0 | 조회 30
top**** 2021.09.17 0 30
3972 함수/공식
New 엑셀 함수 질문 첨부파일
향기 | 2021.09.17 | 추천 0 | 조회 38
향기 2021.09.17 0 38
3971 VBA
New VBA 로 만든 임시 POS에서, 바코드 열과 날짜 추가하는 방법 문의 드립니다 첨부파일 (1)
효율 | 2021.09.17 | 추천 0 | 조회 34
효율 2021.09.17 0 34
3970 기능/도구
New 스프레드시트 복사 붙여넣기 큰따옴표 지우는법 알려주실분 (1)
제비제비 | 2021.09.17 | 추천 0 | 조회 16
제비제비 2021.09.17 0 16
3969 VBA
New 동영상 처럼 엑셀로 만들어 질까요? (1)
yoo | 2021.09.16 | 추천 0 | 조회 39
yoo 2021.09.16 0 39
3968 VBA
New 기준열로 데이터 댕겨주기 질문 첨부파일 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 34
H.B 2021.09.16 0 34
3967 기능/도구
New 다른 시트 참조 자동 계산 (1)
skyline | 2021.09.16 | 추천 0 | 조회 43
skyline 2021.09.16 0 43
3966 함수/공식
New 엑셀 함수 질문 첨부파일 (1)
향기 | 2021.09.16 | 추천 0 | 조회 25
향기 2021.09.16 0 25
3965 VBA
New 재질문 줄바꿈, 배열쪼개기 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 37
H.B 2021.09.16 0 37
3964 VBA
New 폴더내 모든파일의 '특정시트' '각 파일' 제일 앞 시트로 복사
강대국 | 2021.09.16 | 추천 0 | 조회 22
강대국 2021.09.16 0 22
3963 VBA
New 사용자지정함수 관련 문의 입니다.
Nir | 2021.09.16 | 추천 0 | 조회 22
Nir 2021.09.16 0 22
3962 파워쿼리/피벗
New 파워쿼리 열 추가 첨부파일 (2)
슝슝 | 2021.09.16 | 추천 0 | 조회 24
슝슝 2021.09.16 0 24
3961 함수/공식
New "월"&"주 차별" 관련 문의 드립니다 ㅠㅠ!! 첨부파일 (2) 답변완료
송민정 | 2021.09.16 | 추천 0 | 조회 39
송민정 2021.09.16 0 39
3960 VBA
New 표 데이터 다른표에 복사 붙여넣기 하는 매크로 첨부파일
이도현 | 2021.09.16 | 추천 0 | 조회 21
이도현 2021.09.16 0 21
3959 VBA
Range 안에 변수 넣기 (2) 답변완료
kimki**** | 2021.09.16 | 추천 0 | 조회 37
kimki**** 2021.09.16 0 37
3958 함수/공식
시트 내 중복되는 문자열이 있을 때 표시할 수 있는 함수나 방법 (6) 답변완료
보조메일 | 2021.09.16 | 추천 0 | 조회 41
보조메일 2021.09.16 0 41
3957 VBA
썸네일 이미지 url 추출 첨부파일 (8)
넘버원 | 2021.09.16 | 추천 0 | 조회 46
넘버원 2021.09.16 0 46
3956 피벗테이블
엑셀 피벗테이블 필터에 대한 질문입니다. 첨부파일 (1)
치킨카뤠 | 2021.09.15 | 추천 0 | 조회 26
치킨카뤠 2021.09.15 0 26
3955 VBA
파일합치기 VBA에서, 값 붙여넣기를 하고 싶은 경우 (2) 답변완료
용부가자 | 2021.09.15 | 추천 0 | 조회 33
용부가자 2021.09.15 0 33