|
'----------------------------
' 사용자 지정 함수
----------------------------
'--------------------------------------------------------------------------------------
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
|
|