使用 .Autofilter ，使用 Textbox.value 中的结果答案

【问题标题】：Using .Autofilter , using results in Textbox.value使用 .Autofilter ，使用 Textbox.value 中的结果
【发布时间】：2014-01-13 11:58:59
【问题描述】：

我正在使用 .autofilter 过滤 excel 中的列表，我的问题是我想让自动过滤器的结果填充文本框。我知道我可以使用类似于

textbox.text = Data(a1).value

但是，当单元格被过滤时，它们会保留原始单元格位置，因此我不能只使用单元格位置。过滤器只会有一个结果，所以我需要一些东西来填充过滤器标题下方的行中的文本框。

对于背景，总的想法是拥有一个可以从当前有效的用户表单中搜索的电子表格，然后在文本框中显示结果。让电子表格的用户尽可能远离原始数据。

【问题讨论】：

【解决方案1】：

也许SpecialCells(xlCellTypeVisible) 函数可以帮助您...您的代码可能如下所示：

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

我没试过……

【讨论】：

【解决方案2】：

如果您只有 1 个结果，则以下方法有效：

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

但如果过滤器中的结果超过 1 个，则会出现类型不匹配。

【讨论】：