EXCELで作成した表を印刷したいのですが、表が縦長で複数ページにわたります。
そこで各ページの下端にそれぞれ罫線を挿入するマクロを書きたいのですが、
改ページ位置の取得方法がわかりません。各ページの上端行でも下端行でも良いので
行番号を取得する方法はないものでしょうか?
どなたかご教授願います。
マクロ全体としては下記を考えています。
1.データの下端行の取得
2.印刷範囲の設定(横1ページ×縦複数ページ)
3.最初の改ページ位置の取得
4.ページ下端セル行の下に罫線を入れる
5.次の改ページ位置の取得
6.以下、データ最下端行まで繰り返し
(各行のセルの高さは一定ではないです。)
No.1ベストアンサー
- 回答日時:
難しく考えず、フッターを使ったらいかがでしょう。
フッターの1行目をスペースで連打し、フォントの設定で下線を選びます。
これで下線が表示され、丁度データと境になるのではないですか?
どうしても改ページ位置取得なら、HPageBreakオブジェクトのLocationプロパティを使ってみたらどうでしょう。
HPageBreaks (HPageBreakオブジェクトのコレクション)
ActiveSheet.HPageBreaks.Count (改ページ総数)
ActiveSheet.HPageBreaks(1).Location.Row (一番目の改ページの行)
Location.Rowで改ページの行が分ります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- Word(ワード) Word2013 縦書き上下二段の表、改行を続けると次ページに情報が表示されるようにしたい 3 2022/06/16 09:24
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- PHP PHP MySql ページング 2 2022/09/20 06:38
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
-
EXCEL-VBAで印刷時のページ番号を取得したい
Excel(エクセル)
-
vba 改ページカウントで不可解なエラーを回避したいのですが教えてください
Excel(エクセル)
-
-
4
エクセルのページ区切り(点線)の位置をマクロで取得 ※印刷範囲クリア
Excel(エクセル)
-
5
Excelのマクロについて
Visual Basic(VBA)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
Excelで特定の文字のところで自動的に改ページしたい
Excel(エクセル)
-
8
EXCEL VBAでHPageBreaks
Excel(エクセル)
-
9
Excel 改ページのVBAうまくいかないです
Excel(エクセル)
-
10
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
11
条件付き書式で最終行に線を引きたい
Excel(エクセル)
-
12
Dir関数で読み取り順を操作できる?
Visual Basic(VBA)
-
13
<EXCEL>ページ最後の行の罫線設定
Excel(エクセル)
-
14
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
15
Excelの入力規則で2列表示したい
Excel(エクセル)
-
16
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
17
PageBreaks.Countと印刷範囲の設定について
Visual Basic(VBA)
-
18
worksheet_changeがループする
PowerPoint(パワーポイント)
-
19
VBAで印刷ページ最終行にページ計表示印刷したい
Visual Basic(VBA)
-
20
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「取得先」という表現について
-
アクセスの度にIPアドレスを変...
-
【VBA】EXCELブックを開かずに...
-
Yahoo! JAPAN IDを新規取得でき...
-
ローカルのコンピュータ名を取...
-
IEを使わないでhtmlテキストを...
-
format関数について
-
VBS「開いているページ」のURL...
-
WebBrowserコンポーネントでリ...
-
PHP の cURL で、htmlを画像へ...
-
自動車教習所について 質問 普...
-
EXCEL、マクロ-改ページ行番号...
-
recordsetが取得できなかった場合
-
C# ASP.NET でIPアドレスからア...
-
個人向けルーターを使用してもS...
-
PHPで対象URLがリダイレクトし...
-
Excel VBA:特定の文字列以降(...
-
VB2005でXMLデータから複数ある...
-
VBで他アプリの「syslistview32...
-
Symfonyのcriteriaで複数のSQL
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「取得先」という表現について
-
IEを使わないでhtmlテキストを...
-
Yahoo! JAPAN IDを新規取得でき...
-
不正競争防止法に該当するので...
-
ps3で久しぶりにCDの音楽情報取...
-
format関数について
-
【VBA】EXCELブックを開かずに...
-
自動車教習所について 質問 普...
-
Excel VBA:特定の文字列以降(...
-
VBAでPDFファイルの文書のプロ...
-
【C#】FindWindowExの使い方を...
-
ミュージックのアートワークを...
-
アクセスの度にIPアドレスを変...
-
ローカルのコンピュータ名を取...
-
各クライアントマシンのログイ...
-
IPアドレスとMACアドレスを取得...
-
積立投資してます。現在平均取...
-
VB or VBScriptでPCの製造番号...
-
VBS「開いているページ」のURL...
-
EXCEL、マクロ-改ページ行番号...
おすすめ情報