- ベストアンサー
伝票全件印刷のマクロ
似たような質問があり、新たに質問するのは心苦しいのですが、何度挑戦してもうまくいかず、こちらで質問させていただきます。 エクセルで、一覧になっているデータを1人1枚で個別印刷と全件印刷する時のマクロについて知りたい。 (1)「計画書DB」というシートに1~100番までの顧客に関する情報が、入力されています。(氏名・住所など情報は多数) (2)「計画書」というシートが、1人1枚の紙を表示させる為のシートになっていて、全ての項目は、AQ1というセルを検索値としたVLOOKUP関数で表示させています。 (つくりたいマクロ) (1)個別印刷 「計画書」のA1~A52迄を1ページとして印刷 (2)全件印刷 「計画書」のA1~A52迄を1ページとして印刷した後、「計画書」のAQ1の数字が+1されて、次の方の計画書を印刷→の繰り返し。※「計画書DB」シートの番号(A列)がなくなったら印刷中止。 できるだけ具体的に教えていただけると大変助かります。。
- みんなの回答 (4)
- 専門家の回答
関連するQ&A
- エクセルマクロ 印刷「105~110」などの自動連続印刷の仕方
エクセルです。今、Vlookup関数で別のシートから呼び出して表示しています。例えば、シート1のA4に「101」と入力するとシート2を参照してデータをもってくるようになってます。 そして、102、103~と打つことによって変化していきます。 また、 101~131まで、一気に自動印刷するマクロはできました。 同様に、 201~231まで、一気に印刷するマクロはできました。 そこで、教えて欲しいのです。 105~110など途中のところを連続印刷するためのマクロはどのようになりますか。 もちろん、105~110などと打つセルをつくる必要はあると思いますが・・・。お願いしますm(_)m
- ベストアンサー
- その他([技術者向] コンピューター)
- エクセルで140人をマクロをつかって連続印刷?
140人の個別IDがあります。それをVlOOKUPで参照して別のシートに引き出しています。一回一回、IDを入力しては印刷ボタンをクリックしてきました。140人を一度に印刷したり、10~40番までを指定して連続印刷したりするマクロを教えてください。
- ベストアンサー
- その他(データベース)
- 集約印刷のマクロについて
Sub 印刷() Sheets("印刷用").Select If Range("$A$3") > Range("$B$3") Then End '印刷開始と終了の矛盾回避 Range("$B$1") = Range("$A$3") - 1 '印刷開始番号のセット For A = Range("$A$3") To Range("$B$3") '印刷繰り返し回数のセット Range("$B$1") = Range("$B$1") + 1 '印刷する番号の加算 If Range("$B$1") > Range("$B$4") Then Exit For '印刷終了番号にを越えたら終了 ActiveWindow.SelectedSheets.PrintOut Copies:=1 '印刷命令 Next A End Sub EXCELで以上のようなマクロを組みました。 A3のセルに印刷を開始するシート2にあるデータを含むページ(VlOOKUPで参照)のページ数を、B1に印刷を終了する同じシート2にあるデータを含むページ(VlOOKUPで参照)のページ数を入力して、A4で150枚程度の印刷を行うマクロです。 用紙節約のため、A4の用紙に4枚、あるいは2枚を集約して印刷したいのですが、上の特定のページから特定のページへ印刷するマクロにどのようなマクロを組み込めば、A4の用紙に4枚、あるいは2枚を集約して印刷ができるでしょうか。ご教示のほど宜しくお願いいたします。 バージョンはEXCEL 2007 OS Windows 10です。印刷機器はNEC2900Cです。
- ベストアンサー
- Excel(エクセル)
- マクロを使って印刷したい
以前にも質問させて頂きましたが、私の説明が悪かったため再度させて頂きます。 A8:C50まで下記のようなデータが入っているとして No.1 山田産業 1230 No.2 東物産 2562 No.3 北村建設 3127 … … … A1:C3に下記のような表を作成します。 A列 B列 C列 1行目 □ VLOOKUP($A1,$A$8:$C$50,2,0) VLOOKUP… 2行目 □ VLOOKUP($A2,$A$8:$C$50,2,0) VLOOKUP… 3行目 □ VLOOKUP($A3,$A$8:$C$50,2,0) VLOOKUP… ----------------------------------- A列の□にA列の8行目に入っている数字を自動的に上から3づつ(No.1、No.2、No.3)表示させてはA1:C3を印刷したいのです。 (No.1,No.2,No.3表示→印刷 No.4,No.5,No.6表示→印刷・・・・・・) 例えばNo.50までデータがあるとして1クリックで最後まで順番に印刷させることはマクロで出来ますでしょうか? 知恵をお借りできれば幸いです。宜しくお願い致します。
- ベストアンサー
- その他(プログラミング・開発)
- チェックボックスにマクロを入れて印刷する
チェックボックスにマクロを入れて印刷するやり方について ご教授いただきたく、質問させていただきます。 シート1 A B C D 1 あ ● TRUE レ 2 い × FALSE 3 う ▲ TRUE レ エクセルで上記のシートA1,B1にデータを入力し、 Dにあるチェックボックスにチェックを入れると A1の「あ」をコピーし、シート2のX1にペーストして VLOOKUPを使ってシート1のB1をA1に表示させ、 印刷したいと思っています。 (もちろん、「あ」と「●」の2項目しかないわけではなく、 1行に8項目あり、シート1では横一列に並んでいるものを、 シート2の見栄えのいいフォーマットで、印刷します。 行数は100行くらいあります。) シート2 A X 1 ● あ マクロの記録で、「チェックを入れる→コピー→ペースト→印刷→シート1に戻る」とし、 Application.Run "Book1.xls!印刷" Range("A1").Select Selection.Copy Sheets("Sheet2").Select Range("X1").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Sheets("元").Select となりましたが、チェックを入れても動作しなかったため、 「Application.Run "Book1.xls!印刷"」を削除したところ、 正常に動きました。 問題は・・・・ チェックを入れると動作する(^_^) チェックを外す時も動作する(T_T) 1個のチェックボックスにマクロは設定できたけれど、 100行あったとしたら、100個のチェックボックスを作成し 1個1個マクロを記録させる?まとめてはできない? チェックボックスをコピー&ペーストしたところ、 うまくいきませんでした。 (チェックを入れると印刷という動作でOKで、 チェックをあらかじめ入れておき、最後に印刷ボタンで 印刷するというやり方ではありません。 VLOOKUPを使っているので、無理ですよね(・_・;)) 初めてのチェックボックスですが、途中まで簡単にできた!と思ったけど、つまづいてしまいました。 色々調べたのですが、素人同然の私には難しくご質問させていただきました。 皆様お忙しいと思いますが、宜しくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロで印刷頁を設定する方法はありますか?
エクセルのワークシートに【印刷シート(全5頁)】があるのですが、 この印刷シートの各頁の指定行をみて、空白でなければ該当頁を印刷するマクロは存在するのでしょうか? 具体的に申し上げれば以下のようになります。 1頁目→必ず印刷 2頁目→セルA20が空白でなければ1・2頁を印刷 3頁目→セルA40が空白でなければ1~3頁を印刷 4頁目→セルA60が空白でなければ1~4頁を印刷 5頁目→セルA80が空白でなければ全頁印刷 条件分岐IF THEN を使うのかとは思うのですが、複雑になると 全くマクロが組めないぐらい初心者です。 どなたかご教授いただけると助かります。 よろしくお願いします。
- 締切済み
- その他(プログラミング・開発)
- エクセルのマクロについて
エクセルのマクロ初心者です。 マクロを使用して印刷プレビューが見れるようにしたいです。 vlookup関数を使いsheet1に入力し、sheet2,sheet3,sheet4、sheet5へデータを反映させています。 sheet1に入力画面を作成してあり、セルA2~A13に入力すればsheet2へ、セルA17~A28はsheet3へ、セルF2~F13はsheet4へ、セルF17~F28はsheet5へデータを反映する作りです。 sheet2~sheet5はフォーマットを作成してあり、印刷するとA4で2枚印刷されるようになっています。 入力画面で入力した内容によってはA4用紙1枚ですむこともあります。(A1~M15でA4用紙一枚、A1~M31でA4用紙2枚) 教えて頂きたいことは。 ・入力画面にマクロのボタンを設置し、ボタンをクリックすると印刷プレビューが表示されるようにしたいです。 ・sheet2用、sheet3用、sheet4用、sheet5用、とボタンを設置したい。 ・印刷プレビュー後に、(実際には印刷後)に入力画面を表示したい。 ・印刷プレビューが見たいのはsheet2,sheet3,sheet4,sheet5です。 以上です。 説明が下手ですみません><
- ベストアンサー
- オフィス系ソフト
- マクロの連続印刷
エクセルのシート1に情報が登録してあり、A列の番号をシート2のセルA1に入力すると情報が入る仕様のブイルックを組んでいます。 これを連続してA1,A2,A3と連続印刷したいのですがどのようなマクロを組めばよいのでしょうか?
- 締切済み
- その他(ビジネス・キャリア)
- MovableType4で全件表示したいです
MovableType4のメインページテンプレートの表示件数を20件に設定し、ページ下部に「全件表示」というテキストリンクを入れ別ページにて全件表示したいのですが、どうしたらよいのでしょうか? 現在は下記ソースでやっていますが、archive_typeをYearlyではなく、全カテゴリ、全エントリーを対象にしたいのです。 <MTArchiveList archive_type="Yearly" lastn="0"> <a href="<$MTArchiveLink$>"<p>全件表示</p></a> </MTArchiveList> もし何か方法があれば教えていただけないでしょうか? よろしくお願いいたします。
- ベストアンサー
- ブログ
- エクセル 規定のフォーマットに別シートのデータを繰り返し印刷
エクセルにて繰り返し印刷の方法を質問します。 環境は、OSはME・エクセルは2000です。 現在、前任者からの引継ぎを行っています。 現在は200社ぐらいのデータを各シート(同じレイアウト)に分割入力しています。これでは入力・管理・印刷等も面倒なので、200社の入力データのみを1ページに入力して、表示や印刷のみは、別シートにする事を考えています。 <考え方> 1)ページA:200件の会社情報をコードにて管理。 必要なデータをそれぞれ入力。 2)ページB:表示や印刷する帳票レイアウト形式のページ。会社コードを入力すると、ページAから検索して、会社名やその他の情報を表示する。 表示は帳票形式のページに、データシートのセルを参照する形で可能です。vlookup関数を使用して、該当コードのそれぞれのデータを表示する・・・という形です。 問題は、この形式で印刷をしたいのです。 マクロ登録も考えましたが、1ページならばわかるのですが、複数会社を一回で印刷する方法がわかりません。 できれば、ページAに印刷指示セルの列を作り、ONになっている会社のみを印刷する・・・・ということが希望です。 マクロでできればよいのですが、繰り返しのまくろがわかりません。”VBAでできる”というのだけは分りますが、VBAについて、全然未経験なもので、実際の記述方法がわかりません。 過去の質問を見ましたが、該当そうなものをみつけられずに、困っています。どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
お礼
質問内容の検索でうまくこちらの質問に辿りつくことができず、この度のご案内で知ることができました。 ご教示いただいたマクロで90%やりたいことができました。 一点、リストにデータがなくなったら(200までのリストでもデータがあるのが、100までだったら)ループを抜けて印刷がとまる方法が加われば完成となります。おそらくこれも既出でしょうからもう少し丁寧に検察してみます。