특정 시트 셀의 키값을 참조하여 값을 가져와서 다른 시트 특정 셀에 입력

VBA
작성자
최민수
작성일
2024-08-14 10:35
조회
232
엑셀버전 : 엑셀2021

운영체제 : 윈도우10

질문 요약 : 특정 시트 셀의 키값을 참조하여 값을 가져와서 다른 시트 특정 셀에 입력

이전에 질문드린 항목인데 원조백수님이가이드주신 매크로를 수정해서 다시 해볼려고 했는데 에러가 나네요

죄송하지만 스마트폰에서 다시 질문작성하기가 힘드네요

 

제가 올린 질문

특정 시트 셀의 키값을 참조하여 값을 가져와서 다른 시트 특정 셀에 입력

참조하셔서 답변달아주시면 감사하겠습니다

 

오늘까지 다해야되는데 힘드네요

IMG_5610.png

IMG_5609.png

신고
스크랩
공유
전체 10

  • 2024-08-15 15:39

    매번 도와주셔서 감사합니다


  • 2024-08-14 12:56

    @최민수 님 어디를 수정했고, 어떤 에러가 난 건가요?


    • 2024-08-14 17:52

      @원조백수 님 수정한 소스를 캡쳐해서 올렸습니다


  • 2024-08-14 13:11

    목록시트를 입력하세요 하는 부분에서 8을 5로 수정하고 array, col을 부분을 일부 삭제했습니다 폴더 path로 삭제하고요


  • 2024-08-14 13:31

    노트패드에 입력했습니다

    첨부파일 : IMG_5611.jpeg


  • 2024-08-14 14:52

    수정한 소스를 캡쳐해서 올렸습니다


    • 2024-08-14 21:18

      @최민수 님 아래 코드는 쌍따옴표 안에 콤마로 구분되어 있어야 합니다.
      파랑색 문자열을 빨강색 구분자로 나누어 배열로 만들어 줍니다.

      vAddr = Split("L4,L5,L3,L2,L1", ","

      실제 매핑이 어떻게 되는지는 문서에 따라 잘 매핑을 하셔야 합니다.

      Sub MakeReportFiles()
          Dim shL As Worksheet     '// 목록
          Dim shR As Worksheet     '// 보고서
          Dim vCol As Variant      '// 목록 열번호
          Dim vAddr As Variant     '// 보고서 셀주소
          Dim vData As Variant, iR As Long, iC As Long, iLast As Long
          Dim sPath As String
       
          On Error Resume Next
          Set shL = Application.InputBox("목록시트를 선택하세요.", "목록", , , , , , 8).Parent
          If shL Is Nothing Then Exit Sub
       
          Set shR = Application.InputBox("보고서시트를 선택하세요.", "보고서", , , , , , 8).Parent
          If shR Is Nothing Then Exit Sub
          On Error GoTo 0
       
      <strong>    vCol = <span style="color: #000000;">Array(<span style="color: #0000ff;">12, 13, 14, 16, 17</span>)</span>      '// 열번호
          vAddr = Split(<span style="color: #0000ff;">"L3,L2,L1,L5,L4"</span>, <span style="color: #ff0000;">","</span>)  '// 적용주소 이 2개의 쌍을 매핑한다</strong>
          shL.AutoFilterMode = False
          iLast = shL.Range("A100000").End(xlUp).Row
          vData = shL.Range("A1:Z" & iLast).Value2
          sPath = shR.Parent.Path & "\Report"
          If Dir(sPath, vbDirectory) = "" Then MkDir sPath
       
          For iR = 6 To UBound(vData, 1)
              For iC = LBound(vCol) To UBound(vCol)
                  shR.Range(Trim(vAddr(iC))) = shL.Cells(iR, vCol(iC))
              Next iC
              shR.SaveAs sPath & "\단위테스트결과서_" & vData(iR, 6) & ".xlsx"
          Next iR
       
      End Sub

      그런데, 다른 필드를 삭제하는 이유가 뭔지는 모르겠네요.


      • 2024-08-15 15:35

        @원조백수

        sPath = shR.Parent.Path & "\Report"
            If Dir(sPath, vbDirectory) = "" Then MkDir sPath
         
        이 부분은 이미 폴더가 만들어져 있어서 삭제하였습니다.
        Next iC
                shR.SaveAs sPath & "\단위테스트결과서_" & vData(iR, 6) & ".xlsx"
         
        이 부분도 파일이 이미 생성되어있어서 삭제하였습니다.
        Set shL = Application.InputBox("목록시트를 선택하세요.", "목록", , , , , , 8).Parent
        여기서 8의 의미를 잘모르겠네요. 8개만 불러온다는건가요?
        <strong>vCol = Array(12, 13, 14, 16, 17)
        </strong> 
        5개 열만 가져온다는건가요?
        그리고 소스에서 테스트케이스ID를 키값으로 참조한다는 부분은 어디인가요?

        • 2024-08-15 15:47
          채택된 답변

          @최민수 님 제가 드린 코드를 이해하지 못하시는 것 같아서... 설명은 중단합니다.

          설명을 제가 이해하지 못한 것일 수도 있습니다.


          • 2024-08-15 17:31

            @원조백수 님 네 일단 감사합니다.


전체 16,928
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] 2024년 엑셀 공부, 이 책 한권으로 마스터하세요! (290)
오빠두엑셀 | 2022.02.03 | 추천 554 | 조회 843946
오빠두엑셀 2022.02.03 554 843946
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 304 | 조회 31508
오빠두엑셀 2021.10.28 304 31508
74592 함수/공식
New 여러 값들 중에서 원하는 값을 찾고 싶어요 도와주세요! 첨부파일 (6) 답변완료
저도해볼게요 | 19:06 | 추천 0 | 조회 25
저도해볼게요 19:06 - 25
74589 구글시트
New 한셀에 줄바꿈으로 있는 여러데이터를 한셀에 한데이터 들어가게끔 일괄로 하고 싶습니다 첨부파일 (4) 답변완료
스톤스톤 | 18:21 | 추천 0 | 조회 24
스톤스톤 18:21 - 24
74585 VBA
New UserForm 크기질문 첨부파일 (3)
땡이 | 15:35 | 추천 0 | 조회 40
땡이 15:35 - 40
74583 함수/공식
New XLOOKUP 함수의 다중조건을 잘 모르겠습니다 첨부파일 (4)
qlcc**** | 14:58 | 추천 0 | 조회 46
qlcc**** 14:58 - 46
74582 함수/공식
New filter 함수에 대해 문의드립니다 (5)
김은상 | 14:45 | 추천 0 | 조회 47
김은상 14:45 - 47
74581 구글시트
New 구글폼 견적서 자동화 관련, 폼에서 입력된 이미지 파일을 견적서에 넣는 방법 좀 알려주시면 감사하겠습니다.
| 14:38 | 추천 0 | 조회 36
14:38 - 36
74572 차트/그래프
New 꺽은선 그래프의 레이블이 원복이 됩니다. 첨부파일 (3)
구리구리이 | 13:38 | 추천 0 | 조회 41
구리구리이 13:38 - 41
74570 함수/공식
New 배수 금액으로 순번 정하기 알려 주세요...ㅠ 엑셀파일첨부파일 (3)
서기 | 13:15 | 추천 0 | 조회 38
서기 13:15 - 38
74566 함수/공식
New 두개의 열에 입력된 데이터를 순서 바꿔서 입력으로 중복일 때 골라내는 법 엑셀파일첨부파일 (1)
문과적남자 | 12:35 | 추천 0 | 조회 40
문과적남자 12:35 - 40
74564 함수/공식
New 각 열별로 합 구하는 방법 첨부파일 (1)
라핼 | 11:13 | 추천 0 | 조회 50
라핼 11:13 - 50
74563 함수/공식
New 필터 적용시 중복값 제외 카운트 되는 법 좀 알려주세요 ㅠㅠ 첨부파일 (1)
정재욱 | 10:43 | 추천 0 | 조회 53
정재욱 10:43 - 53
74558 함수/공식
New 문자와 숫자가 섞여있는 열의 합계와 평균을 구하는 방법을 알려주세요!! 첨부파일 (9)
침착해 | 08:17 | 추천 0 | 조회 59
침착해 08:17 - 59
74556 함수/공식
New 세트상품 마진율 구하기 (2)
ek02 | 07:48 | 추천 0 | 조회 46
ek02 07:48 - 46
74543 기능/도구
New 문자와 숫자 혼합된 셀에서 숫자만 따로 따올수 있는 기능이 있을까요? 첨부파일 (3)
야만용사 | 2024.10.29 | 추천 0 | 조회 80
야만용사 2024.10.29 - 80
74542 기능/도구
New 엑셀 백분율 숫자로변경 (2)
rarara | 2024.10.29 | 추천 0 | 조회 68
rarara 2024.10.29 - 68
74540 함수/공식
New ★데이터 가공★ 잘못된 데이터를 올바른 데이터로 변환하는 과정을 도와주세요 ㅠㅠ 엑셀파일첨부파일 (9)
| 2024.10.29 | 추천 0 | 조회 101
2024.10.29 - 101
74539 함수/공식
New 안녕하세요 INDEX, MATCH 다중조건 질문드립니다! 엑셀파일 (3)
gys**** | 2024.10.29 | 추천 0 | 조회 80
gys**** 2024.10.29 - 80
74533 함수/공식
New 산출집계시트에 항목을 산출서에서 가져오고싶어요 엑셀파일 (3)
Moto | 2024.10.29 | 추천 0 | 조회 80
Moto 2024.10.29 - 80
74532 문서서식
New [질문] 전체 행 또는 열을 선택 후 특정 셀만 선택 제외 시키기 첨부파일 (2)
ViVaViva | 2024.10.29 | 추천 0 | 조회 68
ViVaViva 2024.10.29 - 68
74530 함수/공식
New Lookup 함수 오류에 관한 문의 엑셀파일첨부파일 (6) 답변완료
TMOH | 2024.10.29 | 추천 0 | 조회 80
TMOH 2024.10.29 - 80
74528 함수/공식
New 다중조건 만족하는 결과를 가져오고싶습니다 도와주세요 ㅠㅠ 엑셀파일첨부파일 (7)
말하지마00 | 2024.10.29 | 추천 0 | 조회 87
말하지마00 2024.10.29 - 87
74526 함수/공식
New 열과 행으로 정렬된 데이터를 같은 행으로 표시하려고 합니다. 엑셀파일 (2) 답변완료
깐부 | 2024.10.29 | 추천 0 | 조회 67
깐부 2024.10.29 - 67
74521 함수/공식
New B시트에서 A시트 항목 제품 및 수량 가져오는법좀 부탁드려요 첨부파일 (2)
Moto | 2024.10.29 | 추천 0 | 조회 69
Moto 2024.10.29 - 69
74520 VBA
New VBA 런타임 오류 관련 질문 첨부파일 (1)
angelriun | 2024.10.29 | 추천 0 | 조회 51
angelriun 2024.10.29 - 51
74518 함수/공식
New 두 시트에서 교집합 찾기 (3)
우파루파 | 2024.10.29 | 추천 0 | 조회 77
우파루파 2024.10.29 - 77
74516 구글시트
New 렌덤으로 배치 할수 있는 방법이 있을까요? 첨부파일 (8)
피망이 | 2024.10.29 | 추천 0 | 조회 68
피망이 2024.10.29 - 68
74513 함수/공식
New 엑셀로 명리를 정리하던 중에.. 엑셀파일 (7)
Ballad | 2024.10.29 | 추천 0 | 조회 94
Ballad 2024.10.29 - 94
74512 함수/공식
New 오빠두 강의인데 생각이 안나서 미치겠습니다. ㅠ (2)
Protoss | 2024.10.29 | 추천 0 | 조회 91
Protoss 2024.10.29 - 91
74496 함수/공식
New 두 개의 데이터를 매칭시켜야 하는데 방법을 모르겠습니다. ㅠㅠ 첨부파일 (3)
박진수 | 2024.10.28 | 추천 0 | 조회 97
박진수 2024.10.28 - 97
74495 파워쿼리/피벗
New 특정 기간 내 데이터만 파워쿼리로 병합하기 첨부파일 (3)
황남훈 | 2024.10.28 | 추천 0 | 조회 67
황남훈 2024.10.28 - 67