[땡큐엑셀vba & 엑셀매크로] 월별 항목별 명단리스트 - 사용자 정의함수

사용자 정의 함수를 이용하여 Sheet2를 Sheet3와 같이 정리

 

'엑셀 함수 이름명단찾기함수 좀 부탁드립니다.
'안녕하세요
'엑셀함수 넣기 질문입니다. 아래 그림과 같이 시트 A 에 있는 것을 시트 B 와같이할려고 합니다.
'자세한 질문은 파일에 올렸습니다.


'범위-항목이 들어간 열의 구간
'항목-감사한금,십일조등
'월-1,2,3,4,5,6,7,8,9,10,11,12
'
'source by 땡큐엑셀vba & 엑셀매크로
'
Function nameList(범위 As Range, 항목 As String, 월 As Integer)

    Dim 명단 As String
    
    On Error Resume Next
    
    '범위내 루프
    For Each r In 범위
    
        'offset(0,1)을 하여 월추출
        날짜 = Int(Format(r.Offset(0, 1), "m"))

        If 항목 = r.Value And 날짜 = 월 Then
            '항목이 같고 월이 같으면 명단에 추가
            명단 = 명단 & " " & r.Offset(0, -1)
        End If
        
    Next
    
    nameList = 명단
    
End Function

 

항목별명단리스트-Int_Format_Foreach-사용자정의함수-땡큐엑셀vba.xlsm

0.15MB