エクセルでタックシール出せる？

こんにちは。
エクセルでタックシール出したいんですけど、出し方がわからないんです・・。
もうデータは入力されているんですが・・。
教えてください・・・。
お願いします。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2001/11/10 09:31

エクセルでラベルシールが印刷できないのではというかいとうなので下記を解答します。

もちろんＷＯＲＤがあれば、差込印刷を使うのが良い。
タックシールとは裏に糊のついた横３列、縦６枚とか張りついた市販されているラベルシールのこととしてお答えします。
泥臭い方法ですが、案外いいと思います。
ＳＨＥＥＴ１にデータがあるとして、白紙のＳＨＥＥＴ２を考えます。
そしてＶＢＡを使います。ＳＨＥＥＴ１のＣＥＬＬＳ（ｉ，ｊ）を
ＳＨＥＥＴ２のＣＥＬＬＳ（ｋ、ｊ）に代入し、ＳＨＥＥＴ２の列幅行高を「手探り」で何度（私の例で５回ぐらい）も白紙にテスト印刷し、
ラベルシールの実物と縦横の位置関係を調節します。
「列幅と行高は手動かＶＢＡでセットする」を行います。
そしてラベルシールをプリンターにセットし本番印刷します。
住所・宛名ラベルの例で
　ＳＨＥＥＴ１のＣＥＬＬＳ（ｉ，ｊ）→　ＳＨＥＥＴ２のＣＥＬＬＳ（ｋ、ｊ）へのプログラムによるセットですが、例を示します。ちょっとロジックが面倒ですが。
Private Sub aaa()
ninn = 18 '１８人分。3列ｘ６行
retu = 3 'シール３列
komoku = 3　’郵便番号、住所、氏名の３項目
'--------------
For i = 1 To ninn
x = (i - 1) \ retu '商。３＝シールが３列より来る
'----列の決定
y = ((i - 1) Mod retu) + 1 '余り
'-----行の決定
z = x * komoku + 1 '3=郵便番号、住所、氏名の３から来る
'-----SHEET2へ内容のセット
'郵便番号＝ＳＨＥＥＴ１のＡ列に有るとする
Worksheets("sheet2").Cells(z, y) = Worksheets("sheet1").Cells(i, 1)
'住所＝Ｂ列に有るとする。郵便番号のすぐ下のセルに配置例
Worksheets("sheet2").Cells(z + 1, y) = Worksheets("sheet1").Cells(i, 2)
'氏名＝Ｃ列に有るとする。住所のすぐ下のセルに配置する例
Worksheets("sheet2").Cells(z + 2, y) = Worksheets("sheet1").Cells(i, 3)
If　 i = 18 Then
Worksheets("sheet2").PrintOut
Exit Sub
End If
Next i
End Sub
上記プログラムは簡単にするため、１８行以上の処理と終了条件は省略しました。

No.3 回答者： kbonb 回答日時： 2001/11/10 20:45

こんにちは

　以下のページがご参考になるのでは？

[WD2000] Excel のデータをはがきの宛先データとして使用する方法
http://www.microsoft.com/japan/support/kb/articl …

[WD2000] はがき宛名印刷を行う方法
http://www.microsoft.com/japan/support/kb/articl …

[WD2000] はがき宛名印刷ウィザードに関する Q&A
http://www.microsoft.com/japan/support/kb/articl …

参考URL：http://www.microsoft.com/japan/support/kb/articl …

No.1 回答者： mishida 回答日時： 2001/11/09 17:54

　Excelでのやり方って思いつかないですが、Wordをお持ちなら、Wordを使用するといいでしょう。

　宛名ラベル作成や、差し込みヘルパーといったウィザードが、ツールメニューにあります。
　Excelのデータが適切であると、簡単に出力できます。

この回答へのお礼

おりがとうございます。
ワードの宛名印刷があるのは知ってるんですけど、エクセルのデータをワードの宛名印刷で出力できるんですか？
やり方がいまいちわからなくて・・・。

お礼日時：2001/11/10 00:39