エクセルのシートの見出し

シートの見出し（Sheet1,Sheet2などと書いてあるのものです）をたくさん増やしすぎたため、一見して目的のシートが見つけられない状況になりました。

シートの見出しを２段もしくは３段などにすることは可能ですか？可能ならば、そのやり方を教えてください。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2006/04/28 11:09

>シートの見出しを２段もしくは３段などにすることは可能ですか

こういうエクセルの画面の基礎的な体裁を変えることは、MS社のエクセル開発者が決めることで、現状はそこまでユーザーに（１段か複数段かをユーザー選択性で）させることはないという判断だと思います。人によっては、うざったい、と感じるでしょう。
VBAででもやれば、
（１）シートの数だけのシート名を表示したボックスを画面に出すとか（見た目がうるさいが）
（２）ある特定のシートのセルに、全シート名を出す
ことは可能なので、人によったら、そんなことを考えるのではないでしょうか。
シート名表示移動ボタンの１つ、左向き▲ボタン等の上で右クイックするのが有名ですが、１５個ぐらいしか出てきません（E2002)でした。
（２）の例
「シート名」というシートを１つ作る。
Thisworkbookのイベントに
Private Sub Workbook_SheetActivate(ByVal sh As Object)
Dim shn As Worksheet
i = 1
j = 1
For Each shn In ActiveWorkbook.Worksheets
Worksheets("シート名").Cells(i, j) = shn.Name
i = i + 1
If i > 20 Then
i = 1
j = j + 1
End If
Next
End Sub
「シート名」シートを開くと、実行されて、現状のシート名録に更新される。
20 のところを40に変えれば、４０ｘ！５ぐらいは（スクロールなしで）表示できるでしょう。
なお、シート名の、各セルをくりっくっするとそのセルに表示された
シートのA1セルなどをSelectすることは別コードを加えてできます。

この回答へのお礼

可能ではないのですね。
残念ながらVBAって何？というほどのレベルですので、教えていただいたことのほとんどが理解できませんでしたが、回答ありがとうございました。

お礼日時：2006/04/28 17:16

No.1 回答者： mu2011 回答日時： 2006/04/28 09:33

シートタブ左横にある移動ボタン上で右クリックして見て下さい、シート一覧が表示されますが如何でしょうか。

この回答へのお礼

早速の回答ありがとうございました。
回答にあるやり方を知りませんでしたので大変勉強になりました。

お礼日時：2006/04/28 12:08