Excel2010で、自動ナンバリング

質問

Excel2010で、自動ナンバリングする方法について。以前も似た質問見たり、私自身も質問していますが、今回は多少違う状況での回答が必要で質問しています。

A4サイズの紙に３×８＝24枚のチケットを作りたいです。そこに「0001～0024」とナンバリングします。そして、チケットをたとえば合計600枚必要になると、A4サイズ一枚目に「0001～0024」2枚目に「0025～0048」・・・・25枚目に「0577～0600」と印字されて印刷できるようにしたいです。印刷枚数は随時変わるので何かフォームが出て「印刷開始No.は？」→「0001」と入力、次に「印刷終了No.は？」→「0700」と入力すると、0001～0700までのチケットが印刷できるようにしたいです。また、「0500～0830」みたいに途中からのナンバリングでも印刷できるよういしたいです。このようにする、マクロとか、方法を教えてください。

E1,E7,E13,E19,E25,E31,E37,E43,J1,J7,J13,J19,J25,J31,J37,J43,O(オー)1,O7,O13,O19,O25,O31,O37,O43の順に。以前の似た質問回答を参考にしようとしましたが、私の場合、都度必要枚数が変わるので必要ナンバリングが変わるため、フォーム出現がやはり必要になります。また、いつも0001からの印刷とは限らないのでやはり「印刷開始NO」と「印刷終了No」の両方入力する、こういった方法を教えてください

回答No.1

tsubuyuki · ベストアンサー

多分、ですけど、難しく考えない方が良いですよ。

単純に・・
Ｅ１セルに開始番号を「手入力」、表示形式を「0000」に設定

Ｅ７セル：=E1+1　　表示形式を「0000」に設定　　　これをコピー
Ｅ１３，Ｅ１９，Ｅ２５，Ｅ３１，Ｅ３７，Ｅ４３セルに貼り付け

引き続き
Ｊ１セル：=E43+1　　表示形式を「0000」に設定
Ｊ７セル：=J1+1　　表示形式を「0000」に設定　　　これをコピー
Ｊ１３，Ｊ１９，Ｊ２５，Ｊ３１，Ｊ３７，Ｊ４３セルに貼り付け

で、
Ｊ１：Ｊ４３　をコピー
必要な分、Ｏ列以降に貼り付け

端数が出たら、削除

これで事足りませんか。

マクロでやるなら、
　・インプットボックスで開始番号を指定
　・インプットボックスで終了番号を指定
　　※上記はユーザーフォームでも良いが、そこまでする必要は多分無い
　・Ｅ１＝１行目５列目を「開始位置」に指定
　・開始位置（Ｅ１）に「開始番号」を入力
　・「次の番号＝開始番号＋１」を代入しておく
　・「行番号に＋６、列番号はそのまま」のセルを「次のセル」に指定：＊１
　・この時、行番号が４３を超えたら、行番号＝１、列番号＋５」のセルを「次のセル」に指定し直し
　・上２行で指定した「次のセル」に「次の番号」を入力
　・「次の番号」に＋１（＊２
　・＊１～＊２を「開始番号＋１～終了番号」の間、繰り返す
こんな流れでしょう。
そんなに難しくはないですよ。

お礼

ありがとうございます。
試してみます。