エクセルの学校：全文検索：Hyper Estraier：差し込み印刷

Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)

[[20150819095517]]: #score: 8241; @digest: 1701991de295810cef9c806956f13a31; @id: 68719; @mdate: 2015-08-20T00:50:46Z; @size: 3859; @type: text/plain; #keywords: 象リ (54857), 刷on (30483), 刷対 (19725), acculi (18816), 称3 (8696), 所一 (8537), 接見 (7616), 称1 (6425), 称2 (5920), 「印 (5393), 印刷 (5005), 刷") (4577), 続印 (4363), 度使 (4100), 封筒 (3648), （ac (2945), 所1 (2765), 名称 (2670), カリ (2472), 所2 (2406), ン様 (2314), ーニ (2229), ニン (2100), 」シ (2099), 住所 (1967), 刷」 (1962), 対象 (1675), リス (1473), ト」 (1199), ト") (1109), スト (958), リー (955); 『住所一覧から封筒に連続印刷したい』（acculi）
エクセルは関数はある程度使えますが、VBAはほとんどわかりません。操作を記録させるマクロは使えるのですが、VBAを直接見ても内容が理解できないレベルです。どなたか助けてください。「印刷対象リスト」シートと「印刷」シートがあります。「印刷対象リスト」は4行目にタイトルがあります。タイトルは以下の通りです。 A B C D E〜K L M 1 印刷ON/OFF 名称1 名称2 名称3 〒1〜7 住所1 住所2 ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 詳細な説明がないのでよくわかりませんが、印刷ONのものだけを印刷したい、ということでしょうか? 印刷ONのものだけを抽出し、ワードにエクセルのリストを差し込み印刷、という形になると思います。 VBAで行いたいのなら、エクセル VBA 差し込み印刷 で検索したら事例がヒットすると思います。（カリーニン） 2015/08/19(水) 10:14 ---- カリーニン様、途中で誤って送信してしまいました。再度、詳細を記入したものを以下に記載させていただきます。 ------------------------------ 『住所一覧から封筒に連続印刷したい』（acculi）エクセルは関数はある程度使えますが、VBAはほとんどわかりません。操作を記録させるマクロは使えるのですが、VBAを直接見ても内容が理解できないレベルです。どなたか助けてください。「印刷対象リスト」シートと「印刷」シートがあります。「印刷対象リスト」は4行目にタイトル行があります。タイトル行の項目は以下の通りです。そして5行目以降に送付先の住所一覧の項目があり、A列には通番が、 1〜100まで入っていて、B列のON/OFFのところが、ONのものだけを印刷したいです。量的には、1回の印刷で多くても10枚程度です。 A B C D E F〜L M N 4行目印刷番号印刷ON/OFF 名称1 名称2 名称3 〒1〜7 住所1 住所2 5行目 1 6行目 2 ・・・また、「印刷」シートには、VLOOKUP関数で「印刷対象リスト」シートを参照するようにしておりまして、「印刷」シートのCX3のセルに「1」と入力すると、「印刷対象リスト」シートの5行目の情報を参照し、「2」と入力すると、「印刷対象リスト」シートの6行目を参照するようにしています。これを自動的に、「印刷対象リスト」の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様、ご返信ありがとうございました。頂戴したVBAを内部に取り込み理想の形で無事に印刷ができるようになりました。カリーニン様、ご返信ありがとうございました。参考にいただきました情報も勉強させていただきます。マナ様、ご返信ありがとうございました。このような方法もあるのかと気づくことができました。別の場面でも活用できそうですので、勉強させていただきます。（acculi） 2015/08/20(木) 09:50 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201508/20150819095517.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