인덱스매치로 조회한 원본데이터를 변경(Worksheet의 Change 이벤트 프로시저를 이용한 누적 입력 방법)

함수/공식
작성자
별명
작성일
2021-11-19 10:24
조회
45

질문상의 편의를 위해 이전에는 간략화된 버전을 올렸습니다.

 

원래는 이게 각 캠퍼스별로 가야될 책의 수량을 확인하기 위해 만든 파일입니다.

총 3개 캠퍼스가 있고 똑같은 책도 여러 권이 있어서 이걸 3개의 캠퍼스로 미리 정해진 수량대로 보내야 합니다.

그래서 M2셀에 ISBN 넘버가 입력되면 각 캠퍼스별로 할당된 수량을 알려주기 위해 2,3,4 행에도 정보가 뜹니다.

현재는 S2에 입력한 값만 원본데이터로 자동누적입력이 되는데

S3, S4에 입력한 값도 자동누적입력이 되게 하려면 어느 부분을 고쳐야 하나요?

급한지라 고쳐주시면 더더욱 감사하구요! ㅠㅠ

 

여러 명이 동시에 해야하는 작업이라 엑셀 365나 구글시트에서 작동 되면 더욱 효율적일 것 같습니다! ㅠ

 

2222.jpg

회원등급 : 2레벨
포인트 : 70 EP
총질문 : 3 개 (마감율 : 33%)
채택답변 : 0 개
전체 4

  • 2021-11-19 11:31

    데이터를 입력할 행번호를 찾기위해 1개의 열을 추가 하여 코드를 수정하였습니다.

    Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim m As Long
    
    On Error Resume Next
    
    'm = Application.WorksheetFunction.Match(Range("m2"), Range("a:a"), 0)
    
    If Not Intersect(Range("S2"), Target) Is Nothing Then
        Range("J" & Range("T2")).Offset(1, 0) = Range("S2")
    ElseIf Not Intersect(Range("S3"), Target) Is Nothing Then
        Range("J" & Range("T3")).Offset(1, 0) = Range("S3")
    ElseIf Not Intersect(Range("S4"), Target) Is Nothing Then
        Range("J" & Range("T4")).Offset(1, 0) = Range("S4")
    ElseIf Not Intersect(Range("m2"), Target) Is Nothing Then
        Range("S2").ClearContents
        Range("S3").ClearContents
        Range("S4").ClearContents
    End If
    
    On Error GoTo -1
    
    End Sub

     

    첨부파일 : 예제_-복사본_답변.xlsm


    • 2021-11-19 11:57

      @수이니 님 와... 대단하시네요;;;; 엑셀 고인물님 ㅎㄷㄷ

      막막했는데 정말 큰 도움이 되었습니다. 큰절이라도 드리고 싶네요!

      올리신 파일은 엑셀 365로 업로드해서 열어보면 매크로 작동이 안 되는 이건 해결법을 어디서 찾나요?


    • 2021-11-19 13:26

      @수이니 님 테스트를 추가로 해본 결과 M2셀에 같은 ISBN 넘버가 입력이 되면 기존에 입력해 두었던 J열의 값이 사라지는 것을 확인했습니다.

      M2셀에 같은 값이 입력되어도 기존의 J열 값이 사라지지 않게 할 방법이 있나요?

      같은 책도 여러 박스에 분산되어 있어서 같은 책을 또 조회할 일이 있습니다. ㅠ


  • 2021-11-19 13:35

    J열에 값이 입력되어 있으면 초기화 안되도록 코드 추가했습니다.

     

    첨부파일 : 예제_-복사본_답변2.xlsm


