エクセルで300件ほどの名簿を作りました。
A…ナンバー(1,2,3…)
B…氏名
C…郵便番号
D…住所
こんな感じで下方向に300件ほど入力してあります。
長3封筒横向き、横書きで、エクセルのみを使って1件につき1枚連続印刷したいのですが、マクロを組んだことがなく、どうしたら良いのかわかりません。
-----------------------------------------
〒○○○-○○○○
△△市△△町△-△
□□ □□□ 様
-----------------------------------------
↑
こんな感じに作りたいんです。
ナンバーの印刷は必要ありません。
勉強不足ですみません。
具体的にどうやって作るのか教えていただけませんでしょうか。
ワードで差込印刷を試みたのですが、余白を0にしても1行目から入力しても、印刷プレビューでは枠内に収まっているのに、なぜか上から5センチほどずれて印刷されてしまい、かっこ悪いし全体が表示されないので使えません。
悩んでしまいました。
なお、会社のセキュリティーの関係でフリーソフトや有料ソフトはダウンロードできません。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
次のように仮定します。
名簿用シート:シート名=List
A B C D E F
1 No. 氏名 〒 住所 先頭番号 3
2 1 最終番号 7
3 2
4 3
封筒印刷用シート:シート名=Print
1.セルA1の文字色を白にします。
2.宛先データを表示する各セル(A1以外)にVLOOKUP関数の数式を入力します。
郵便番号: =VLOOKUP(A1,List!A2:C300,3,0)
住 所: =VLOOKUP(A1,List!A2:D300,4,0)
名 前: =VLOOKUP(A1,List!A2:B300,2,0)
マクロ記述
1.[Alt]を押しながらの[F11]で、Visual Basic Editor を開きます。
2.開いたウィンドウの[挿入]から、[標準モジュール]を指定します。
3.標準モジュールに以下を記述して、Visual Basic Editor を閉じます。
ここでは、テスト用に印刷イメージ表示(最後から6行目)にしています。
印刷する場合は、.PrintPreview を .PrintOut に書き換えます。
Sub 印刷開始()
Dim PrintNB, EndNB, FormStyle
Application.ScreenUpdating = False
Worksheets("List").Select
PrintNB = Range("F1").Value
EndNB = Range("F2").Value
Worksheets("Print").Select
Do Until PrintNB > EndNB
Range("A1").Value = PrintNB
ActiveWindow.SelectedSheets.PrintPreview '印刷イメージ
PrintNB = PrintNB + 1
Loop
Worksheets("List").Select
Application.ScreenUpdating = True
End Sub
ボタンにマクロを登録
名簿用シートを開いてフォームツールバーを表示し、"ボタン"を選択してシート内の
任意の位置に描画します。
ここで表示されるマクロの登録画面で、上記マクロを選択して [OK] します。
印刷時は、F1に印刷開始データ番号、F2に最終印刷データ番号(どちらもA列の数字)を
入力してからボタンをクリックします。
すごい!! .PrintPreview での確認のみですが、無事できました!!
ありがとうございました。
あーよかったー!本当に助かりました。
マクロってすごく便利ですね。本買って勉強してみます。
あと、質問ですが、上から10行目の『'印刷イメージ』って.PrintOut で印刷を実行するときもこのままでよろしいしょうか?
何のためのものかも教えていただけるとありがたいです。
ネットで検索したのですが、うまく出てきませんでした。
No.4
- 回答日時:
#3です。
成功なさったようで、よかったですね。
> 上から10行目の『'印刷イメージ』って.PrintOutで印刷を実行するときもこの
> ままでよろしいしょうか?
そのまま置いておいても影響はありませんが、『'印刷イメージは .PrintPreview』
のようにしておくとよいでしょう。
モジュール内に「'」を書くと、その位置から右は無視されますので、コメント等を
書くときなどに使用できます。
先頭に「'」を置いて、
'印刷処理(以下5行)
のような内容の行を書いておくと、コマンドの流れがわかりやすくなりますね。
ありがとうございます。
お礼が遅くなり申し訳ございませんでした。
なるほどー!わかりました。
職場でプリントアウトも成功しました。
misatoanna様様です。
今までマクロって自分には敷居が高くて挑戦できなかったんですが、
使えたらすごく便利ですよね!
これをきっかけに勉強してみようと思います。
色々ご丁寧に教えていただきありがとうございました。
No.2
- 回答日時:
この質問重複送信されたようです。
ダブってませんか?早急に1本化の処理を。
ご指摘ありがとうございます。
しかし、ダブってはいませんでした。
もしかすると、ワードの差し込み印刷のやり方を聞いた質問のことでしょうか?
この質問はエクセルのみでマクロを使った宛名印刷の方法を質問し、
もう一方の質問では、エクセルの名簿を使って、ワードで差し込み印刷をする方法を質問しております。
結果的にやりたいことは同じ(封筒に宛名印刷すること)ですが、
方法が違うので重複してないのではないかと思っています。
当方初心者のため、質問を統一すると回答がごっちゃになってしまいそうなので、このまま2本仕立てで質問を継続いたします。
どちらも読んでいただけたようで嬉しいです。
今後もよろしくお願いします。
No.1
- 回答日時:
ちょっと気になり調べてみました。
エクセルから直接宛名印刷が出来るアドオン(筆まめ)とかあるみたいですが、
>会社のセキュリティーの関係でフリーソフトや有料ソフトはダウンロードできません。
となると、下記リンク掲載のように作るしかなさそうですね。
下記リンクのサンプルファイルを見ましたが、マクロは使わず比較的簡単な関数のみで作られているようです。
入力された住所録データを一度に印刷は関数だけでは厳しそうですが…。まあその場合も簡単なマクロを追加するだけで事済みそうです。
また、私的にはWordよりExcelの方が思い描いた印刷に苦労しています(苦笑)
参考URL:http://www.kcc.zaq.ne.jp/dfbpl606/atena/
ご回答ありがとうございます。
便利なサイトを教えていただきありがとうございました。
sayopさんはワードがお得意なんですね。すごくうらやましいです。
1つ1つ勉強して、ワードもエクセルも使いこなせるようになりたいです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
封筒に連続で印刷は、可能でしょうか?
その他(パソコン・スマホ・電化製品)
-
長3形封筒宛名印刷 横向き横書きについて
PowerPoint(パワーポイント)
-
ワードの差込印刷で、郵便番号を封筒の枠内にキレイに印刷する方法は??
Word(ワード)
-
-
4
長形4号封筒印刷の件
Windows 8
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの文字を「印刷時だけ非表...
-
コンビニでpdfを四つで一つにし...
-
Excel セル内に見たことのない...
-
wordで白抜き文字を印刷するには?
-
作成中のメールを印刷する方法...
-
Excel フィルタをかけた後の各...
-
ワードで背景の画像を印刷しな...
-
word 最終ページのみ常に印刷し...
-
ファミマでPDFを両面印刷したの...
-
[Acrobat]注釈を埋め込む 注釈...
-
何もしていないのに印刷したら...
-
Accessのテーブル設計内容を印...
-
PDF-XChange Editorのテキスト...
-
ワードでオートシェイプの印刷...
-
Access:フォームの一部だけを...
-
Word の画像を印刷しない設定は...
-
エクセル、ワードのページ数の...
-
エクセルマクロ 2部づつ印刷する
-
A6の原稿1枚ををA4に4枚印刷す...
-
かんたんPDF EDITで文字を書き...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルの文字を「印刷時だけ非表...
-
Excel フィルタをかけた後の各...
-
何もしていないのに印刷したら...
-
エクセルで「白字」を印刷した...
-
PDF-XChange Editorのテキスト...
-
ワードの差込印刷部分の背景部...
-
wordで印刷の頁順を変えたい
-
コンビニでpdfを四つで一つにし...
-
画面通りに印刷されず(Word2013)
-
WORD 印刷すると文字が重なる
-
[Acrobat]注釈を埋め込む 注釈...
-
indeedのweb求人内容を印刷した...
-
ファミマでPDFを両面印刷したの...
-
Thunderbirdで選択個所だけの印刷
-
ワードで背景の画像を印刷しな...
-
word 最終ページのみ常に印刷し...
-
違うページが印刷される
-
かんたんPDF EDITで文字を書き...
-
作成中のメールを印刷する方法...
-
wordで白抜き文字を印刷するには?
おすすめ情報