エクセルで表の一部だけを変える方法

質問

エクセルで、表（チケットのような物）を作成し、その中の一部（整理番号）を変更したいのですが（１番～２０００番）、表のすべてをコピーして、２０００枚作らなくても番号だけが変わるような良い方法はありますか？

回答No.1

shkwta · ベストアンサー

1枚のチケットが必ず同じ行数使うようにします。
たとえば1～5行が1枚目、6～10行が2枚目、11行～15行が3枚目、…という具合です。

1枚目を、チケットのデザインや記入項目を含めて完全に作っておきます。
これを2枚目にそのままコピーします。

つぎに、1枚目の整理番号の欄（仮に、B2としましょう）に1を入れます。
2枚目の整理番号の欄（この場合、B7になります）に=B2+1と入れます。
3枚目からあとは、2枚目をコピーします。

1998回コピーするのは大変なので、2枚目と3枚目をコピーして4～5枚目に貼り付け、2～5枚目をコピーして6～9枚目に貼り付け、というようにコピー範囲を倍々に増やしていくと回数が少なくて済みます。

お礼

早速のご回答ありがとうございます。
まずは、作成してみます。
コピーの回数をなるべく少な目に・・・

回答No.4

kimino_naha

整理番号の変更だけですね（ちょっとずれているかもしれませんが）？
以下は Excel 2000 です、整理番号が[セルB2]に入るものとして話を進めます。

チケットの表を一枚だけ作ります。
表示(V)→ツールバー(T)からフォームを表示させます。
フォームのスピンボタン（▲＝▼の形）を選択し、ワークシ－ト上の空いたところでクリックすると、スピンボタンが作成されます。
スピンボタンを右クリックします。
コントロールの書式設定(O)からコントロールタブをクリックします。
現在値(C)を1に、以下、最小値(M)=1、最大値(X)=2000、変化の増分(I)=1とします。
最後にポイント、リンクするセル(L)にB2を入力し、[OK]ボタンをクリックします。
後は、作成したスピンボタンをクリックすると、整理番号[セルB2]が増減します。印刷は1枚づつとなります。
マクロで組めばこの部分も全部自動化できます。

お礼

ありがとうございます。
おそらく私がイメージしていたのは、この方法だと思います。
ただ、印刷が一枚づつしか出来ないと言うのが難点ですね～

回答No.3

Piazzolla

私ならこうやるかなぁ。。。
チケットのサイズが、A4で10枚分作れる大きさだとして。まずページに均等にチケットが収まるようにコピーして、番号なしの状態で200ページ印刷します。
その後、チケットの整理番号の位置にうまく重なるように番号だけのページを作ります。
そして、最初に作った200枚に重ねて印刷します。

番号は、10箇所を毎回記入するのは面倒なので、一箇所変えて、他は計算させます。
例えば、
印刷されない離れたセル、H1とします。
整理番号と重なるセルに次の式を入れます。
=$H$1*10-9　　=$H$1*10-4　
=$H$1*10-8　　=$H$1*10-3
=$H$1*10-7　　=$H$1*10-2　　
=$H$1*10-6　　=$H$1*10-1
=$H$1*10-5　　=$H$1*10-0

セルの書式設定で、「1」と表示させずに、「0001」と表示させるようにしておきます。
セルH1に「1」と入れると、
0001　　0006
0002　　0007
0003　　0008
0004　　0009
0005　　0010
と表示されるので、チケットに重ねて印刷。
以下、セルH1を2,3,4、・・・200まで変えます。

お礼

ご解答ありがとうございます。
データを作って、印刷は別の所で出すんですよ。
データが出来たらメールで送る事になっているもので。

回答No.2

SAKURAMYLOVE

ワードでチケットを作成して、エクセルでNo.をとり、差込み印刷と言う方法もありますが。

お礼

ご回答ありがとうございます。
差込印刷というのを他の方の質問の中でも見つけたのですが、方法がわからなっかたんです。
ワードも少し勉強してみます。