条件格式标题单元格 *IF* 过滤器处于活动状态

Question

好吧，我被难住了！？！？！这个修复一定很简单，但我却忽略了。

我想更改过滤器的Header单元格的格式IF过滤器是活动/过滤。

之前：

之后：

搜索了这个网站和其他网站，但什么也没有。

Answer 1

我开发的解决方案由 VBA 编码的用户定义函数 IsFiltered、公式和条件格式组成。 首先，添加一个带有代码的模块：

Public Function IsFiltered(Ref As Range) As Variant
  Dim i As Integer, av As Variant, cnt As Integer
  With Ref.Worksheet.AutoFilter.Filters(Ref.Column _
      - Ref.Worksheet.AutoFilter.Range.Column + 1)
    On Error GoTo NoFilterHndlr
    cnt = .Count
    On Error GoTo 0
    IsFiltered = Ref.Cells(1)
  End With
  Exit Function
NoFilterCode:
  On Error GoTo 0
  IsFiltered = ""
  Exit Function
NoFilterHndlr:
  Resume NoFilterCode
End Function

其次，用公式填写[C8:E8]

=IsFiltered(C9:C40)

其中将“C9:C40”替换为从标题行开始的数据列的范围。

第三，将标题单元格的条件格式设置为“突出显示单元格规则 --> 等于”，并输入公式“=C$8”，考虑到 C9 是活动单元格。

如果需要，您可以隐藏第 8 行。

以上所有参考文献均适用于所示单元格中的数据。根据您的数据位置输入参考文献。

完成。