Note: The other languages of the website are Google-translated. Back to English

Excelで印刷されたすべてのページの下部に行を繰り返し印刷するにはどうすればよいですか?

デフォルトでは、Excelはユーザーが行を上部に繰り返し印刷する機能を提供します。 ただし、場合によっては、ページの上部を除いて下部に行を繰り返し印刷することをお勧めします。 この記事では、ちょっとしたコツを紹介します。

VBAコードを使用して行の下部を繰り返し印刷します


VBAコードを使用して行の下部を繰り返し印刷します

以下のVBAコードを実行して、指定した行をすべてのページのフッターに挿入できます。 そして、Excelで印刷されたすべてのページの下部にこの行を繰り返し印刷できます。

1。 押す 他の + F11 キーを同時に開いて アプリケーション用 Microsoft Visual Basic 窓。

2。 の中に アプリケーション用 Microsoft Visual Basic ウィンドウダイアログボックスをクリックします インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBAコード:印刷されたすべてのページのフッターに指定された行を挿入します

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3。 プレス F5 コードを実行するためのキー。 次に、Kutools for Excelダイアログボックスが表示されます。印刷するすべてのページの下部で繰り返し印刷する必要がある行を選択して、[ OK ボタン。

これで、指定した行の内容が、現在のワークシートのすべての印刷ページのフッターに追加されます。 ワークシートの印刷を開始できます。

注意:ブック全体の各ページの下部に選択したコンテンツを繰り返し印刷する場合は、フッター機能を適用して、すべてのシートのフッターにコンテンツを挿入できます。


Excelのn行ごとにタイトル行を簡単に繰り返す:

Kutools for Excel's タイトル行を挿入 以下のスクリーンショットに示すように、ユーティリティを使用すると、Excelで選択した範囲のn行ごとにタイトル行をすばやく挿入できます。
ダウンロードして今すぐ試してみてください! (30-日フリートレイル)


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (11)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
マクロ共有をありがとう。 それは私の目的を果たします。 どうもありがとう。
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとう。 このマクロは私の目的を果たします。作成者とマクロを共有してくれた人に感謝します。
このコメントは、サイトのモデレーターによって最小化されました
ページの下部にある行を繰り返すためにマクロを共有していただきありがとうございます。 このマクロを変更して、選択した行をその形式で繰り返すことはできますか。提供されているマクロでは、各ページの下部に値のみが繰り返されます。ページの下部にも形式をコピーすることを楽しみにしています。
このコメントは、サイトのモデレーターによって最小化されました
共有していただきありがとうございます。 行や自動ページ番号を含む「タイトルの印刷」オプションと同じように、VBAコードがフッターを繰り返す可能性があります。 可能であれば私を助けてください。
このコメントは、サイトのモデレーターによって最小化されました
ありがとうございます。
とても助かりました。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
何度か試していますが、うまくいきません。 お知らせ下さい。
このコメントは、サイトのモデレーターによって最小化されました
良い一日、
コメントありがとうございます。 どのOfficeバージョンを使用していますか?
このコメントは、サイトのモデレーターによって最小化されました
可能であれば、Office365を使用していますが、機能しません。 ビューをページレイアウトモードに設定してみましたが、役に立ちませんでした。 あなたが助けることができることを願っています。 ありがとう。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、

マクロを開始して目的の行を選択すると、印刷しようとしても機能しません。 これは何でしょうか?
Office365を使用します。

おかげで、
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、

上記のコードを使用しようとしましたが、コードを印刷しようとすると機能しません。 上記のすべての手順を実行しましたが、エラーは発生しません。
Office 365を使用しています。ヒントはありますか?

事前のおかげで、
このコメントは、サイトのモデレーターによって最小化されました
こんにちはティム、
こんにちは。選択した行がページフッターに挿入されます。結果を確認するには、ページレイアウトビューに切り替える必要があります。 コメントありがとうございます。
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護