手作りのチケットに通し番号を付ける

文化祭などでチケットを手作りすることはよくあると思います。
これをExcelで作り、1枚ずつ通し番号を付けたいとします。
A4の紙を使うとして紙1枚からチケット4枚を印刷することにします。
Excel2007で確認しましたが別のバージョンでも動くと思います。

Excelでチケットを作る

1. Excelで1枚分のチケットを作ります。
2. 通し番号をセットするセルを決めます。ここでは「C2」とします。
3. 1枚分の範囲を3回コピーしてA4版に4枚分のチケットを作ります。
4. 2枚目の通し番号のセルに「=C2+1」と入力します。
5. 3枚目の通し番号のセルに「=C2+2」と入力します。
6. 4枚目の通し番号のセルに「=C2+3」と入力します。

マクロを設定する

Visual Basic Editorを開き、次のマクロをセットします。

状況に応じて書き換えます。
myrowとmycolは通し番号をセットするセルの行と列です。「C2」ならば、myrowに「2」、mycolに「3」とします。
numberfromは最初の番号です。
numbertoは最後の番号です。チケットを1000枚作るならば「1000」とします。
numberstepは1ページあたりのチケットの枚数です。

マクロを実行する

このマクロを実行します。
通し番号を順々にセットして連続して印刷します。