전체 4,679
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 753
트로피 오빠두엑셀 2021.10.28 16 753
24253 함수/공식
New 파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (1)
안녕 | 2021.12.02 | 추천 0 | 조회 11
안녕 2021.12.02 0 11
24252 함수/공식
New 표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (2)
김성환 | 2021.12.02 | 추천 0 | 조회 12
김성환 2021.12.02 0 12
24251 기능/도구
New 엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 18
thause 2021.12.02 0 18
24249 VBA
New 모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다
너의나라 | 2021.12.02 | 추천 0 | 조회 17
너의나라 2021.12.02 0 17
24248 차트/그래프
New 그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 2021.12.02 | 추천 0 | 조회 20
Etter 2021.12.02 0 20
24245 VBA
New 아웃룩 이메일 내용에 VBA 변수 넣기 (1)
argus | 2021.12.02 | 추천 0 | 조회 21
argus 2021.12.02 0 21
24239 VBA
New [초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 24
스캐쳐 2021.12.02 0 24
24238 VBA
New 어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 2021.12.02 | 추천 0 | 조회 24
Paul 2021.12.02 0 24
24233 함수/공식
New 0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 2021.12.02 | 추천 0 | 조회 25
크놉스 2021.12.02 0 25
24232 차트/그래프
New 엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 2021.12.02 | 추천 0 | 조회 31
담담 2021.12.02 0 31
24230 VBA
New vba 코딩을 부탁드립니다. 첨부파일 (2)
Trimman | 2021.12.02 | 추천 -2 | 조회 33
Trimman 2021.12.02 -2 33
24228 함수/공식
New 등급 기준표를 참조해서 연산을 하려고 할때 (1) 답변완료
지천 | 2021.12.02 | 추천 0 | 조회 22
지천 2021.12.02 0 22
24221 파워쿼리/피벗
New 엑셀 종속 테이블 문의 첨부파일 (2)
유령회원 | 2021.12.02 | 추천 0 | 조회 22
유령회원 2021.12.02 0 22
24216 VBA
New 로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료 첨부파일 (1)
엑셀이 | 2021.12.02 | 추천 0 | 조회 19
엑셀이 2021.12.02 0 19
24215 VBA
New set_routine 반복 매크로 (1)
하늘의 꿈 | 2021.12.01 | 추천 0 | 조회 24
하늘의 꿈 2021.12.01 0 24
VBA
New 재질문 입니다.
하늘의 꿈 | 2021.12.02 | 추천 0 | 조회 12
하늘의 꿈 2021.12.02 0 12
24213 파워쿼리/피벗
New [파워쿼리] 계약자코드 중 특수계약 날짜가 일반계약 최소 최대 사이에 포함여부 열추가 첨부파일 (1)
seorin | 2021.12.01 | 추천 0 | 조회 20
seorin 2021.12.01 0 20
24211 VBA
New 시트를 메일머지하여 Hancom PDF 파일로 출력하는 매크로 VBA 코드 도움을 받고 싶어요. 첨부파일 (4) 답변완료
김학동 | 2021.12.01 | 추천 0 | 조회 34
김학동 2021.12.01 0 34
24210 함수/공식
New 혹시 이런 것도 구할 수 있을까요? (3)
마른막대기 | 2021.12.01 | 추천 0 | 조회 38
마른막대기 2021.12.01 0 38
24207 함수/공식
New 중복값 중 제일 마지막 값 추출 (2)
rladud99 | 2021.12.01 | 추천 0 | 조회 39
rladud99 2021.12.01 0 39
24203 함수/공식
New 엑셀 값 가로/세로 변경하는 방법 문의드려요! 첨부파일 (2) 답변완료
이시현 | 2021.12.01 | 추천 0 | 조회 38
이시현 2021.12.01 0 38
24200 함수/공식
New 데이터를 일정간격으로 띄워서 입력하고 싶습니다. (8) 답변완료
wlfl**** | 2021.12.01 | 추천 0 | 조회 47
wlfl**** 2021.12.01 0 47
24191 함수/공식
New 일치하는 값에 특정 데이터를 넣고싶습니다. (1)
노랑토끼 | 2021.12.01 | 추천 0 | 조회 54
노랑토끼 2021.12.01 0 54
24188 VBA
New VBA에서 이름이 긴 파일이 있는데 그 파일 이름을 바꾸고 싶습니다.(상세설명 필수) (2)
naver_618c988d51534 | 2021.12.01 | 추천 0 | 조회 31
naver_618c988d51534 2021.12.01 0 31
24184 문서서식
New 엑셀 자동채우기 관련 문의 (1) 답변완료
오문환 | 2021.12.01 | 추천 0 | 조회 42
오문환 2021.12.01 0 42
24182 함수/공식
New 줄바꿈 함수 도와주세요 첨부파일 (3)
김상준 | 2021.12.01 | 추천 1 | 조회 43
김상준 2021.12.01 1 43
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 48
FLOWERBALL 2021.11.30 0 48
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 44
ryan_cruze 2021.11.30 0 44
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 34
최강씨맨 2021.11.30 0 34
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 52
PAKSAW 2021.11.30 0 52
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 47
ㄱ박민극 2021.11.30 -1 47