[[20110821164848]]　『連番をつけてﾌﾟﾘﾝﾄｱｳﾄ』（はるぽ）　ページの最後に飛ぶ

『連番をつけてﾌﾟﾘﾝﾄｱｳﾄ』（はるぽ）
一枚の用紙に４upで印刷したい為一つのsheetに同じ内容のものを4ページ作っています。
ページごとに連番（№200くらいまで）をつけてﾌﾟﾘﾝﾄｱｳﾄしていきたいのですがどのようにしたらよいかお力を貸してください。連番を入れたいセルは、B1、B18、B35、B52です。
Windows Vista、Excel2007

 たとえば
 A1セルに何枚目の印刷か入力するセルを作る事にします。
 B1セルに　=($A$1-1)*4+1　の式を入れます。
 B18,B35,B52セルには、↑の式を入れて最後の「+1」の所を
 +2,+3,+4　に変更して下さい。
 　  B18   =($A$1-1)*4+2
     B35   =($A$1-1)*4+3
     B52   =($A$1-1)*4+4

 A1セルの値を一つ増やして印刷。
 を繰り返せばご希望の物が出来ると思います。

 「勝手に増やしながら印刷して欲しい」って場合はマクロに成ります。

 (HANA)

HANA様
ありがとうございます。
勝手に増やしながら№1から印刷を希望しています。
また、連番の終わりもその都度指定したいです。
(はるぽ)

 連番の終わりを指定しますか？
 その場合、4で割りきれない数に成る事もあるのでしょうか？

 A1セルに枚数を入れて行く事になるので
 枚数で指定する事にすると、考える事も減って簡単だと思いますが。

 ってことで、簡単な所から。。。。過去ログ紹介。
[[20090105233222]]　『連続番号の印字』（masakazu）

 それから、こちらの質問なんかは今回の件と非常に似ていると思います。
[[20100413204452]]　『１シートに４レコードを連続印刷』（プリンシプル）
 こちらのコードは、途中の改行が無くなってしまっていますので
 過去ログに飛んだあと、[差分]ボタンを押して確認してください。

 開始番号・終了番号を入力するセルを作成して
 「開始番号」「終了番号」と名前を付けます。

 A1セルにあたるセルに「印刷番号」と名前を付けます。

 コードは最初の所で
Worksheets("データ").Range("開始番号")
Worksheets("データ").Range("終了番号")
 と記述が有りますが、これは単なる
Range("開始番号")　と　Range("終了番号")
 に直しておいてもらうと良いと思います。

 どちらも B1,B18,B35,B52 に数式を入れておいて
 マクロと組み合わせる案になります。

 まずはちょっとやってみてください。

 (HANA)

HANA様
本当にありがとうございます。
連番の終わりは４で割り切れないこともあります。
最初に教えていただいたほうがシンプルのようですね。

過去ログを拝見してこちらもトライしてみます。

ありがとうございました。

（はるぽ）

 はい、最初の方がシンプルです。
 でも、こちらは「枚数」を指定します。
 　　1枚だったら、1～ 4ページ
 　　2枚だったら、1～ 8ページ
 　　3枚だったら、1～12ページ
 ・欲しいページ番号を4で割って切り上げた数字（を自分で計算して）エクセルに指示する。
 ・余白部分に欲しいページ番号以上の番号が出ても問題ない。
 と言う事であれば、そのまま使えると思います。

 後者の方はご希望通りページ番号を指定出来るコードになっています。
 　　開始番号が1ページに指定してある場合、終了番号が
 　　 4ページ以下だったら、1枚印刷
 　　 8ページ以下だったら、2枚印刷
 　　12ページ以下だったら、3枚印刷
 4で割りきれない事が有ると言う事なので
 B1,B18,B35,B52 の数式は、過去ログの様なものに変更して下さい。
 余白部分に無駄な番号が出なくなります。

 (HANA)

HANA様
沢山のアドバイスに感謝いたします。
たとえ４で割りきれなくても1枚まるまる無駄になることはないので
余白に番号が出るのは問題なしと考えて数式だけでやってみます。
すごく勉強になりました。
ありがとうございました。
（はるぽ）

HANA様
過去ログの[[20090105233222]]で作成して大成功でした。
大変感謝しております。
ありがとうございました。
（はるぽ）

コメント返信：

[ 一覧(最新更新順) ]

[[20110821164848]] 『連番をつけてﾌﾟﾘﾝﾄｱｳﾄ』（はるぽ） ページの最後に飛ぶ

[[20110821164848]]　『連番をつけてﾌﾟﾘﾝﾄｱｳﾄ』（はるぽ）　ページの最後に飛ぶ