|
예시
H19 수식
=get_subjects($B$2:$E$14,B19:E19,$H$2:$H$14)
'-----------------------
사용자 정의 함수입니다.
'-----------------------
Function get_subjects(rData As Range, rCri As Range, rSubject As Range)
Dim vCri As Variant: vCri = _
Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rCri.Value)), ",")
Dim oQ As Object
Set oQ = VBA.CreateObject("System.Collections.Queue")
Dim vData As Variant
Dim row As Range, i As Long
'------------------------
For i = 1 To rData.Rows.Count
'------------------------
vData = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(rData.Rows(i).Value)), ",")
If vData = vCri Then
oQ.enqueue rSubject.Cells(i)
End If
Next
get_subjects = Join(oQ.toarray, "/")
Set oQ = Nothing
End Function
|
|