Re:필터 이후 이름 가져오기

[이군악]

Mr. Bullen이 Filter의 Criteria를 찾아내는 함수를 알아 냈네요.

저도 비슷하게 시도를 해봤는데 좀 불안정하게 작동을 해서, 인터넷에서 찾은 아래 함수는 안정적인 것 같습니다.

첨부 함수는 2개까지도 찾아낼 수 있는 함수인데, 아래와 같이 수정하면 1개만 찾아낼 수 있습니다.

필터에서 2개를 선택하지 않도록 주의해야 합니다. - Match까지 연계를 해서 데이타를 찾아야 하므로...

 Function FilterCriteria(Rng As Range) As String

 'By Stephen Bullen

 Dim Filter As String

 Filter = ""

 On Error GoTo Finish

 With Rng.Parent.AutoFilter

 If Intersect(Rng, .Range) Is Nothing Then GoTo Finish

 With .Filters(Rng.Column - .Range.Column + 1)

 If Not .On Then GoTo Finish

 Filter = Mid(.criteria1, 2, 5)

 End With

 End With

Finish:

 FilterCriteria = Filter

 End Function

일단 사람만 찾아내면 테이블에서 찾아내는 거야 식은 죽 먹기죠.

Index 함수와 Match 함수를 적절하게 이용하면 찾아낼 수 있습니다.

Sheet1에 데이타를 A2:D6까지 넣었는데, 늘어나면 늘어난 만큼 수정해 주어야 합니다.

상세한 것은 해당 함수 도움말을 참조하세요.

=INDEX(Sheet1!$A$2:$D$6,MATCH(Sheet!$D$4,Sheet1!$A$2:$A$6,0),2)

첨부파일: 노인요양_필터.xlsm

[탁구짱]

아 filter 에서도 이렇게 criteria를 걸수가 있네 보네요...^^