上記の広告は１ヶ月以上更新のないブログに表示されています。新しい記事を書く事で広告が消せます。

手書きの方がアジがあり、ぬくもりがありますので手書きしましょう。

と冒頭に言ってしまいましたが、やはり手間。数100社の宛先をすべて手書きで書くなんて腱鞘炎になりそう。住所録をエクセルデータに出来るのであればエクセルで封筒枠を作って印刷すればあっという間です。

記事最後にファイルダウンロードが可能です。

住所リスト

まずは印刷する宛先のリストを作ります。A列にはNoを入れておきましょう。

住所が長く折り返したい場合、E列に住所２という形で分けてもいいでしょう。
この様式で作りなさい！という事ではなく、説明用のリストなのでB列に郵便番号が来たりしても全然問題ありません。あなたが持ってるリストをそのまま使ってください。

封筒設定

住所リストとは別シートに封筒ページを作ります。ページ設定で用紙サイズを指定の封筒にします。封筒サイズ一覧を参考に。

※また、この用紙サイズ設定はご使用のプリンタに依存するため封筒サイズが無い場合もあります。ユーザー定義による用紙サイズがあるのであれば、封筒サイズ一覧のサイズに定義して設定してください。
もしユーザー定義設定も無く、封筒用紙サイズも無いのであれば・・・・ここでの説明は終わりです。他の方法を検索してください。


で、枠幅調整、郵便番号枠追加、住所・宛名のセル結合、縦書き、と書式を変更する。

宛名・住所表示

住所枠の表示の前に、フォームコントロールでコンボボックスを付けます。


コンボボックスの書式設定で入力範囲を住所リストの社名を指定します。この説明ですと住所リストシートのB2:B5（B5までじゃなくもっと下のほうまで設定したほうが追加しやすい）。
また、リンクするセルを仮にここではR4セルに指定しておきます。


このコンボボックス、○○株式会社を選択するとリンクするセル（R4）が「１」になり、△●▽商店を選択すると「２」になります。

そのリンクするセル（R4）を使って住所表示するセルにVLOOKUPで計算式
=VLOOKUP(R4,住所リスト!A2:D16,4,0)

宛名・社名を表示するセルには
=VLOOKUP(R4,住所リスト!A2:D16,2,0)

郵便番号は
左の桁から
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),1,1)
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),2,1)
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),3,1)
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),4,1)
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),5,1)
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),6,1)
=MID(VLOOKUP(R4,住所リスト!A2:D16,3,0),7,1)
と、一つ一つのセルに計算式を入れます。
VLOOKUPで求めた郵便番号7ケタをMIDで一文字ずつ切り取ってるだけです。

最後に

最後に各々のプリンタの設定が必要になるかと思います。私のプリンタ（NEC　MultiWriter8600N）では手差し給紙に封筒を、ケツから入れる為、180°回転設定をしないとま逆に印刷されてしまいます。
しかも入れる封筒が糊付きの為にローラーの熱で糊が溶け、ローラーに巻きついてしまうこともしばしば・・・＾＾；
これで故障したら保障してもらえないんだろうなーと思いつつ使ってます。

あ、それとコンボボックスや郵便番号枠は印刷しない設定にしておきましょう。

ダウンロード

封筒印刷エクセルファイル

右クリックして「名前を付けてリンク先を保存」してください。

他のファイルも色々あります。ファイル保管庫

関連記事

• エクセルで封筒の宛名印刷
• 標準報酬月額の計算