Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9462 / 76732

←次へ　｜　前へ→


	【72832】タイトル行にページ番号を入れたい。

まこと - 12/9/23(日) 16:13 -


	引用なし

	パスワード

またお世話になります。
　　　　Ａ　　　　　　Ｂ　　　　　Ｃ　　　　　　Ｄ　　　　　　Ｅ
１　
２
３　　　　　　　　　　　　　　　　　　　　　　１ページ←ここにページ番号を入れたい
４　　　　　　　　　性別　　　　住所　　　出身高校　　保護者名　・・・・・
５　山田宏明　　　　男　　　　　・・　　　　　　・・　　　　　・・
６　青木　真　　　　女　　　　　・・　　　　　　・・　　　　　・・
７　加々美武　　　　男　　　　　・・　　　　　　・・　　　　　・・
８　広重昭典　　　　男　　　　　・・　　　　　　・・　　　　　・・
　
上のようなデータが４００名くらいあります。このデータを上から５０名ずつ
紙に印刷したいので　

Sub　改ページ()
Dim i As Long
i = Range("A65536").End(xlUp).Row
For i = 51 To i Step 50
　 ActiveSheet.HPageBreaks.Add before:=Cells(i, 1)
Next i　
End Sub

として、50名ずつに改ページできたのはよいのですが、問題はデータの見出しの部分（というかページ番号もいれた見出し）なのです。
『上のシートでＤ３のセルに、改ページされるごとに自動でページ番号を入れたいと思っております。』（１番から５０番が記載されている紙には１、５１番から１００番が記載されている紙には２というように）。
ページ設定で、タイトル行として３、４行目を登録しても、このままでは改ページ
してもＤ３のページ番号は変わりませんよね。どうしたらよいのでしょうか？
どうぞ、皆様のお力をお貸し下さいませ。
ヘッダー、フッターのページ番号設定は使わずに御願いいたします。

1 hits

▼

【72832】タイトル行にページ番号を入れたい。 まこと 12/9/23(日) 16:13

≪