「みんな教えて! 選手権!!」開催のお知らせ

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

A 回答 (3件)

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


もちろんWORDがあれば、差込印刷を使うのが良い。
タックシールとは裏に糊のついた横3列、縦6枚とか張りついた市販されているラベルシールのこととしてお答えします。
泥臭い方法ですが、案外いいと思います。
SHEET1にデータがあるとして、白紙のSHEET2を考えます。
そしてVBAを使います。SHEET1のCELLS(i,j)を
SHEET2のCELLS(k、j)に代入し、SHEET2の列幅行高を「手探り」で何度(私の例で5回ぐらい)も白紙にテスト印刷し、
ラベルシールの実物と縦横の位置関係を調節します。
「列幅と行高は手動かVBAでセットする」を行います。
そしてラベルシールをプリンターにセットし本番印刷します。
住所・宛名ラベルの例で
 SHEET1のCELLS(i,j)→ SHEET2のCELLS(k、j)へのプログラムによるセットですが、例を示します。ちょっとロジックが面倒ですが。
Private Sub aaa()
ninn = 18 '18人分。3列x6行
retu = 3 'シール3列
komoku = 3 ’郵便番号、住所、氏名の3項目
'--------------
For i = 1 To ninn
x = (i - 1) \ retu '商。3=シールが3列より来る
'----列の決定
y = ((i - 1) Mod retu) + 1 '余り
'-----行の決定
z = x * komoku + 1 '3=郵便番号、住所、氏名の3から来る
'-----SHEET2へ内容のセット
'郵便番号=SHEET1のA列に有るとする
Worksheets("sheet2").Cells(z, y) = Worksheets("sheet1").Cells(i, 1)
'住所=B列に有るとする。郵便番号のすぐ下のセルに配置例
Worksheets("sheet2").Cells(z + 1, y) = Worksheets("sheet1").Cells(i, 2)
'氏名=C列に有るとする。住所のすぐ下のセルに配置する例
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
上記プログラムは簡単にするため、18行以上の処理と終了条件は省略しました。
    • good
    • 0

こんにちは



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

[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 …
    • good
    • 0

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


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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


おすすめ情報