|
|
|
|
|
|
'---------------------------------------------------------------------------------------
Function work_part(rName As Range, rPart As Range, iFind As Integer) As Variant
'---------------------------------------------------------------------------------------
'Dim rName As Range: Set rName = [D6:D18]
'Dim rPart As Range: Set rPart = [E6:E18]
'Dim iFind As Integer: iFind = 1
Dim vResult As Variant
Dim oList As Object: Set oList = CreateObject("System.Collections.ArrayList")
For i = 1 To rPart.Cells.Count
If rPart.Cells(i).Value = iFind Then
oList.Add rName.Cells(i).Value
End If
Next
If oList.Count = 0 Then
work_part = ""
Else
oList.Sort
work_part = Join(oList.toarray, vbLf)
End If
End Function
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-05-17(01:59)
최종수정일 : 2019-05-17(01:59) |
|
|
|
|