PC Review


Reply
Thread Tools Rate Thread

Change tab colour for active sheet

 
 
Helge V. Larsen
Guest
Posts: n/a
 
      8th Aug 2007
When a sheet is activated, its tab turns WHITE with a coloured underscore.
The underscore colour is equal to the tab colour when the sheet is not
active.

I want to control the colour of the active tab, for instance I would like to
make it RED instead of white. The active tab colour (e.g. red) should not be
individual, but common to all sheets. Is it in some way possible ?

(I use Excel 2003.)

Helge


 
Reply With Quote
 
 
 
 
=?Utf-8?B?Sm9lbA==?=
Guest
Posts: n/a
 
      8th Aug 2007
Thsis simple macro will turn all tabs red

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 8/8/2007
'

'
For Each ws In Worksheets

Sheets(ws.Name).Tab.ColorIndex = 3
Next ws
End Sub


"Helge V. Larsen" wrote:

> When a sheet is activated, its tab turns WHITE with a coloured underscore.
> The underscore colour is equal to the tab colour when the sheet is not
> active.
>
> I want to control the colour of the active tab, for instance I would like to
> make it RED instead of white. The active tab colour (e.g. red) should not be
> individual, but common to all sheets. Is it in some way possible ?
>
> (I use Excel 2003.)
>
> Helge
>
>
>

 
Reply With Quote
 
Helge V. Larsen
Guest
Posts: n/a
 
      8th Aug 2007
Perhaps I was not clear.

Let us suppose that all tabs are blue. Then I want the colour of any sheet
tab to turn RED when the sheet is activated.

Helge


"Joel" <(E-Mail Removed)> wrote in message
news:383D093F-578B-4039-B83D-(E-Mail Removed)...
> Thsis simple macro will turn all tabs red
>
> Sub Macro1()
> '
> ' Macro1 Macro
> ' Macro recorded 8/8/2007
> '
>
> '
> For Each ws In Worksheets
>
> Sheets(ws.Name).Tab.ColorIndex = 3
> Next ws
> End Sub
>
>
> "Helge V. Larsen" wrote:
>
>> When a sheet is activated, its tab turns WHITE with a coloured
>> underscore.
>> The underscore colour is equal to the tab colour when the sheet is not
>> active.
>>
>> I want to control the colour of the active tab, for instance I would like
>> to
>> make it RED instead of white. The active tab colour (e.g. red) should not
>> be
>> individual, but common to all sheets. Is it in some way possible ?
>>
>> (I use Excel 2003.)
>>
>> Helge
>>
>>
>>



 
Reply With Quote
 
=?Utf-8?B?Sm9lbA==?=
Guest
Posts: n/a
 
      8th Aug 2007
If you add this code into the ThisWorkbook VBA sheet it will underline the
active sheet in Red and make all other tabs white

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each ws In Worksheets

If ws.Name = ActiveSheet.Name Then
Sheets(ws.Name).Tab.ColorIndex = 3
Else
Sheets(ws.Name).Tab.ColorIndex = xlNone
End If
Next ws
End Sub

"Helge V. Larsen" wrote:

> Perhaps I was not clear.
>
> Let us suppose that all tabs are blue. Then I want the colour of any sheet
> tab to turn RED when the sheet is activated.
>
> Helge
>
>
> "Joel" <(E-Mail Removed)> wrote in message
> news:383D093F-578B-4039-B83D-(E-Mail Removed)...
> > Thsis simple macro will turn all tabs red
> >
> > Sub Macro1()
> > '
> > ' Macro1 Macro
> > ' Macro recorded 8/8/2007
> > '
> >
> > '
> > For Each ws In Worksheets
> >
> > Sheets(ws.Name).Tab.ColorIndex = 3
> > Next ws
> > End Sub
> >
> >
> > "Helge V. Larsen" wrote:
> >
> >> When a sheet is activated, its tab turns WHITE with a coloured
> >> underscore.
> >> The underscore colour is equal to the tab colour when the sheet is not
> >> active.
> >>
> >> I want to control the colour of the active tab, for instance I would like
> >> to
> >> make it RED instead of white. The active tab colour (e.g. red) should not
> >> be
> >> individual, but common to all sheets. Is it in some way possible ?
> >>
> >> (I use Excel 2003.)
> >>
> >> Helge
> >>
> >>
> >>

