エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
エクセルのシートを複数枚印刷したときに連番をつけたい
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
エクセルのシートを複数枚印刷したときに連番をつけたい
VBA(マクロ)の場合です 条件設定用のシートを用意します (これではSheet2としていますが、都合の... VBA(マクロ)の場合です 条件設定用のシートを用意します (これではSheet2としていますが、都合のいいシートに変えてください) その、シートの A1 に開始番号、A2 に印刷枚数を書き込みます 印刷するシートを表示してからマクロを実行します ---------------------------- Sub Sampl04() sh = "Sheet2" '条件設定シート名 StNo = Sheets(sh).Range("A1") '開始番号 PrNo = Sheets(sh).Range("A2") - 1 '印刷枚数 For i = 0 To PrNo ' ActiveSheet.PageSetup.LeftFooter = StNo + i '左に印刷 ActiveSheet.PageSetup.CenterFooter = StNo + i '中央に印刷 ' Ac