close

Hi,
I was wondering whether it is possible to group excel worksheets under an
individual tab within the one workbook.
A example of what I would like to do is to have a set of tabs across the
bottom of the workbook to the right (as the sheet tabs appear to the left)
labelled with each month of the year. When I select a month tab, it will then
open a group of worksheets each day of that month.
I am sure that I have utilized this function in the past, but cannot workout
or remember how to create it.
Any help with this would be greatly appreciated.m,
It is possible, using code, to hide and show sheets similar to what you describe.
However, that would require a minimum of 377 sheets in the workbook.
Chances are response would be slow and workbook size would be large.
Jim Cone
San Francisco, USA
www.realezsites.com/bus/primitivesoftware
quot;melbournedude1quot; gt;
wrote in message
Hi,
I was wondering whether it is possible to group excel worksheets under an
individual tab within the one workbook.
A example of what I would like to do is to have a set of tabs across the
bottom of the workbook to the right (as the sheet tabs appear to the left)
labelled with each month of the year. When I select a month tab, it will then
open a group of worksheets each day of that month.
I am sure that I have utilized this function in the past, but cannot workout
or remember how to create it.
Any help with this would be greatly appreciated.You cannot quot;groupquot; sheets in that manner but you can get the same effect
another way. Say you have a sheet tab quot;Fourquot; at the bottom of the screen.
At the same time you have a set of hidden sheets, say quot;Onequot;, quot;Twoquot;, and
quot;Threequot;. Because those sheets are hidden, their tabs will not be visible.
You want those 3 sheets to become visible when you click on tab quot;Fourquot;.
You would use a Worksheet_Activate macro in the quot;Fourquot; sheet module to
make the 3 sheets visible. That macro would look like:
Private Sub Worksheet_Activate()
Dim ws As Worksheet
For Each ws In Sheets(Array(quot;Onequot;, quot;Twoquot;, quot;Threequot;))
ws.Visible = True
Next ws
End Sub

You could re-hide the 3 sheets by picking up another event or you can
trigger a normal macro by keystrokes or a button or you can hide them
manually.
Note that the above macro must be placed in the sheet module of sheet
quot;Fourquot;. To access that module, right-click on the sheet quot;Fourquot; tab, select
View Code, and paste the macro into that module. Click on the quot;Xquot; in the
top right corner of the module to return to the worksheet. HTH Otto

quot;melbournedude1quot; gt; wrote in message
...
gt; Hi,
gt; I was wondering whether it is possible to group excel worksheets under an
gt; individual tab within the one workbook.
gt; A example of what I would like to do is to have a set of tabs across the
gt; bottom of the workbook to the right (as the sheet tabs appear to the left)
gt; labelled with each month of the year. When I select a month tab, it will
gt; then
gt; open a group of worksheets each day of that month.
gt; I am sure that I have utilized this function in the past, but cannot
gt; workout
gt; or remember how to create it.
gt; Any help with this would be greatly appreciated.
gt;
Thanks Otto,
I have completed what you have told me to do, although this has not done
anything as you have explained.

Cheersquot;Otto Moehrbachquot; wrote:

gt; You cannot quot;groupquot; sheets in that manner but you can get the same effect
gt; another way. Say you have a sheet tab quot;Fourquot; at the bottom of the screen.
gt; At the same time you have a set of hidden sheets, say quot;Onequot;, quot;Twoquot;, and
gt; quot;Threequot;. Because those sheets are hidden, their tabs will not be visible.
gt; You want those 3 sheets to become visible when you click on tab quot;Fourquot;.
gt; You would use a Worksheet_Activate macro in the quot;Fourquot; sheet module to
gt; make the 3 sheets visible. That macro would look like:
gt; Private Sub Worksheet_Activate()
gt; Dim ws As Worksheet
gt; For Each ws In Sheets(Array(quot;Onequot;, quot;Twoquot;, quot;Threequot;))
gt; ws.Visible = True
gt; Next ws
gt; End Sub
gt;
gt; You could re-hide the 3 sheets by picking up another event or you can
gt; trigger a normal macro by keystrokes or a button or you can hide them
gt; manually.
gt; Note that the above macro must be placed in the sheet module of sheet
gt; quot;Fourquot;. To access that module, right-click on the sheet quot;Fourquot; tab, select
gt; View Code, and paste the macro into that module. Click on the quot;Xquot; in the
gt; top right corner of the module to return to the worksheet. HTH Otto
gt;
gt; quot;melbournedude1quot; gt; wrote in message
gt; ...
gt; gt; Hi,
gt; gt; I was wondering whether it is possible to group excel worksheets under an
gt; gt; individual tab within the one workbook.
gt; gt; A example of what I would like to do is to have a set of tabs across the
gt; gt; bottom of the workbook to the right (as the sheet tabs appear to the left)
gt; gt; labelled with each month of the year. When I select a month tab, it will
gt; gt; then
gt; gt; open a group of worksheets each day of that month.
gt; gt; I am sure that I have utilized this function in the past, but cannot
gt; gt; workout
gt; gt; or remember how to create it.
gt; gt; Any help with this would be greatly appreciated.
gt; gt;
gt;
gt;
gt;