>
>
>

 
Reply With Quote
 
Helge V. Larsen
Guest
Posts: n/a
 
      8th Aug 2007
We are closer - but not at all close to the target.

What you suggest will only bring colour to the UNDERSCORE of the active
sheet's tab.
I am interested in colouring the WHOLE tab of the active sheet!

Helge

"Joel" <(E-Mail Removed)> wrote in message
news:9FC880BF-1799-4A8B-9460-(E-Mail Removed)...
> If you add this code into the ThisWorkbook VBA sheet it will underline the
> active sheet in Red and make all other tabs white
>
> Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> For Each ws In Worksheets
>
> If ws.Name = ActiveSheet.Name Then
> Sheets(ws.Name).Tab.ColorIndex = 3
> Else
> Sheets(ws.Name).Tab.ColorIndex = xlNone
> End If
> Next ws
> End Sub
>
> "Helge V. Larsen" wrote:
>
>> Perhaps I was not clear.
>>
>> Let us suppose that all tabs are blue. Then I want the colour of any
>> sheet
>> tab to turn RED when the sheet is activated.
>>
>> Helge
>>
>>
>> "Joel" <(E-Mail Removed)> wrote in message
>> news:383D093F-578B-4039-B83D-(E-Mail Removed)...
>> > Thsis simple macro will turn all tabs red
>> >
>> > Sub Macro1()
>> > '
>> > ' Macro1 Macro
>> > ' Macro recorded 8/8/2007
>> > '
>> >
>> > '
>> > For Each ws In Worksheets
>> >
>> > Sheets(ws.Name).Tab.ColorIndex = 3
>> > Next ws
>> > End Sub
>> >
>> >
>> > "Helge V. Larsen" wrote:
>> >
>> >> When a sheet is activated, its tab turns WHITE with a coloured
>> >> underscore.
>> >> The underscore colour is equal to the tab colour when the sheet is not
>> >> active.
>> >>
>> >> I want to control the colour of the active tab, for instance I would
>> >> like
>> >> to
>> >> make it RED instead of white. The active tab colour (e.g. red) should
>> >> not
>> >> be
>> >> individual, but common to all sheets. Is it in some way possible ?
>> >>
>> >> (I use Excel 2003.)
>> >>
>> >> Helge
>> >>
>> >>
>> >>

>>
>>
>>



 
Reply With Quote
 
=?Utf-8?B?Sm9lbA==?=
Guest
Posts: n/a
 
      8th Aug 2007
The active tab doesn't get colored, only underlined. Maybe the solution is
the revers. Color all the tab not active red and leave the other tabs
colored red. but isn't that whatt macrosoft already does?

"Helge V. Larsen" wrote:

> We are closer - but not at all close to the target.
>
> What you suggest will only bring colour to the UNDERSCORE of the active
> sheet's tab.
> I am interested in colouring the WHOLE tab of the active sheet!
>
> Helge
>
> "Joel" <(E-Mail Removed)> wrote in message
> news:9FC880BF-1799-4A8B-9460-(E-Mail Removed)...
> > If you add this code into the ThisWorkbook VBA sheet it will underline the
> > active sheet in Red and make all other tabs white
> >
> > Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> > For Each ws In Worksheets
> >
> > If ws.Name = ActiveSheet.Name Then
> > Sheets(ws.Name).Tab.ColorIndex = 3
> > Else
> > Sheets(ws.Name).Tab.ColorIndex = xlNone
> > End If
> > Next ws
> > End Sub
> >
> > "Helge V. Larsen" wrote:
> >
> >> Perhaps I was not clear.
> >>
> >> Let us suppose that all tabs are blue. Then I want the colour of any
> >> sheet
> >> tab to turn RED when the sheet is activated.
> >>
> >> Helge
> >>
> >>
> >> "Joel" <(E-Mail Removed)> wrote in message
> >> news:383D093F-578B-4039-B83D-(E-Mail Removed)...
> >> > Thsis simple macro will turn all tabs red
> >> >
> >> > Sub Macro1()
> >> > '
> >> > ' Macro1 Macro
> >> > ' Macro recorded 8/8/2007
> >> > '
> >> >
> >> > '
> >> > For Each ws In Worksheets
> >> >
> >> > Sheets(ws.Name).Tab.ColorIndex = 3
> >> > Next ws
> >> > End Sub
> >> >
> >> >
> >> > "Helge V. Larsen" wrote:
> >> >
> >> >> When a sheet is activated, its tab turns WHITE with a coloured
> >> >> underscore.
> >> >> The underscore colour is equal to the tab colour when the sheet is not
> >> >> active.
> >> >>
> >> >> I want to control the colour of the active tab, for instance I would
> >> >> like
> >> >> to
> >> >> make it RED instead of white. The active tab colour (e.g. red) should
> >> >> not
> >> >> be
> >> >> individual, but common to all sheets. Is it in some way possible ?
> >> >>
> >> >> (I use Excel 2003.)
> >> >>
> >> >> Helge
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>

