나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 참서리 (k5953)

추천:  2
파일:     월별자동추출_Ans-2.xls (95.5KB) 조회:  1193
제목:   매입처 자동 입력
     
 
'----------------------------
'  사용자 지정 함수
----------------------------



'--------------------------------------------------------------------------------------
Function seller(mRng As Range, sellerRng As Range, sMonth As String) As Variant
'--------------------------------------------------------------------------------------


    Application.Volatile

    ' 배열 수식의 대상이 되는 범위 반환-Application.Caller
    
    Dim iCnt As Long: iCnt = Application.Caller.Cells.Count
    
    Dim varX As Variant: ReDim varX(1 To iCnt)
    
    ' 배열 초기화- 미리 ""로 배열을 채운다.
    For r = 1 To iCnt
        varX(r) = ""
    Next
    
    Dim index  As Long: index = 0
    
    ' 10월->10
    Dim iMonth As Long: iMonth = VBA.Val(sMonth)
    
    ' 각 셀을 돌면서 해당 월에 매치되는 업체명을
    ' 배열에 담기
    For r = 1 To mRng.Cells.Count
        
        '
        If mRng.Cells(r, 1).Value = iMonth Then
        
            i = i + 1
            
            varX(i) = sellerRng.Cells(r, 1).Value
            
        End If
           
         
    Next r
    
    
    seller = varX
    
    
    
End Function
 
[불량 게시물 신고]  
        
  

작성일 : 2018-11-16(23:39)
최종수정일 : 2018-11-16(23:39)
 


 ◎ 관련글

  제 목   작성자   날짜
조건에 맞는 데이타 자동추출하여 입력하기 화성인 2018-11-16
매입처 자동 입력 참서리 2018-11-16
[RE]조건에 맞는 데이타 자동추출하여 입력하기 참서리 2018-11-16
[RE]조건에 맞는 데이타 자동추출하여 입력하기 dew 2018-11-16