|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
안녕하세요?
수고많으십니다.
항상 도움 받으면서 엑셀 스킬을 올리는 사람입니다. 늘 감사합니다.
이번에는 자재가 여러번 나눠서 입고될때 마지막 일고일을 가져올 수 있는 방법에 대해서 문의드립니다.
vlookup을 사용하니까 최초 입고일을 가지고 오네요.
첨부 파일 참고 부탁드립니다.
==============[권순원님 글에 대한 답변입니다]==============
아래 사용자 정의함수을 이용하세요
G3 : =usrVLookup(전범, A3, 3)
' 마지막 자료가져오기
Function usrVLookup(rData As Range, sWhat As String, iCol As Integer)
Application.Volatile
If sWhat = "" Then
usrVLookup = ""
Else
Dim lRow As Long, vGetValue
For lRow = rData.Rows.Count To 1 Step -1
If rData.Cells(lRow, 1) <> "" Then
If rData.Cells(lRow, 1) = sWhat Then
vGetValue = rData.Cells(lRow, iCol)
Exit For
End If
End If
Next
usrVLookup = IIf(IsEmpty(vGetValue), "", vGetValue)
End If
End Function
|
|