ヘッダーのタイトルとページ表示のコードがわからない

2023/09/06 03:44

このQ&Aのポイント

ヘッダーのタイトルとページ表示のコードがわからず、うまく表示されない問題が発生しています。
左ヘッダーに【名古屋市】登録状況一覧と表示させたいが、【名古屋市】登録状までしか表示されない。
日付は作表した日付のままで表示され、システムからダウンロードした日付を表示する方法がわからない。

ベストアンサー

ヘッダーのタイトルとページ表示のコードがわからない

2015/05/22 13:41

表のタイトルと日付、ページをヘッダーあるいはフッダーに入れたいのですがうまく表示されません。 1.左ヘッダーに【名古屋市】登録状までしか表示しません。　【名古屋市】登録状況一覧　と表示させたいです。 2.日付は出てきたのですが、作表した日付のままでしょうか？　次の日に印刷したら日付がかわるのでしょうか？　システムからダウンロードした日付をいつも表示するようにしたいです。 3.1/しか表示しません。総ページ数が表示されません。間違っているところを指摘していただけないでしょうか？よろしくお願いします。 With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftHeader = "&""ＭＳＰゴシック,太字""&20【&A】登録状況一覧" .CenterHeader = "" .RightHeader = Format(Date, "ggge年m月d日") & "現在" '日付 .LeftFooter = "" .CenterFooter = "&P/&N" .RightFooter = "" End With

kisaragijec
お礼率46% (30/64)

Excel（エクセル）
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

m_and_dmp
ベストアンサー率54% (974/1797)

2015/05/25 01:10 回答No.1

