エクセル形式の住所録から自動的にハガキ宛名印刷する方法

質問

• エクセル形式の住所録からハガキ宛名を自動的に選択し印刷する方法を紹介します。過去の印刷回数を元に名簿から選び出したリストに対してハガキ印刷を行い、回数を増やすことも可能です。
• 名簿のリストをエクセル形式で保持している場合、ワードの差込印刷では送付回数を自動的に増やすことができません。しかし、エクセルやワードなどのソフトを使って自動化する方法があります。
• 専用ソフトの費用負担ができない場合でも、エクセルやワードなどの既存のソフトを活用して、エクセル形式の住所録からハガキ宛名を自動的に印刷することができます。ハガキの下半分には異なったコメントを刷り込むことも可能です。

回答No.3

imogasi · ベストアンサー

＃１です。ＶＢＡのコードは
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet3")
Set sh2 = Worksheets("sheet4")
'---最下行数取得
d = sh1.Range("A65536").End(xlUp).Row
For i = 2 To d
'----郵便番号セット
sh2.Cells(2, "C") = Mid(sh1.Cells(i, "F"), 1, 1)
sh2.Cells(2, "D") = Mid(sh1.Cells(i, "F"), 2, 1)
sh2.Cells(2, "E") = Mid(sh1.Cells(i, "F"), 3, 1)
sh2.Cells(2, "G") = Mid(sh1.Cells(i, "F"), 5, 1)
sh2.Cells(2, "H") = Mid(sh1.Cells(i, "F"), 6, 1)
sh2.Cells(2, "I") = Mid(sh1.Cells(i, "F"), 7, 1)
sh2.Cells(2, "J") = Mid(sh1.Cells(i, "F"), 8, 1)
'----住所セット
sh2.Cells(11, "B") = sh1.Cells(i, "G")
sh2.Cells(12, "C") = sh1.Cells(i, "H")
'----氏名セット
sh2.Cells(15, "C") = sh1.Cells(i, "D") & "様"
'---2回以上出した方に
If sh1.Cells(i, "Q") > 2 Then
'---セールス文言セット
sh2.Cells(17, "C") = "ただいまクリスマスセール中！"
sh2.Cells(18, "C") = "会員さま限定"
End If
'---出状回数＋１
sh1.Cells(i, "Q") = sh1.Cells(i, "Q") + 1
'---印刷
sh2.Range("a1:K20").PrintOut
sh2.Range("a1:k20").ClearContents
Next i
End Sub
です。
イメージは
700 0847

岐阜県本巣市 東町３－１－３　
６棟３０５号室

田中　太郎様

ただいまクリスマスセール中！
会員さま限定

（１）フオントのサイズをワークシート上で調節すること
上記プログラムでは触ってない。
郵便番号は１８ポ程度か。
（２）セル幅、行高を調節すること（特に郵便番号）。
上記プログラムでは触ってない。
Ａ列、Ｂ列など。Ａ，Ｂ列は伸縮調節用の列です。
（３）天辺の余白の調節をすること。印刷のページ設定。
上記プログラムでは触ってない。
（４）セールス文言のところは適宜文字を変えること。
（５）プログラム中の下記のワークシート名を変えること。””の中。
Set sh1 = Worksheets("sheet3")　住所録シーと名
Set sh2 = Worksheets("sheet4")　ハガキシート名
（６）何度かハガキコピー紙に試し印刷して郵便番号の
位置を合わせること。
（７）Ｃｅｌｌｓ（ｉ，ｊ）の形が出てくるが、セルを示すもので、ｉは行、ｊは列を表す。

お礼

大変ありがとうございました。ばっちりできました。VBAのコードの書き方も理解でき、自分でいろんな条件式を書き加えることもできるようになりました。
本当に、感謝の表しようがありません