Group:  Microsoft Excel ยป microsoft.public.excel.setup
Thread: How do I change the color of the autofiler indicators?

DotNetBag
.NET Development Newsgroups

HTVi
TV Discussion Newsgroups

Our Hot Pick: Rising Antivirus 2006 - Certified by TUV & Checkmark! Get 10% discount by entering this coupon code: ONDISCOUNT10
Rising Antivirus 2006

How do I change the color of the autofiler indicators?
RaySar 16.07.2006 13:44:01
The autofilter indicators (the little black or blue triangles) are difficult
to tell the difference between unfiltered (black) or filtered (blue). Can I
change the default color for the filtered columns to something more
distinctive than the blue color?
Re: How do I change the color of the autofiler indicators?
Gord Dibben <gorddibbATshawDOTca> 16.07.2006 16:22:53
Ray

Unfortunately, you cannot change these.


Gord Dibben MS Excel MVP

On Sun, 16 Jul 2006 06:44:01 -0700, RaySar <RaySar[ at ]discussions.microsoft.com>
wrote:

[Quoted Text]
>The autofilter indicators (the little black or blue triangles) are difficult
>to tell the difference between unfiltered (black) or filtered (blue). Can I
>change the default color for the filtered columns to something more
>distinctive than the blue color?

Re: How do I change the color of the autofiler indicators?
roundabout <roundabout.2b6w6b[ at ]mail.mcse.ms> 19.07.2006 09:12:59

Though you could change the colour of the filtered column header by
using a worksheet event?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim af As AutoFilter
Dim fFilter As Filter
Dim iFilterCount As Integer

If ActiveSheet.AutoFilterMode Then
Set af = ActiveSheet.AutoFilter
iFilterCount = 1
For Each fFilter In af.Filters
If fFilter.On Then
af.Range.Cells(1, iFilterCount).Interior.ColorIndex =
6
Else
af.Range.Cells(1, iFilterCount).Interior.ColorIndex =
xlNone
End If
iFilterCount = iFilterCount + 1
Next fFilter
Else
Rows(1).EntireRow.Interior.ColorIndex = xlNone
End If

End Sub



--
roundabout
------------------------------------------------------------------------
Posted via http://www.mcse.ms
------------------------------------------------------------------------
View this thread: http://www.mcse.ms/message2421270.html

Home | Search | Terms | Imprint | Contact
Newsgroups Reader - provided by WiredBox.Net