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

解決済

質問者：piyochan
質問日時：2001/11/09 16:07
回答数：3件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

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
上記プログラムは簡単にするため、１８行以上の処理と終了条件は省略しました。