formulaArray 질문드립니다.

VBA
작성자
더이레트
작성일
2020-06-29 16:40
조회
104
 

특정 폴더내 다수의 data파일을 넣어두고

VBA를 통해서 다수의 DATA파일들의 A79:E79 범위의 데이터를

FormulaArray를 통해서 끌어오는 연습을 하고 있습니다.

문제는 일부 DATA파일들은 원하는 데이터가

A79:E79에서 벗어나 다른 셀위치에 존재한다는 점입니다.

예를 들어 대부분 데이터는 A79:E79위치에 '지배주주자본'항목의 '값'들이 존재하는데

일부 파일은 '금융상품이익', '대손충당금'과 같이 다른 항목의 '값'이 존재합니다.

따라서 특정함수를 FormulaArray 함수와 결합하여 '지배주주자본 항목 값'이 아닌 '다른값'을 불러올시

지배주주자본 항목에 해당하는 값을 자동적으로 불러올 수 있는지 문의드립니다.

항목에 해당하는 값이 바로 항목 아래행에 존재하기 떄문에 OFFSET 함수도 이용해야 할꺼 같은데

너무 어렵습니다. ㅠㅠ

예제파일을 첨부해드립니다. 질문이 길어 죄송합니다. 감사합니다.

 

 

 
전체 1

  • 2020-06-30 00:04

    명령문을 아래와 같이 수정하시면 해결할 수 있을 듯 합니다.
    명령문 수정된 파일 같이 첨부해드리니 확인해보세요.
    화이팅입니다! (ง •̀_•́)ง

    Sub 파일통합()
    
        Dim 대상폴더 As String
        Dim 파일 As String
        Dim 참조수식 As String
        Dim 복사위치 As Range
        Dim 임시 As Range
        ActiveSheet.Range("A3:AA3000").ClearContents
        
        Set 복사위치 = Range("B3:F3")
        Set 임시 = Range("E1")
        대상폴더 = ThisWorkbook.Path & "\data\"
        파일 = Dir(대상폴더 & "*.xls*")
             
        
      
        Do While 파일 <> ""
            임시 = "='" & 대상폴더 & "[" & 파일 & "]손익계산서'!B79"
            If 임시 = "지배주주자본" Then
                참조수식 = "'" & 대상폴더 & "[" & 파일 & "]손익계산서'!A79:E79"
                
                
                
                With 복사위치
                    .FormulaArray = "=IF(" & 참조수식 & "="""", """"," & 참조수식 & ")"
                    .Value = .Value
                End With
                
                Set 복사위치 = 복사위치.Offset(1)
                
                파일 = Dir
            End If
        Loop
        
        Columns.AutoFit
        
    
    End Sub

    첨부파일 : 엑셀연동test_해결.xlsm


    전체 1,183
    번호 카테고리제목작성자작성일추천조회
    1179 함수/공식
    New 도움이 필요합니다 (배열형태 개수를 구하는 함수) 첨부파일
    벗님들 | 07:51 | 추천 0 | 조회 5
    벗님들07:5105
    1178 VBA
    New HTS연동 된 값 질문 입니다.
    COXMAN | 2020.09.27 | 추천 0 | 조회 14
    COXMAN2020.09.27014
    1177 차트/그래프
    New 조건부서식 규칙관리자 첨부파일 (2)
    강재성 | 2020.09.27 | 추천 0 | 조회 20
    강재성2020.09.27020
    1176 문서서식
    New 행 2개로 구분되어 있는 텍스트를 열 2개로 만드는 방법은 없을까요..? (3)
    찬찬 | 2020.09.26 | 추천 0 | 조회 29
    찬찬2020.09.26029
    1175 함수/공식
    New 함수 참조 문제 첨부파일 (1)
    1oi1oi1oi | 2020.09.26 | 추천 0 | 조회 19
    1oi1oi1oi2020.09.26019
    1174 피벗테이블
    New 시간슬라이서와 피벗테이블 주 간격 생성방법 첨부파일 (3)
    iviolin**** | 2020.09.26 | 추천 0 | 조회 22
    iviolin****2020.09.26022
    1173 함수/공식
    New 섬프로덱트+인덱스매치 조합 외에도 다른 방식이 있는지 궁금합니다. 첨부파일 (1)
    달퐁이 | 2020.09.26 | 추천 0 | 조회 37
    달퐁이2020.09.26037
    1172 기능/도구
    New 엑셀늅인데 정렬에 관해서 궁금합니다 ㅠ (2)
    유녕 | 2020.09.25 | 추천 0 | 조회 32
    유녕2020.09.25032
    1171 파워쿼리/피벗
    New 데이터셋을 재구성하는 방법 질문.. 첨부파일 (2)
    김연수 | 2020.09.25 | 추천 0 | 조회 29
    김연수2020.09.25029
    1170 VBA
    VBA에서 변수로 영역 지정하는 방법과 구문의 구조에 대한 질문입니다 (3)
    공대생 | 2020.09.24 | 추천 0 | 조회 35
    공대생2020.09.24035
    1169 VBA
    웹 크롤링 관련 질문드립니다. (5)
    hall**** | 2020.09.24 | 추천 2 | 조회 49
    hall****2020.09.24249
    1168 함수/공식
    NaverFinanceSearch 함수 기능 문의 첨부파일 (2)
    알파보이 | 2020.09.24 | 추천 0 | 조회 38
    알파보이2020.09.24038
    1167 차트/그래프
    동적범위를 이용한 날짜 합계 구하는 함수 문의 (1)
    째쨈 | 2020.09.24 | 추천 0 | 조회 35
    째쨈2020.09.24035
    1166 피벗테이블
    대량의 두개의 데이터를 합친후 데이터수정 및 합계결과 뽑아내는법이 궁금합니다 (1)
    자유인 | 2020.09.24 | 추천 0 | 조회 37
    자유인2020.09.24037
    1165 VBA
    VBA 여러개 시트를 활용한 피벗데이블 질문 첨부파일 (4)
    sundaychefchef | 2020.09.23 | 추천 0 | 조회 41
    sundaychefchef2020.09.23041
    1164 VBA
    if문의 조건에 대해 질문드립니다. (6)
    엑셀늅늅이 | 2020.09.23 | 추천 0 | 조회 40
    엑셀늅늅이2020.09.23040
    1163 함수/공식
    엑셀 배열을 합칠 수 있는 방법이 있을까요? (7)
    나그네 | 2020.09.23 | 추천 0 | 조회 51
    나그네2020.09.23051
    1162 함수/공식
    경우의 수 관련 질문드립니다. (10)
    speedoo | 2020.09.23 | 추천 0 | 조회 50
    speedoo2020.09.23050
    1161 함수/공식
    데이터 뽑기 첨부파일 (1)
    soung**** | 2020.09.23 | 추천 0 | 조회 47
    soung****2020.09.23047
    1160 VBA
    기초적인 질문 하나만 할께요 2차원 배열에서 range값을 배열로 받아서 다른 시트에 배열 붙여넣는 방법이 어떻게 되나요 (1)
    밍장군 | 2020.09.23 | 추천 0 | 조회 22
    밍장군2020.09.23022
    1159 VBA
    (VBA) 도형서식 -> 채우기 -> 그림 또는 질감 채우기 -> 다음에서 그림 삽입 -> 클립보드 선택 구현 (1)
    건주 | 2020.09.23 | 추천 0 | 조회 29
    건주2020.09.23029
    1158 VBA
    엑셀이서도 검색어 자동완성기능을 구현할 수 있을까요? 첨부파일 (1)
    fre | 2020.09.23 | 추천 0 | 조회 30
    fre2020.09.23030
    1157 차트/그래프
    차트 최대값 및 Xfilter 함수 문의드립니다. (1)
    Elkins | 2020.09.23 | 추천 0 | 조회 27
    Elkins2020.09.23027
    1156 VBA
    WorkSheet_Change 와 같은 사용자 정의 함수를 만드는 방법은 없나요? (1)
    엑셀늅늅이 | 2020.09.22 | 추천 0 | 조회 29
    엑셀늅늅이2020.09.22029
    1155 파워쿼리/피벗
    상단바가 잠금 걸렸는데 왜이러는지 모르겠습니다. 첨부파일 (4)
    신윤재 | 2020.09.22 | 추천 1 | 조회 28
    신윤재2020.09.22128
    1154 문서서식
    이미지 삽입 후 크기를 조절해도 압축되지 않고 원본 해상도 유지하는 방법? (5)
    악순환의 굴레 | 2020.09.22 | 추천 0 | 조회 26
    악순환의 굴레2020.09.22026
    1153 VBA
    application.ontime 실행 시 멈추는 함수가 동작을 하지 않습니다 (재 질문, 오빠두 님 말대로 코드 수정 완료) - VBA 명령문 매 초마다 반복 (3)
    밍장군 | 2020.09.22 | 추천 0 | 조회 28
    밍장군2020.09.22028
    1152 함수/공식
    절대주소 고정했는데 셀 삽입하면 고정이 안되네요? (1)
    해랑사 | 2020.09.22 | 추천 0 | 조회 49
    해랑사2020.09.22049
    1151 기능/도구
    셀서식 왕초보 질문입니다! (3)
    Hannah | 2020.09.22 | 추천 0 | 조회 38
    Hannah2020.09.22038
    1150 VBA
    전역변수로 포맷까지 지정할 순 없나요? (2)
    밍장군 | 2020.09.22 | 추천 0 | 조회 25
    밍장군2020.09.22025