.Autofilter를 사용하여 Textbox.value의 결과 사용

Question

나는 .autofilter를 사용하여 Excel에서 목록을 필터링 할 때 필자의 문제는 자동 필터 채우기 텍스트 상자의 결과를 가져 오려고하는 것입니다. 나는 비슷한 것을 사용할 수 있다는 것을 알고있다.

textbox.text = Data(a1).value 

그러나 셀을 필터링하면 원래 셀 위치가 유지되므로 셀 위치 만 사용할 수있다. 필터 결과가 하나만 있으므로 필터 머리글 바로 아래의 행에서 텍스트 상자를 채우는 무언가가 필요합니다.

이면에 대한 전반적인 아이디어는 현재 작동하는 사용자 양식에서 검색 할 수있는 스프레드 시트를 가져온 다음 텍스트 상자에 결과를 표시하는 것입니다. 스프레드 시트의 사용자를 원시 데이터와 가능한 멀리 유지합니다.

Answer 1

어쩌면 기능 SpecialCells(xlCellTypeVisible) 당신이 ... 당신의 코드는 다음과 같이 수 있습니다 도움이 될 수 있습니다

Sheet1.Range.SpecialCells(xlCellTypeVisible).Cells(1,1).Value 

나는 그것을 시도하지 않은 ...

Answer 2

당신은 오직 한 결과이 경우, 다음 작품 : 필터에 1 개 이상의 결과가있는 경우

textbox.text = Sheet1.Range("myrange").SpecialCells(xlCellTypeVisible).Value

하지만 당신은 형식이 일치를 얻을 것이다.