Excel 宛名ラベル作成で、社名が変わったら改ページしたい。

宛名ラベル作成について質問させていただきます。

はじめはwordの差込印刷を使用していたのですが、
社名ごとに改ページを入れることが出来ず、各社ごとのデータを作り、会社数分（約300社）を１枚ずつ差込みしている状態です。

Exceiでマクロを使用してできるのではないかと思い、
調べてみたのですが、宛名ラベルの形式が、3列×8行の24枚シートなので、どうもうまくいきません。
…マクロ初心者なのに手を出してしまった浅はかな考えを反省しています。

データは社名、役職、氏名の3種類です。
それを左から右へ順番にデータが入っていき、
社名が変わると印刷され、
開始位置にもどり、
再び、データが入っていく…というようなことが、マクロで可能でしたら教えていただきたく、思います。

マクロでなく、ワードで可能！というご指摘も大歓迎です。
ちなみに、うちの会社ではアクセスが入っていません。
いままでこういったものは外注していたようで…。

どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2008/05/22 16:51

Word側で対応できると思いますよ。

(Excelのデータも少し編集あり)
過去ログの
【 差込印刷で顧客別に複数行のデータを印刷する方法で困っています 】
http://oshiete1.goo.ne.jp/qa2844223.html
にある説明がわかりやすいかと思います。

わかりにくかったら補足しますので、一度トライしてみてください。

この回答へのお礼

ワードのフォームを使うと出来るんですね。
難しく考えすぎていたようでした。ありがとうございました。

お礼日時：2008/05/24 18:33

No.3 回答者： pam_sarai 回答日時： 2008/05/23 13:03

そんな面倒な事をしなくとも、それ専用の市販ソフトがあります。

http://www.vector.co.jp/soft/win95/writing/se417 …
私のところでも利用していますが、大変便利でお勧めです。

この回答へのお礼

ソフト購入に消極的な会社なので、購入は難しいかと思いますが、
このような便利なものがあるというのを教えていただいてありがとうございます。

お礼日時：2008/05/24 18:21

No.2 回答者： imogasi 回答日時： 2008/05/22 19:08

エクセルVBAではこうすれば出来るとおもう。

（１）現データ
会社別に（会社名列で）ソートしておく
（２）印刷シートとシートセルの調節。
私はプログラム内で、数量的に指定して、ある特定の会社のラベルに３列８枚の位置に配置はようしない。（本式のラベル印刷などは、ヒサゴの何号と指定できっちり位置決めできているが。）
それで実際に試行錯誤して、列幅、行高、余白、遊び列、遊び行、フォントサイズ、セル内配置や位置調節のための値の最初のスペースなどをどうしたらよいか、そういう（１８個のミシン目で区切られたマスの中に、体裁よく収まる）シートを作ってください。
１ラベルシールが出来れば、ある程度３列にコピー、８箇所コピで出来ると思う
（３）いつも、前の行の会社名（または会社コード）を保持する変数を１つ作ります
（４）データ第１行から最終行まで、以下を繰り返す
１行のデータにつき、ラベルシールの１枚分の各セルに会社情報を溜め込む
A.会社が同じで２４枚以内なら、ラベルシートの１枚分の各セルに会社情報を溜め込む
右（または下。質問に書いてないよ）のラベルへ
１社分の情報を関係数セルに値をセット。横は３列だから４、７、１０、・・には直下行に印刷情報のセット位置をずらす。(注）
縦は８個の列が
B.同じ会社でシール２５枚目（、４９枚目・・）になったら、まず今まで溜め込んだ、そのラベルシート１枚の該当範囲を印刷する。
そして印刷後その範囲をクリアする。
第１ポジションに今の会社（２５番目など）情報をセット
以下繰り返し。
C途中で会社が変わったら今まで溜め込んだ情報だけにして、（空白
シール部分はあってもやむをえない）ラベルシート１枚分を印刷する。
そしてその範囲をクリアする。
ラベルの第１ポジションに対応するセル範囲に、今の会社（新会社の）情報をセット。以下直下行について繰り返し。
ーーー
(注）１ラベルの各１８のラベルシールと対応するシートのセルが番号
（１－１８）を指定するとうまく行くVBAコードが可能で、それを
やるとコードがすっきりすると思う。ラベルシールポジションを示すポインタ変数は必要。
そのためにポジションと項目ごと（会社名、会社住所など）を対応させる列・行の対応表を作るのが良さそう。
以下内容はでたらめ
ーーーーーーーーーー会社ーーー住所ーー代取
第１ポジション　　C３　　　　C５　　C6
第２ポジション　　E3 E5　　　E6
第３ポジション　　G3 G5　　　G6
第４ポジション　　C６ C８　　　C９

この回答へのお礼

ポジションの対応表を作るとは眼から鱗でした。
imogasiさんの回答はいろいろなところで拝見し、参考にさせていただいています。
ありがとうございました。

お礼日時：2008/05/24 18:31