Excel 2013 - 筛选限制返回的最小行数

时间:2015-08-05 09:38:45

标签: excel excel-vba vba

在Excel中使用Filter工具 - 无论如何都要对返回的行数设置最小限制。

例如,如果我放置一个过滤器并且返回的行数小于10,那么行不会显示和/或过滤器不会发生?

1 个答案:

答案 0 :(得分:0)

您可以尝试以下方法:

    Private Sub Worksheet_Calculate()
If ActiveSheet.FilterMode = True Then

    Rcount = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

        If Rcount < 10 Then
            ActiveSheet.AutoFilterMode = False
        Else
        End If

Else
End If

End Sub

这只适用于您正在处理的工作表,但仍然可以派上用场。还需要有一个易失性公式,例如表格上的Countif - 来触发。

否则,这很有效。

不幸的是,如果您选择小于10的结果 - 它会整体禁用过滤器。我已经尝试添加代码以重新打开它,但在这种情况下它会出错 - 你可能在这方面有一些运气。

我希望这就像你正在寻找的一样