VBA：从过滤器中检索数据并将其存储在变量中

Question

我在列标题“区域”上有一个过滤器，当应用该过滤器时，它仅显示该区域与应用的过滤器匹配的记录，例如5.

是否有一段代码将过滤器中的值存储在变量中？

过滤器使用的代码是：

ActiveSheet.Range("$A$3:$BN$197").AutoFilter Field:=2, Criteria1:=

所以我想要的是这样的：

dim Filter As String
Filter = ActiveSheet.Range("$A$3:$BN$197").AutoFilter Field:=2, Criteria1:=

但问题是因为它是一个过滤器，过滤区域可能会改变，即一个用户可能在区域 5 上过滤，而另一个用户在区域 4 上过滤。

Answer 1

基本上你想要这样的东西：

Dim ftr                   As Filter
Dim sCriterion            As String
Set ftr = ActiveSheet.AutoFilter.Filters(2)
If ftr.On Then sCriterion = Mid$(ftr.Criteria1, 2)

只要您知道他们只会过滤一个值。否则，您需要检查Operator，然后确定使用哪种过滤器。

对于自动事件代码，您可以使用：

Private Sub Worksheet_Calculate()
Dim ftr                   As Filter
On Error Goto hell
Set ftr = ActiveSheet.AutoFilter.Filters(2)
If ftr.On Then
   application.enableevents = False
   debug.print ftr.criteria1
   Range("E205").value = Mid$(ftr.Criteria1, 2)
End If

hell:
   application.enableevents = true
End Sub

右键单击工作表选项卡，选择查看代码，然后将其粘贴进去。