- ベストアンサー
連続で印刷 VBA エクセル
・シート１のA列に番号が入力されており、B列以降に情報が入力されています。 ・シート２のA1セルに上記に番号を入力すると、B列以降の情報がフォーマットにあわせて表示する様になっています。 ・印刷する場合、A列に番号を入力→印刷を繰り返します。 ○コレをVBAで自動化できないでしょうか？
- yuu1236
- お礼率80% (38/47)
- Excel（エクセル）
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
>・シート１のA列に番号が入力されており、B列以降に情報が入力されています。 >・シート２のA1セルに上記に番号を入力すると、B列以降の情報がフォーマットにあわせて表示する様になっています。 ここまではすでに関数か何かでできているとして。 以下でsheet1のＡ列のデータをSheet2のA1に入力しつつ、印刷します。 Sub macro() Dim I As Integer For I = 1 To Worksheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Sheet2").Range("A1").Value = Worksheets("Sheet1").Range("A" & I).Value Worksheets("Sheet2").PrintOut Next I End Sub
その他の回答 (1)
- mar00
- ベストアンサー率36% (158/430)
シート１のA列のデータが２行目から入力されているとして Sub Macro1() Dim Ws01 As Worksheet, Ws02 As Worksheet Dim i As Long Set Ws01 = Worksheets("Sheet1") '★(シート１) Set Ws02 = Worksheets("Sheet2") '★(シート２) Ws02.Select For i = 2 To Ws01.Cells(Rows.Count, "A").End(xlUp).Row '★(２行目から始まります。) Range("A1") = Ws01.Range("A" & i) ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next i End Sub ★の部分は適宜修正して下さい。
お礼
ありがとうございました！
関連するQ&A
- エクセル VBA
最終行から順番に下へ同列で入力するＶＢＡを教えて下さい。 ＥＸＣＥＬのＶＢＡで教えて下さい。 シート1のＡ列にはB列が入力されると自動入力されるNo.があり、C～G列もB列が入力されると自動入力されます。 B列には日付が、H列には３～4桁の数字が入力したいのですが、 入力行は必ず最下行のセルB、Gな為、VBAでフォームを作成し、 入力実行ボタンを押すことにより、最下行のセルB、Gに反映されるように したいです。 又、上記入力後に、シート2のH～N列をコピーして、シート3のA～G列に値のみの貼り付けを行い保存した後、シート3のA～G列をコピーして ｃｓｖファイルを作成して保存したいです。 一連の流れを、フォームの入力実行ボタンを押すことで実行したいのですができるのでしょうか？ 宜しく御願い致します。
- ベストアンサー
- Visual Basic
- excelでマクロを使用した連続印刷について
A2セルから通し番号、氏名、住所等のデータが入力されている「データ」シートがあり、 VLOOKUPを使用してB3セルに「データ」シートのA列にある「通し番号」を 入力すると氏名・住所等が反映される「印刷」シートがあります。 例えば「データ」シートのC列（住所）に「東京都」という文字列が 含まれている宛名のみを連続で印刷したい場合、 どのようなマクロになりますでしょうか？ （マクロ内に「東京都」と指定する方法と、 シート内の特定セルに入力した文字列で指定する方法が ありますでしょうか？） wordでの差し込み印刷や、宛名ソフト等の使用は考えておりません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- マクロの連続印刷
エクセルのシート1に情報が登録してあり、A列の番号をシート2のセルA1に入力すると情報が入る仕様のブイルックを組んでいます。 これを連続してA1,A2,A3と連続印刷したいのですがどのようなマクロを組めばよいのでしょうか？
- 締切済み
- その他（ビジネス・キャリア）
- エクセルVBAでPDFを大量に印刷したい
PDFファイルが6000件くらいあって Aというホルダーに1.pdf,2.pdf といった形で保存しております エクセルのA列に必要な番号を入力し５０～６０件印刷します A列には必要なファイル番号のみ入れていきます ２，３，６，１００，２１０といった形でA列に必要なデータを入れて VBAで起動させるとA1から順番にアクティブプリンターで印刷したいと おもっています。 どのようなVBAにすればいいのかわかりません。 ループで繰り返しになる感じになると思います N=N+1といった感じでA1セル.PDF 印刷 A2セル.PDF 印刷 A3セル.PDF 印刷 といった形でAに入る数字は毎回違ってきます 番号はあるけどファイルがない場合はその番号を Ｂ1列から順番に摘出するようなものを考えてます どなたかお忙しいとは思いますがご教示いただけませんか よろしくお願いいたします
- ベストアンサー
- Excel（エクセル）
- Excelで抽出・連続印刷したいです
恐らくExcelのマクロの機能になるかと思うのですが 以下の作業を簡単にできるようにしたいです。 シート1にデータベース 1.○○×夫 〒000-0000 A県B市・・・ 2.××○子 〒111-1111 C県D市・・・ シート2に印刷用フォーマット FROM～TOの入力でデータベースの該当番号から シート2の印刷用フォーマットの宛名の部分に 名前・郵便番号・住所 のデータを拾ってくる。 ↓ 順番に印刷 仕事で使用します。。。 印刷用フォーマットに書かれてある内容は全員 共通で、ただデータベースに入力した名前・あて先 に送りたいだけなのですが。。。 簡単にできますでしょうか？ ずいぶん前にVBAの講習を受けましたが、まったく 忘れてしまい、今日新たに本も購入しましたが よくわかりません。。。 ご存知の方、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでPDFを1枚目のみ大量に印刷したい
エクセルVBAでPDFを大量に印刷したい PDFファイルが6000件くらいあって Aというホルダーに1.pdf,2.pdf ・・・6000.pdfといった形で保存しております エクセルのA列に必要な番号を入力し５０～６０件印刷します A列には必要なファイル番号のみ入れていきます ２，３，６，１００，２１０といった形でA列に必要なデータを入れて VBAで起動させるとA1から順番にアクティブプリンターで印刷したいと おもっています。 どのようなVBAにすればいいのかわかりません。 ループで繰り返しになる感じになると思います N=N+1といった感じでA1セル.PDF 印刷 A2セル.PDF 印刷 A3セル.PDF 印刷 といった形でAに入る数字は毎回違ってきます 番号はあるけどファイルがない場合はその番号を Ｂ1列から順番に摘出するようなものを考えてます 印刷については、全部1ページのみ印刷をします。１PDFで4ページあっても先頭の1ページのみ印刷です。 どなたかお忙しいとは思いますがご教示いただけませんか よろしくお願いいたします
- ベストアンサー
- Excel（エクセル）
- Excel VBAについて質問します。
Excelのシート1のA列に 同じ番号や違う番号が入力されています。 A列には、この先番号が増えてくると思います。 A列の同じ番号が何個存在するかをカウントして数字で表示させたいです。 重複していない番号も1と数えていきたいです。 カウントした表示先は予めシート2に重複していない様にA列に存在しますので 同じ番号の横B列に何個存在するか個数を表示させる事はできませんでしょうか？ VBAは初心者の為、お手数をおかけしますが宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- EXCELのデータベース利用について（VBA）
VBA初心者の者です。 下記の様なEXCELファイルを作りたいのですが、どのようにすれば良いのか まったくわかりません。 ACCESSでの構築が簡単なのかもしれませんが、データ量がそれほど多くないことと 職場にACCESSがないため、可能であればEXCELで構築したいと考えています。 私自身、プログラムの知識がなく、EXCEL VBAのサイトを確認するのですが、いまいち どうすれば良いのかわかりません。 ぜひご教授の程よろしくお願いします。 3つのシートの構成は以下になります。 【入力シート】 A1セルに文字列（A～Z）入力欄 【○○データシート】 A列に A～Z の文字列 B列に 001～100までの数値 C列に 001～100までの数値 D列に 001～100までの数値 E列に 001～100までの数値 例） A列 B列 C列 D列 E列 1 A 001 2 B 001 002 003 004 3 C 003 4 D 002 003 【▽コマンドシート】 A列に 001～100までの一意の数字 B列に 文字列（コマンド） C列に 文字列（コマンド詳細） 例） A列 B列 C列 1 001 xx blank 2 002 xxx△ xxx 3 003 xxxx x○ 4 004 xxxxx xxx 【欲しいVBA】 １、入力シートのA1セルに○○データシートのA列に該当するA～Zの 文字列を入力。 ２、○○データシートのB列～F列までの数値を参照 ３、2の数値において▽コマンドシートのA列に記載ある番号と紐づけを行い、 ▽コマンドシートのB列、C列に記載がある文字列を入力シートのB列、C列にコピー ※コピー時は▽コマンドシートの書式や体裁情報も含めてコピー。 例としては以下になります。 入力シートの A1セルにDを入力した場合は 入力シート A列 B列 C列 1 D xxx△ xxx 2 xxxx x○ 3 以上、ご教授よろしくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- Excel マクロ・VBAの印刷方法について
急ぎの回答です！！ 関数式の入っているセル（空白表示）を印刷範囲に入れずに印刷する方法を教えてください。 別シートのデータを関数で引っ張てきてひな形のセルに表示しています。 行→$1:$6 列→$A:$Agは印 刷タイトルに設定。 Ａ列7行目から1.2.3... とNo.が入っており、 Ｂ.～Ｊ. 列7行目からはデータが最終の50まで入力してます。（ 関数式=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1)) ） Ｋ.～AG.列7行目からは書式データ（同じ文面の繰り返です。最終の50まで入っています）Ｂ～Ｊ列の7行目から関数（データ）=IF(COUNTIF(コード,$S$1)<ROW(A1),"",OFFSET([元リスト.xlsx]商品一覧!A1,MATCH($S$1,コード,0),1))をコピぺと一部を変更しセルへ入力して別シートからデータを引っ張てきてます。この関数だと該当する値がない場合はセルは表面上は空白セルに見えますが、セルには数式が入っている状態です。セルデータの最終行を習得し印刷に設定すると関数入力されているところで最終行と認識し、関数式を入れている50行まで印刷してしまいます。 したいことは、データが表示されている30行までなら30行まで印刷という感じにはできないでしょうか？ シートを様式一枚ずつ作成しており、1ブックには20シートずつ保存しています。そしてこのブックはおよそ30ブックあります。 1ブック内の全てのシート（20シート）に反映できるようしたいです。 ※30行までデータが表示されている場合、C～Ｊには途中とちゅうで空白欄がありますが、Ｂ列は30行全てデータの表示（該当する場合）されます。 Excel マクロ VBA に詳しい方回答お願いします！ B７からはB56まですべて関数式を入力しています（最大50までデータが表示されるように） シート枚数と、元のデータ数が行で7000程とかなり多く、このような関数式になりました。できればマクロ、VBA等での処理が望ましいです（時間がないので＞＜）よろしくお願いいたします！！！
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございました！