设立了头黄色的背景颜色在Excel中使用VBA自动筛选表

发表于： 2020年10月22日 2020年11月12日
标签： general-topics-in-vba

|问题：

过滤列时，标题行将以黄色背景颜色

突出显示。 ===答案：

在适当的模块中插入以下代码。

将下面的代码放入标准模块中。

Private Sub Worksheet_Calculate()

Dim flt As Filter

Dim intCol As Integer

For Each flt In ActiveSheet.AutoFilter.Filters

intCol = intCol + 1

If flt.On Then

Cells(1, intCol).Interior.ColorIndex = 6

Else

Cells(1, intCol).Interior.ColorIndex = xlColorIndexNone

End If

Next flt

End Sub