【Excel2003】で宛名印刷をしたい。

質問

【Excel2003】で宛名印刷をしたい。

添付画像のような住所録があります。
１行目に「郵便番号（〒マークなし）」・・・印刷するときは〒111-111希望。
２行目に「住所」
３行目に「名前」

これが、４行目以降も同じ内容であて先が続いていきます。
このようなデータを、宛名印刷することは可能でしょうか？

A-Oneのような市販の宛名印刷用シート（２ｘ１０くらいのヤツ）に印刷できればと思っています。

別シートに、２ｘ１０のレイアウトを画き、当てはめていくような感じに出来ないかなと思っていますが・・・

回答No.3

KURUMITO · ベストアンサー

補足でのご質問の件ですが例えばシート２のＡ１セルには郵便番号、Ｂ１セルには住所、Ｃ１セルには氏名とでも入力します。
Ａ２セルには次の式を入力して右横方向にオートフィルドラッグしたのちに下方にもオートフィルドラッグします。

=IF(ROW(A1)>COUNTA(Sheet1!$A:$A)/3,"",IF(COLUMN(A1)=1,"〒"&INDEX(Sheet1!$A:$A,ROW(A1)*3-2),IF(COLUMN(A1)=2,INDEX(Sheet1!$A:$A,ROW(A1)*3-1),IF(COLUMN(A1)=3,INDEX(Sheet1!$A:$A,ROW(A1)*3),""))))

なお、差し込み印刷については別にご質問ください。

お礼

何度もご丁寧な回答いただき感謝いたします。

１件１行への変換は無事出来ました。
今回は項目が３つですが、応用して４行以上にも対応出来そうです。

差し込み印刷については、いろいろサイトを巡って自分で調べてみました。
やってみたところ、目的のものが作れそうな気がします。
（まだ印刷はしていませんが・・・）

差し込み印刷は便利ですね。今後いろいろなところで使えそうです。

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

回答No.2

KURUMITO

回答Ｎｏ１です。郵便番号に〒を付けるのでしたら先の式は次のようにします。

=IF(OR(MOD(ROW(A1),7)=0,MOD(ROW(A1),7)=1,MOD(ROW(A1),7)=3,MOD(ROW(A1),7)=5),"",IF(MOD(ROW(A1),7)=2,"〒"&INDEX(Sheet1!A:A,ROUNDUP(ROW(A1)/7,0)*3-2),IF(MOD(ROW(A1),7)=4,INDEX(Sheet1!A:A,ROUNDUP(ROW(A1)/7,0)*3-2+1),IF(MOD(ROW(A1),7)=6,INDEX(Sheet1!A:A,ROUNDUP(ROW(A1)/7,0)*3-2+2)))))

回答No.1

KURUMITO

本来ならばワードの差し込み印刷の機能を利用されるのがよいのですがその場合には一人の人のデータは１行に入力しておくことが必要ですね。エクセルの表を作る際はできるだけ１件につき１行の表を作ることを心がげましょう。
ところでご質問の件ですがシート１にお示しのようなデータがあるとしてそれを印刷のための表にするため例えば一人につき７行を使うとして、それらの行の間は等間隔ではなく文字の大きさなども含めてそれぞれの行間隔を考えることにします。
シート２のＡ１セルには例えば次の式を入力して下方にオートフィルドラッグします。

=IF(OR(MOD(ROW(A1),7)=0,MOD(ROW(A1),7)=1,MOD(ROW(A1),7)=3,MOD(ROW(A1),7)=5),"",IF(MOD(ROW(A1),7)=2,INDEX(Sheet1!A:A,ROUNDUP(ROW(A1)/7,0)*3-2),IF(MOD(ROW(A1),7)=4,INDEX(Sheet1!A:A,ROUNDUP(ROW(A1)/7,0)*3-2+1),IF(MOD(ROW(A1),7)=6,INDEX(Sheet1!A:A,ROUNDUP(ROW(A1)/7,0)*3-2+2)))))

この式では単にＡ列だけにデータが入るだけです。実際には印刷用シートに合わせて何列にもデータが表示されるような式が必要になりますね。上の式などを参考に式を作ってみてください。

また、行の間隔については初めの人について行間隔を調整してから７行までを選択し、Ａ７セルと行番号の境界に表示される■を下方にドラッグします。ドラッグした最後の行の位置にオプションボタンが表示されますので「書式のみコピー」にチェックをします。それによって行間隔がコピーされることになりますね。

このように複雑な操作になりますね。お勧めはワードの差し込み印刷の機能を利用することです。

補足

早速のご回答ありがとうございます。

目的を成せるのならばWordを使っても構いません。
添付画像のデータをまず1件1行の形式に変換すればいいのですね？

お手数ですが、そのやり方をご教授願えませんか？

ちなみに、Wordはあまり使ったことがありません。