Where did you place the macro? Where you place it is critical to its
operation. What changes did you make to the macro to fit with your data?
Post back and include the macro as you now have it. I tried it before I
sent it and it works for me. HTH Otto
quot;melbournedude1quot; gt; wrote in message
...
gt; Thanks Otto,
gt; I have completed what you have told me to do, although this has not done
gt; anything as you have explained.
gt;
gt; Cheers
gt;
gt;
gt; quot;Otto Moehrbachquot; wrote:
gt;
gt;gt; You cannot quot;groupquot; sheets in that manner but you can get the same effect
gt;gt; another way. Say you have a sheet tab quot;Fourquot; at the bottom of the
gt;gt; screen.
gt;gt; At the same time you have a set of hidden sheets, say quot;Onequot;, quot;Twoquot;, and
gt;gt; quot;Threequot;. Because those sheets are hidden, their tabs will not be
gt;gt; visible.
gt;gt; You want those 3 sheets to become visible when you click on tab quot;Fourquot;.
gt;gt; You would use a Worksheet_Activate macro in the quot;Fourquot; sheet module
gt;gt; to
gt;gt; make the 3 sheets visible. That macro would look like:
gt;gt; Private Sub Worksheet_Activate()
gt;gt; Dim ws As Worksheet
gt;gt; For Each ws In Sheets(Array(quot;Onequot;, quot;Twoquot;, quot;Threequot;))
gt;gt; ws.Visible = True
gt;gt; Next ws
gt;gt; End Sub
gt;gt;
gt;gt; You could re-hide the 3 sheets by picking up another event or you can
gt;gt; trigger a normal macro by keystrokes or a button or you can hide them
gt;gt; manually.
gt;gt; Note that the above macro must be placed in the sheet module of sheet
gt;gt; quot;Fourquot;. To access that module, right-click on the sheet quot;Fourquot; tab,
gt;gt; select
gt;gt; View Code, and paste the macro into that module. Click on the quot;Xquot; in the
gt;gt; top right corner of the module to return to the worksheet. HTH Otto
gt;gt;
gt;gt; quot;melbournedude1quot; gt; wrote in
gt;gt; message
gt;gt; ...
gt;gt; gt; Hi,
gt;gt; gt; I was wondering whether it is possible to group excel worksheets under
gt;gt; gt; an
gt;gt; gt; individual tab within the one workbook.
gt;gt; gt; A example of what I would like to do is to have a set of tabs across
gt;gt; gt; the
gt;gt; gt; bottom of the workbook to the right (as the sheet tabs appear to the
gt;gt; gt; left)
gt;gt; gt; labelled with each month of the year. When I select a month tab, it
gt;gt; gt; will
gt;gt; gt; then
gt;gt; gt; open a group of worksheets each day of that month.
gt;gt; gt; I am sure that I have utilized this function in the past, but cannot
gt;gt; gt; workout
gt;gt; gt; or remember how to create it.
gt;gt; gt; Any help with this would be greatly appreciated.
gt;gt; gt;
gt;gt;
gt;gt;
gt;gt;

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 software 的頭像
    software

    software

    software 發表在 痞客邦 留言(0) 人氣()