对已激活过滤器的列标题进行归类

Question

我正在使用Excel，我还没有在VBA（宏）中找到一个解决方案，它允许我对激活过滤器的列标题进行整理。
我正在寻找一种解决方案，帮助我通过所选列的标题颜色查看已启用过滤器的列 当我们处理具有多个列的表时，该解决方案将非常有用。

谢谢你，
最好的问候

Answer 1

谢谢你的想法， 我找到了一个解决方案，正是我想要的！ :) 解决方案是将以下VBA代码插入＆＃34; ThisWorkbook＆＃34; ：

Private Sub Workbook_SheetSelectionChange（ByVal Sh As Object，ByVal Target As Range） Dim x As Integer Dim Ws As Worksheet 设置Ws = ActiveSheet 随着Ws     .Cells.Interior.ColorIndex = xlNone     如果.FilterMode = True则         使用.AutoFilter.Filters             对于x = 1到.Count                 如果.Item（x）.On那么Ws.Cells（1，x）.Interior.ColorIndex = 8             下一个         结束     万一 结束 结束子