使用.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

，但你會得到一個類型不匹配，如果有超過1個結果中過濾器。