[[20150819095517]]　『住所一覧から封筒に連続印刷したい』（acculi）　ページの最後に飛ぶ

『住所一覧から封筒に連続印刷したい』（acculi）

エクセルは関数はある程度使えますが、VBAはほとんどわかりません。
操作を記録させるマクロは使えるのですが、VBAを直接見ても内容が
理解できないレベルです。どなたか助けてください。

「印刷対象リスト」シートと「印刷」シートがあります。

「印刷対象リスト」は４行目にタイトルがあります。タイトルは以下の通りです。

　　　　A　　　　　 B　　　　C　　　D　　 E～K　　　　L　　　 M

１　印刷ON/OFF　　名称1　　名称2　名称3　　〒1～7　　住所１　住所２　　　

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 詳細な説明がないのでよくわかりませんが、印刷ONのものだけを
 印刷したい、ということでしょうか？

 印刷ONのものだけを抽出し、ワードにエクセルのリストを差し込み印刷、
 という形になると思います。

 VBAで行いたいのなら、
 エクセル VBA 差し込み印刷
 で検索したら事例がヒットすると思います。
（カリーニン） 2015/08/19(水) 10:14

カリーニン様、途中で誤って送信してしまいました。
再度、詳細を記入したものを以下に記載させていただきます。
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
『住所一覧から封筒に連続印刷したい』（acculi）

「印刷対象リスト」シートと「印刷」シートがあります。

「印刷対象リスト」は４行目にタイトル行があります。タイトル行の項目は以下の通りです。
そして５行目以降に送付先の住所一覧の項目があり、A列には通番が、
１～１００まで入っていて、B列のON/OFFのところが、ONのものだけを印刷したいです。
量的には、１回の印刷で多くても１０枚程度です。

　　　　　　　A　　　　　　B　　　　　　C　　　　　D　　　　 E　　　　F～L　　　　M　　　 N

４行目　印刷番号　印刷ON/OFF 名称1　　名称2　名称3　　〒1～7　　住所１　住所２

５行目　１

６行目　２

・
・
・

また、「印刷」シートには、VLOOKUP関数で「印刷対象リスト」シートを参照
するようにしておりまして、「印刷」シートのCX3のセルに「1」と入力すると、
「印刷対象リスト」シートの５行目の情報を参照し、「2」と入力すると、
「印刷対象リスト」シートの６行目を参照するようにしています。

これを自動的に、「印刷対象リスト」のB列が「ON」になっているものだけを
連続印刷したいです。
なお、、「印刷対象リスト」のB列が「ON」ではないところは、空白にしていますが、
A列の番号は100まであります。

以上、つたない文章で申し訳ありませんが、よろしくお願いいたします。

（acculi） 2015/08/19(水) 10:29

 条件付きの差し込み印刷なら、↓が参考になると思います｡

[[20110203135344]]　『印刷について』（春風邪）

 若干アレンジは必要になります。
（カリーニン） 2015/08/19(水) 13:33

Sub main()

    Dim i As Integer
    For i = 5 To 104
        If StrConv(Sheets("印刷対象リスト").Range("B" & i).Value, vbNarrow) = "ON" Then
            Sheets("印刷").Range("CX3").Value = Sheets("印刷対象リスト").Range("A" & i).Value
            Sheets("印刷").PrintOut
        End If
    Next i
End Sub
（mm） 2015/08/19(水) 14:54

マクロがよくわからない場合は

 Wordとの連携（差込印刷）が一番良いと思います。
 でも使い方から勉強するのが億劫であれば
 エクセルの「ラベル印刷印刷ウイザード」はどうでしょうか。
http://www4.synapse.ne.jp/yone/excel2010/excel2010_label.html

 印刷範囲の設定には、B列で並べ替えしONだけを選択します。

 設定の保存ができないのが残念ですが、
 宛名ラベルの作成なら、都度、適当にレイアウト作成してももよいかと考えました。

（マナ） 2015/08/19(水) 19:53

mm様、ご返信ありがとうございました。頂戴したＶＢＡを内部に取り込み
理想の形で無事に印刷ができるようになりました。

カリーニン様、ご返信ありがとうございました。参考にいただきました
情報も勉強させていただきます。

マナ様、ご返信ありがとうございました。
このような方法もあるのかと気づくことができました。
別の場面でも活用できそうですので、勉強させていただきます。
（acculi） 2015/08/20(木) 09:50

コメント返信：

[ 一覧(最新更新順) ]

[[20150819095517]] 『住所一覧から封筒に連続印刷したい』（acculi） ページの最後に飛ぶ

[[20150819095517]]　『住所一覧から封筒に連続印刷したい』（acculi）　ページの最後に飛ぶ