[땡큐엑셀vba & 엑셀매크로] 최대값의 이름 나열하기-사용자정의함수

 

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=280221604
'
'다음 표에서 최대값만큼 가지고 있는 이름을 모두 추출해서 한 칸에 넣으려고 합니다.
'그러니까 한 칸에 최댓값인 3을 가지고 있는 나,라,바 가 적히도록 하는 방법을 찾고있습니다.



'최대값에 해당하는 이름을 출력하는 사용자정의함수
'이름이 1행에 있다는 가정에서 실행하세요.
'사용방법 : =MaxName(범위)
'예[I2]셀 =MaxName(B2:H2)
'
'
'
'source by 땡큐엑셀vba & 엑셀매크로
'
Function MaxName(rng As Range) As String

    '해당범위에서 최대값을 구한다
    최대값 = Application.WorksheetFunction.Max(rng)
    
    '해당범위를 돌면서 최대값과 일치하는 셀이 있다면 이름을 계속 추가한다.
    For Each r In rng
        
        If r = 최대값 Then
            최대값이름 = 최대값이름 & " " & Cells(1, r.Column)
        End If
    
    Next

    MaxName = 최대값이름

End Function

 

 

최대값에해당하는이름구하기-WorksheetFunction.Max-땡큐엑셀vba.xlsm

0.05MB