>
>
>

 
Reply With Quote
 
=?Utf-8?B?VG9tIE9naWx2eQ==?=
Guest
Posts: n/a
 
      8th Aug 2007
The color of the selected tab is the same color as the worksheet when is has
no coloring. This is a Windows setting, not an excel setting. If you change
the background color for your windows in your windows settings, then you can
alter the tab color of the selected sheet. If you want what is currently
white to be red, then you can do it. <g>

--
Regards,
Tom Ogilvy

"Helge V. Larsen" wrote:

> We are closer - but not at all close to the target.
>
> What you suggest will only bring colour to the UNDERSCORE of the active
> sheet's tab.
> I am interested in colouring the WHOLE tab of the active sheet!
>
> Helge
>
> "Joel" <(E-Mail Removed)> wrote in message
> news:9FC880BF-1799-4A8B-9460-(E-Mail Removed)...
> > If you add this code into the ThisWorkbook VBA sheet it will underline the
> > active sheet in Red and make all other tabs white
> >
> > Private Sub Workbook_SheetActivate(ByVal Sh As Object)
> > For Each ws In Worksheets
> >
> > If ws.Name = ActiveSheet.Name Then
> > Sheets(ws.Name).Tab.ColorIndex = 3
> > Else
> > Sheets(ws.Name).Tab.ColorIndex = xlNone
> > End If
> > Next ws
> > End Sub
> >
> > "Helge V. Larsen" wrote:
> >
> >> Perhaps I was not clear.
> >>
> >> Let us suppose that all tabs are blue. Then I want the colour of any
> >> sheet
> >> tab to turn RED when the sheet is activated.
> >>
> >> Helge
> >>
> >>
> >> "Joel" <(E-Mail Removed)> wrote in message
> >> news:383D093F-578B-4039-B83D-(E-Mail Removed)...
> >> > Thsis simple macro will turn all tabs red
> >> >
> >> > Sub Macro1()
> >> > '
> >> > ' Macro1 Macro
> >> > ' Macro recorded 8/8/2007
> >> > '
> >> >
> >> > '
> >> > For Each ws In Worksheets
> >> >
> >> > Sheets(ws.Name).Tab.ColorIndex = 3
> >> > Next ws
> >> > End Sub
> >> >
> >> >
> >> > "Helge V. Larsen" wrote:
> >> >
> >> >> When a sheet is activated, its tab turns WHITE with a coloured
> >> >> underscore.
> >> >> The underscore colour is equal to the tab colour when the sheet is not
> >> >> active.
> >> >>
> >> >> I want to control the colour of the active tab, for instance I would
> >> >> like
> >> >> to
> >> >> make it RED instead of white. The active tab colour (e.g. red) should
> >> >> not
> >> >> be
> >> >> individual, but common to all sheets. Is it in some way possible ?
> >> >>
> >> >> (I use Excel 2003.)
> >> >>
> >> >> Helge
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>

>
>
>

 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
Change the colour of the active TabControl forest8 Microsoft Access 2 13th Mar 2010 05:31 PM
change sheet colour Millie Microsoft Excel Discussion 2 14th Feb 2008 10:10 PM
How I can change colour of row and column which are active ? =?Utf-8?B?aGI=?= Microsoft Excel Misc 1 18th Sep 2006 01:49 PM
On a Mac how do I change the border colour of the active cell? =?Utf-8?B?TGlubw==?= Microsoft Excel Misc 2 23rd May 2006 01:36 PM
Change Sheet Tab Colour =?Utf-8?B?SmVuYWk=?= Microsoft Excel Misc 1 22nd Apr 2005 06:12 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 07:05 AM.