シート名を　名古屋市　にして、ご質問のコードを実行してみました。貴殿が期待した通りの結果になったと思います。 1. 【名古屋市】登録状況一覧　と表示されました。 2. 日付はマクロを実行した日です。日を変えて印刷しても日付は変わりません。システムからダウンロードした日付にしたいなら、ダウンロードして開いたらすぐにマクロを実行します。（いずれ、マクロによりヘッダー/フッターを設定するのですから） 3. 1/N と表示されました。(Nは総ページ数）　"&P/&N" でセンターフッターを設定すると、エクセルのページ設定でセンターフッターを見るが、&[ページ番号]/&[総ページ数]　になっていることがわかります。 ※ Excel 2010 で試しました。別のパソコンで試して、同じような問題が起きるかどうか確認されてはいかがでしょう？

質問者

お礼 2015/05/25 10:20

m_and_dmpさん、ありがとうございました。こちらでも、そこだけを抜き出して実行したところ、うまく表示されました。他の印刷設定が邪魔しているのかもしれないと、最後にもってきたら希望通りに表示されました。お手数をおかけして申し訳ありませんでした。ありがとうございました。

関連するQ&A

【365】マクロでヘッダー・フッターが消えない
頻繁に設定するページレイアウトをマクロ化してありますが、すでにヘッダー・フッターが設定されている状態でそのマクロを実行してもヘッダー・フッターが消えません。 .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" EvenPageとFirstPageも""に設定してあります。他に設定しなければならないマクロがあるのでしょうか？
- ベストアンサー
- Excel（エクセル）
ヘッダーの編集でフォントの設定をした場合は
マクロの記録でページ設定→ヘッダーフッター→ヘッダーの編集でフォントの設定をした場合はこの設定のマクロの記録は取れないのでしょうか？マクロの記録の結果を見ても Sub Macro1() ' ' Macro11 Macro ' ' Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "あああ" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.590551181102362) .RightMargin = Application.InchesToPoints(0.590551181102362) .TopMargin = Application.InchesToPoints(0.78740157480315) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True End Sub で、フォントの設定は見当たりません。
- 締切済み
- オフィス系ソフト
Excelでのページ番号付与について（WindowsXP）
Excelでのページ番号付与について（WindowsXP）何枚かのシートがあるファイルに一括でヘッダー・フッターを付けたいと思っています。 Sub SetHeader() Dim mySheet As Worksheet Application.ScreenUpdating = False For Each mySheet In ActiveWindow.SelectedSheets With mySheet.PageSetup .LeftHeader = "左ヘッダー" .CenterHeader = "中央ヘッダー" .RightHeader = "右ヘッダー" .LeftFooter = "左フッター" .CenterFooter = "中央フッター" .RightFooter = "右フッター" End With Next Application.ScreenUpdating = True End Sub 上記のようにマクロを作成したのですが、選択したシートの連番という単純な物ではなくちょっと面倒なページ表示をしなければいけなくなりました。一つのファイルの中で 1シート目→1ページ 2シート目→3ページ 3シート目→2ページなどとなっている場合 1枚目→1 2枚目→2-1/3 　　　2-2/3 　　　2-3/3 3枚目→3-1/2 　　　3-2/2 というようなページ表示にしたいのですが、どのようにマクロを組めばいいかわからなくて困っています。よろしくお願いいたします。　　
- 締切済み
- その他([技術者向] コンピューター)
【Excel2013マクロ】コメント「なし」
ググったところ同じ質問があったものの解決していないようなので、再度質問させていただきます。過去の質問　→　https://oshiete.goo.ne.jp/qa/9365077.html Excel2010からコピーしてきたページ設定のマクロを実行すると、コメント(M)が2010では「(なし)」だったのが2013では「シートの末尾」に設定されてしまいます。「(なし)」でマクロを作り直してもダメです。 ------------------------------------- Application.PrintCommunication = False With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With Application.PrintCommunication = True ActiveSheet.PageSetup.PrintArea = "" Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.78740157480315) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlPortrait .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False .PrintErrors = xlPrintErrorsBlank .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .ScaleWithDocHeaderFooter = True .AlignMarginsHeaderFooter = True .EvenPage.LeftHeader.Text = "" .EvenPage.CenterHeader.Text = "" .EvenPage.RightHeader.Text = "" .EvenPage.LeftFooter.Text = "" .EvenPage.CenterFooter.Text = "" .EvenPage.RightFooter.Text = "" .FirstPage.LeftHeader.Text = "" .FirstPage.CenterHeader.Text = "" .FirstPage.RightHeader.Text = "" .FirstPage.LeftFooter.Text = "" .FirstPage.CenterFooter.Text = "" .FirstPage.RightFooter.Text = "" End With Application.PrintCommunication = True End Sub ------------------------------------- 「(なし)」にする方法はありませんか？
- ベストアンサー
- Excel（エクセル）
エクセルVBAでヘッダーに別ブックのセルにある文字などを入れる方法をお
エクセルVBAでヘッダーに別ブックのセルにある文字などを入れる方法をお尋ねします。マクロ記録をとり、下のようなコードの部分でヘッダー中央に元のブックの元シートC3の文字を入れています。これでできているのですが、さらにE1にある日付、F1にある日付と文字列を入れたいと思っています。今現在C3は会社名が入っています。(仮に「NTT商事」とします) E1には「2010/1/1」の日付が入っているとします F1には「2010/8/22」の日付が入っているとしますこれをヘッダー中央に、[NTT商事(20100101～20100822)売り上げ]というように元のセルにあるデータの利用と、“～”や“売り上げ”などの文字列を複合させてタイトル付けをしたいと思っています。こうするためにはどのようにコードを入れればいいでしょうか？よろしくお願いします。 With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = Workbooks("元ブック").Sheets("元シート").Range("C3").Value .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.787) .RightMargin = Application.InchesToPoints(0.787) .TopMargin = Application.InchesToPoints(0.984) .BottomMargin = Application.InchesToPoints(0.984) .HeaderMargin = Application.InchesToPoints(0.512) .FooterMargin = Application.InchesToPoints(0.512) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With
- ベストアンサー
- オフィス系ソフト
エクセルのマクロについて
エクセルの印刷マクロを作りましたが、動作が非常に遅いのです。スタッフ用と管理者用のマクロを作り、スタッフ用が遅いのです。余計なものが含まれているのでしょうか？お願いします。 Sub スタッフ() ' スタッフ Macro 　　ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$55" With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$55" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 76 .PrintErrors = xlPrintErrorsDisplayed End With ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$60" With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "$A$1:$AJ$60" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0) .RightMargin = Application.InchesToPoints(0) .TopMargin = Application.InchesToPoints(0) .BottomMargin = Application.InchesToPoints(0) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 70 .PrintErrors = xlPrintErrorsDisplayed End With Range("A1").Select End Sub
- ベストアンサー
- オフィス系ソフト
EXCEL VBAでシートの余白を統一したい。
こんばんは。 EXCEL　VBAでひとつのファイルの中のすべてのシートの余白とA4横サイズに統一したいのです。マクロの記録をとると With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.393700787401575) .RightMargin = Application.InchesToPoints(0.393700787401575) .TopMargin = Application.InchesToPoints(0.393700787401575) .BottomMargin = Application.InchesToPoints(0.393700787401575) .HeaderMargin = Application.InchesToPoints(0) .FooterMargin = Application.InchesToPoints(0) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 600 .CenterHorizontally = False .CenterVertically = False .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = 100 .PrintErrors = xlPrintErrorsDisplayed End With End Sub このように記述されますが、どのように加工したらよろしいでしょうか？教えてください。
- ベストアンサー
- オフィス系ソフト
エクセルのヘッダーを変数で指定したい
マクロで、エクセルのヘッダー部に日付を表示させたいのですが、当日日付を表示させるのではなく、任意の日付を表示させようと考えています。ヘッダー部のマクロ With ActiveSheet.PageSetup 　　.RightHeader = "&""ＭＳ明朝,太字""&12" & w_date & "現在" End With と記述し、実行結果を印刷プレビューで見ると、ページいっぱいに日付が表示されてしまいます。文字の大きさを指定しない場合の記述 With ActiveSheet.PageSetup 　　.RightHeader = "&""ＭＳ明朝,太字""" & w_date & "現在" End With これだと、正しく右側に"yyyy/mm/dd現在"と表示されます。ヘッダー部の右側に文字の大きさを指定した上で、正しく表示させるにはどのように記述すればいいでしょうか？ご教授、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
Excelのヘッダー表示を変数で指定する場合
こんにちは。 Excel2000を使用しています。マクロで、印刷時のヘッダーに変数を指定したいのですが、フォントやサイズも指定しようとするとうまく出来ません。 [現在の記述] With ActiveSheet.PageSetup .RightHeader = 変数Ａ .RightHeader = "&""明朝,標準" End With この場合、後に記述したRightHeaderが有効になるため、結果として、ヘッダーには文字列が何も無い状態になります。逆にすれば、変数Ａの内容は表示されるものの、フォントはデフォルトのものになってしまいます。単に文字列を表示させたいなら .RightHeader = "&""明朝,標準""&11文字列" でOKだと思うのですが、これが変数となると、どうやって記述すればいいのか判らないのです。どなたかご存知でしたら教えてください。
- ベストアンサー
- オフィス系ソフト
VBAでのヘッダー操作について
ただいまＶＢＡの勉強中なのですが、１３ページあるワークシートに対してヘッダーにページ番号を振るマクロを作成しようとしております。ページ番号は以下のような３桁表示にしたいのですがうまくいきません。 001,002,・・・009,010,012,013 With Worksheets("表１").PageSetup .LeftHeader = Format$("&P", "000") End With このようにプログラムしたのですが、結果は 1,2,・・・9,10,11,12,13 となってしまいます。どのようにすれば３桁表示になってくれるのでしょうか？
- 締切済み
- オフィス系ソフト