エクセル、ヘッダーについて

質問

この前も御沢になったばかりですみません

エクセルの表示で、ページレイアウトとか押さず標準のままヘッダーを表示させておく方法などありますでしょうか？

14シートそのワークブックにあった場合、シートごとに14/1など表示させておきたいです

VBAでも方法がありましたらお願い致します

回答No.3

HohoPapa · ベストアンサー

>シートごとに14/1など表示
いずれかのシートを選択した直後から、
シートに何らかの入力が行われる前まで、
かつ、
ステータスバーへの表示でよければ

ThisWorkbookオブジェクトに
次のようなコードを配置することで実現できます。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　Application.StatusBar = _
　　Format(Worksheets.Count, "0") & "/" & _
　　Format(ActiveSheet.Index, 0)
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　Application.StatusBar = False
End Sub

回答No.2

imogasi

質問の意味や、用途がよくわからないが、下記ではどうか。
Sub test011()
With ActiveSheet.PageSetup
.LeftHeader = ""
.LeftHeader = Sheets.Count & "/" & "&P"
End With
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.View = xlPageLayoutView
'--
'表示―ページレイアウトでヘッダーが 表示され、表示ー標準でフッターが消える
End Sub
ーー
Sheets.Countは現状のシートの数です。
ーー
ヘッダーを表示無しにするには、参考
Sub test02()
ActiveWindow.View = xlNormalView
End Sub
ーーー
下記に（質問にのニーズに）該当するものが、あればよいが、
https://tonari-it.com/excel-vba-header-footer/　参照
&F　ファイル名
&A　シート名
&P　ページ番号
&P+<数値>　ページ番号に<数値>を加えた値
&P-<数値>　ページ番号から<数値>を引いた値
&＆　アンパサンド (&)
&N　総ページ数
&Z　ファイルパス
ーーー
＞ページレイアウトとか押さず標準のままヘッダーを表示させておく方法などありますでしょうか？
この意味も上記VBA test02 実行でどうか。

回答No.1

watabe007

>ページレイアウトとか押さず標準のままヘッダーを表示させておく方法
無いと思いますが、ヘッダーはVBAで設定する事は出来ます。
Sub Test()
　　Dim i As Long, j As Long, cnt As Long

　　'シート名に"集計表"が含まれる枚数を数える
　　For i = 1 To Worksheets.Count
　　　　If Worksheets(i).Name Like "集計表*" Then cnt = cnt + 1
　　Next
　　'シート名に"集計表"が含まれるシートにヘッドに14/1等を表示
　　For i = 1 To Worksheets.Count
　　　　If Worksheets(i).Name Like "集計表*" Then
　　　　　　j = j + 1
　　　　　　Worksheets(i).PageSetup.RightHeader = cnt & "/" & j
　　　　End If
　　Next
End Sub

お礼

前回もお世話になったのに、今回も申し訳ありません
有難うございます！
そして読み返したら凄い誤字脱字ばかりで、お見苦しくて本当に申し訳ありません
やはりヘッダー出しっ放しにしておくのは無理なのですね
教えて頂いたやり方で試してみます！
本当に有難うございます！！