• 締切
  • 困ってます

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

  • 質問No.9626389
  • 閲覧数83
  • ありがとう数2
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 42% (3/7)

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

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

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

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

回答 (全3件)

  • 回答No.3

ベストアンサー率 61% (224/364)

他カテゴリのカテゴリマスター
>シートごとに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

ベストアンサー率 28% (4489/15985)

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

ベストアンサー率 62% (458/728)

Visual Basic カテゴリマスター
>ページレイアウトとか押さず標準のままヘッダーを表示させておく方法
無いと思いますが、ヘッダーは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
お礼コメント
beeeeyan

お礼率 42% (3/7)

前回もお世話になったのに、今回も申し訳ありません
有難うございます!
そして読み返したら凄い誤字脱字ばかりで、お見苦しくて本当に申し訳ありません
やはりヘッダー出しっ放しにしておくのは無理なのですね
教えて頂いたやり方で試してみます!
本当に有難うございます!!
投稿日時:2019/06/17 18:25
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
AIエージェント「あい」

こんにちは。AIエージェントの「あい」です。
あなたの悩みに、OKWAVE 3,600万件のQ&Aを分析して最適な回答をご提案します。

関連するQ&A

ピックアップ

ページ先頭へ