- ベストアンサー
エクセル、ヘッダーについて
この前も御沢になったばかりですみません エクセルの表示で、ページレイアウトとか押さず標準のままヘッダーを表示させておく方法などありますでしょうか? 14シートそのワークブックにあった場合、シートごとに14/1など表示させておきたいです VBAでも方法がありましたらお願い致します
- beeeeyan
- お礼率41% (5/12)
- Visual Basic
- 回答数3
- ありがとう数2
- みんなの回答 (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
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17068)
質問の意味や、用途がよくわからないが、下記ではどうか。 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 実行でどうか。
- watabe007
- ベストアンサー率62% (476/760)
>ページレイアウトとか押さず標準のままヘッダーを表示させておく方法 無いと思いますが、ヘッダーは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
関連するQ&A
- エクセルのヘッダー編集について
エクセル2007のヘッダーの編集について教えてください。 メニューの「ページレイアウト」の「余白(ユーザ設定の余白)」→「ヘッダー・フッター」からヘッダーの編集するときに、ダウンリストから選べるようにしたいのですが、どうすれば良いのでしょうか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル2013でのヘッダーやフッター
ウインドウズ7のPCを使用しています。最近エクセル2013で作成したデータが 10シートになったため、フッターに1/10、2/10という表示で、かつ、シートの増減に合わせて 自動的に変動されるように設定し印刷したいと思っています。 そこでメニューバーのリボンから「ヘッダーとフッター」をクリックして、更にフッターをクリックし、 ページ番号やページ数のボタンをクリックしてみました。 しかし、「&ページ&総ページ数」などという文字が 現れ、エンターキーを押すと単に総枚数だけの表示になります。 どのようにすれば、できるのでしょうか? 更に、1/10, 2/10, 3/10.......10/10という表示方法の文字サイズも拡大表示したいのですが、、、、。
- ベストアンサー
- その他MS Office製品
- エクセルでのヘッダーをページごとにかえられますか?
タイトルの通りなんですが、 エクセルで同じシートでもページごとにヘッダーをかえられますか? おわかりになる方、教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのヘッダーフッターのページ数挿入について教えて下さい。
エクセルで文章を打った後にページ数を入れようと思ったのですが、シートが2つあり、1つ目のシートに1-6ページまで打ち、2つ目のシートに7-10ページまでのページ数を入れたいです。ヘッダーとフッターの編集を見ても1つ目のシートはそのまま挿入できるのですが、2つ目のシートは続き番号である7~というのは設定できないのでしょうか?設定しても必ず2つ目のシートからだと1P~になってしまいます。何とかしてシートをまたがってページ数を続かせたかったので方法を教えて下さい。また、もしダメなら代用する方法があるのであれば教えて下さい。宜しくお願いします。
- ベストアンサー
- その他(インターネット・Webサービス)
- ワード$エクセル(2013)のヘッダーフッター
教えてください。ワード$エクセル(2013)のヘッダーフッター作成する時に、ページ番号の入力方法を教えてください。 例えば、用紙が1~3ページあるとした時に1/3、2/3、3/3と表示をしたいのですが教えてください。バージョンが古いときは簡単にできたのですが、2013での方法が見つかりません。すみませんが宜しくお願いを致します。
- ベストアンサー
- Word(ワード)
- Excel VBAのヘッダー設定について
Excel 2010で、VBAでレフトヘッダーを設定すると あらかじめ設定しておいたライトヘッダーが消えてしまいます。 プレビューしても表示されません。 デバッグでレフトヘッダーを設定する前のステップまでは 残っているのですが設定すると出なくなってしまいます。 そんな症状を聞かれたことがある方おられますか?
- 締切済み
- Excel(エクセル)
- Excelのヘッダーに変数値を表示できますか?
Excel 2010を使っています。Excelのヘッダーに、VBA で使っている変数値を表示したいのですが、可能でしょうか?
- ベストアンサー
- その他MS Office製品
- エクセルのヘッダーについて。
エクセルでページ番号を表示したいのですが, ページ設定→シートタグ→行タイトルでは出来ないので,余白の設定を操作し,ヘッダーの右にページ番号を設定しましたが,右に余白が空きすぎるので,移動させることは可能でしょうか? ※ヘッダーの右側に表示させる文字の配置はコントロール可能でしょうか?
- 締切済み
- オフィス系ソフト
お礼
前回もお世話になったのに、今回も申し訳ありません 有難うございます! そして読み返したら凄い誤字脱字ばかりで、お見苦しくて本当に申し訳ありません やはりヘッダー出しっ放しにしておくのは無理なのですね 教えて頂いたやり方で試してみます! 本当に有難うございます!!