- 締切済み
VBAによる自動印刷について
エクセル初心者です。VBAのことで教えていただきたいです。 VBAを使って項目ごとにオートフィルタ→抽出されたものを印刷というのを、したいのですがどういったコードを書けばよいか、調べてみましたがしっくりくるものがありませんでした。 イメージ的には名前毎にフィルターをかけて、 その結果を印刷したいのですが、どのようなコードになるのでしょうか。 全部で2000行くらいあるので、いちいちフィルターをかけて→印刷 を手でしていると時間がかかります。(名前も重複なしで1000以上あるので、、、) フィルター→印刷、次の名前でフィルター→印刷を自動化するには どうすればよいのでしょうか。 説明が下手ですみませんが、できれば実際のどういったコードになるのかを教えていただきたいです。
- みんなの回答 (3)
- 専門家の回答
関連するQ&A
- VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか
VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか?ループコードって何? エクセルで作った納品書、件数が数百件あっても自動的にある件数全て打ち出せるようにしたいのですが。。。
- ベストアンサー
- Visual Basic
- オートフィルタで抽出したデータの行を削除(VBAで記述)
Excel2000を利用しています。 VBAで、オートフィルタを利用した作業を記述したいと思っています。 データは一行目にタイトルが入っています。 オートフィルタで抽出したデータを その行まるまる削除したいと思っています。 その時、タイトル行(1行目)を除いて オートフィルタで抽出された行のみ選択して 削除する、という場合、どのように記述すればよいのでしょうか。 自分では全然分からないので 教えてください、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- 【VBA】複数の条件、項目で別のシートへ1行ずつ
VBAで質問です とあるデータの一覧があります (サンプルでは「名前」「住所」「埋蔵」「状況」としています) このデータを、それぞれの項目で複数の条件(3件以上)で抽出し、 「住所」名のシートに順番に貼り付けていくのを自動で行う マクロがつくりたいのですが、どうにもうまくいきません オートフィルタでは2件までしか抽出できないので条件が3件以上になると 抽出ができなくなってしまいます どうかご教授のほどよろしくお願いいたします
- ベストアンサー
- その他MS Office製品
- オートフィルタオプションをVBAで指定したい
表中に、このような列があるとします。 肩ロース100g 肩ロース500g ヒレ100g ヒレ250g ヒレ500g レバー100g レバー250g 他の列には注文日や個数、小計金額があるとします。 オートフィルタをかけて、フィルタオプションで「○○で始まる」を指定し、例えばレバーの行のみを手作業で抽出することはできます。 この動作を、フィルタオプションでの設定を経由せずに行えないものでしょうか? たとえば、別の列などに「肩ロース」「ヒレ」「レバー」が記載されていて、そのデータを元にオートフィルタの▼をクリックすると「肩ロース」「ヒレ」のように抽出条件データが表示される、というふうには出来ないものでしょうか? VBA等を使用しても構いません。 抽出項目は固定ですので、コード中に記述しても構いません。 動作が要望を満たせば、オートフィルタを使用しなくても構いません。 フォームウィンドウで抽出項目を指定し、その項目をCriteria等に設定してフィルタオプションでも構いません(この方法は自力で出来そうですが)。 良い方法があれば、お教え下さい。
- ベストアンサー
- オフィス系ソフト
- エクセルのシート上でオートフィルターを使った際に関する、VBA上でのコードの記述について
大変稚拙な質問の仕方をお許しください。 エクセルのシート上で、オートフィルターを使ってデータを抽出した前提で、VBAを使ってある作業をするためのマクロを組もうと思ったのですが、抽出されて表示された一番最初データの行を確定させるコードの記述が思い浮かびません。なにかいい方法はないでしょうか?よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBA 印刷について教えてください
シートにデータを日ごと入力しています。そのデータを印刷をかけたいのですが、その日ごとに件数が異なります。 1行目は、項目 その下からデータになります。 件数は200件の時もあれば、300件のときも・・・ そこで、VBAを利用して印刷をしたいのですが、1枚に40件印刷をしたいのです。 1行は項目、40行データ よって一枚に41入る事のなります。 見出しの設定はわかります。 2枚目は 42から82 3枚目は 83から122 という感じです 行は、kまで 用紙はA4横です どのようにVBAを組めばよろしいでしょうか? よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルの名簿から、団体ごとに抽出して自動印刷したいのですが
毎回参加者が異なる名簿(エクセルデータ)があります。 B列には団体名が入っています。 なお、1行目はタイトル行で、名簿ごとに20行~150行くらいのボリュームになります。 このような状況下で、団体名ごとに抽出して自動で印刷したい(タイトル行も込みで)のですが、どのような関数またはマクロを作成すればよろしいのでしょうか。 マクロの使用経験は、標準モジュールの簡単な記述を修正してフォームのボタンに登録して使用したことがある程度です。 なお、これまでは、改ページを一つずつ設定するか、オートフィルターで一つずつ抽出して印刷していました。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル VBA 連続行コピー?
オートフィルターで抽出後、最終行へ飛び、そこから最終行含む上に連続する5つの行をコピーしたいです。 現在は、最終行へ飛ぶコードまでは書いたのですが、そこから5行コピーするコードが分かりません。 宜しくお願いします。
- 締切済み
- オフィス系ソフト
- 「オートフィルタ」の作業を自動化したいのですが…
「Excel」のオートフィルタを使って、 自動的にリストを上から順番に抽出していって、 印刷したいのですが…。 具体的には、「部署名」が入っているA列 (B列以降に「名前」等)を、 オートフィルタを使って部署ごとに グルーピングした後、印刷をします。 これを部署の数だけ順番に繰り返していくのですが、 部署名がとても多いので、 それを自動化したいのですが…。 マクロはよく分からないので、 「マクロの記録」ボタンを使ってしか 出来ないのですが、それだと、一度 全部の署名を「グルーピング→印刷」 して、記録させなければいけませんよね? 部署名の変更・追加等にも対応出来る 良い方法はないでしょうか? 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- VBAでオートフィルタの可視セルクリア後空白行削除がうまくできません
VBA初心者です。 オートフィルターで抽出した行を削除したくて、以下のように書いたのですが、最後の一文でエラーになってしまいます。 ◆エラー内容◆ 実行時エラー1004 重複する選択範囲に対してそのコマンドを使用することはできません。 ◆書いたVBA◆ Range("A2").Select Selection.AutoFilter Field:=1, Criteria1:="=1111", Operator:=xlAnd 'オートフィルターで「1111」を抽出 Dim r As Range Set r = Range(Range("A3"), Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible) r.ClearContents 'A列の可視セルの値をクリア Range("A2").Select Selection.AutoFilter 'オートフィルターの解除 r.SpecialCells(xlCellTypeBlanks).EntireRow.Delete 'A列が空白の行は削除→ ココがエラーになります --------------------------------------------------------- 元のファイル構成は2行目に項目名で、3行目からデータが入っています。 いろいろ調べたのですが、よくわからなかったので教えていただければ 幸いです。 宜しくお願いします。
- 締切済み
- Visual Basic
- アマゾンIDを使用して支払いを求められた理由や問題の詳細について質問します。ソースネクストの製品に関する問い合わせです。
- 購入したZEROウイルスセキュリティがWindows11では使用できなかったため、OS拡張を購入した際にクレジットカードが使えなくなり、アマゾンIDに誘導されました。ソースネクストのマイページには購入履歴が記録されていません。
- アマゾンを騙った詐欺なのか、ソースネクストに問い合わせ窓口が見つからないため、質問いたします。ソースネクストの製品・サービスについての質問です。