こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

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

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

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

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

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

投稿日時 - 2019-06-16 17:49:43

QNo.9626389

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

>シートごとに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

投稿日時 - 2019-06-19 10:54:19

ANo.2

質問の意味や、用途がよくわからないが、下記ではどうか。
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 実行でどうか。

投稿日時 - 2019-06-17 19:06:41

ANo.1

>ページレイアウトとか押さず標準のままヘッダーを表示させておく方法
無いと思いますが、ヘッダーは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

投稿日時 - 2019-06-17 12:08:23

お礼

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

投稿日時 - 2019-06-17 18:25:47

あなたにオススメの質問