• ベストアンサー

オートフィルターの結果ごとに自動で印刷したいです

Excelで添付のようなリストから月末に ・A列の請求期間をフィルター（基本月ごと、1月1日～1月31日迄等） ・Ｂ列の得意先ごとにフィルター結果の上から1件ずつレ点を入れ得意先1件ずつ印刷 上記のような作業を毎月行っています。 Ａ列の日付は顧客ごとに末締めや15日締め等あるので手動で問題無いのですが、Ｂ列の得意先ごとに1件ずつチェックを入れて印刷するのが手間なので日付フィルター後にボタン1発で全得意先分を順番に印刷できるようにしたいです。 どなたか知恵をお貸し頂けませんでしょうか。

この投稿のマルチメディアは削除されているためご覧いただけません。

質問者が選んだベストアンサー

  • ベストアンサー
  • SI299792
  • ベストアンサー率48% (715/1478)
回答No.1

全く同じ質問がYahoo 知恵袋にあります。 https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11297115316 ここのプログラムをご利用ください。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • オートフィルタ後の印刷がおかしい

    おはようございます。ちょと困っていますので、どなたかご教授ください。 エクセルでオートフィルタを使い、印刷をかけようとしているのですが、印刷プレビュー時ですでに、なにかおかしいです。 １００件ほどあるデータの中から、オートフィルタで３件ほど抽出しました。 抽出されたデータは、縦の番号から言うと１、９９、１００のデータだったのですが、印刷プレビューでみると、一枚目にタイトルと１の列。２枚目に９９と１００に列でプレビューされます。 実際印刷しても、２枚に分かれてしまっていました。 なんか、抽出されなかったデータが非表示というか、空白として印刷されている気がします。 １件目の下は３／４ほど空白が広がっていますし。 色々調べてはみたのですが、「条件で抽出して印刷するならオートフィルタ！」みたいな事がでてたりしますし、このような現象になった！とは書いてないみたいです。。。 パソコンとかＯＦＦＩＣＥのヴァージョン等によっておこるのでしょうか？それとも私が根本的に間違っているのでしょうか？ どなたか、教えてください。「こうでは？」とか「こうしたら？」っていう意見もお待ちしております。 原因もしりたいですが、まずは解決が先だとも思いますので。よろしくお願いします！！

  • オートフィルターをかけ得意先項目のみ全て連続印刷

    コード、得意先、銀額等々列がありフィルターをかけて、得意先を選択をして印刷をしていますが時間短縮したく自動で印刷したいのですがマクロ初心者にはよくわからず範囲をどのように設定したらいいかご教示お願いします。

  • オートフィルタの結果のみで計算を行うには？

    以下のようにＡ列に種類、Ｂ列に個数があったとします。 Ａ列　　　　Ｂ列 種類１　　　1 種類１　　　2 種類２　　　1 種類１　　　4 種類３　　　3 種類２　　　2 ・　　　　　・ ・　　　　　・ ・　　　　　・ オートフィルタで種類１のみを抽出しても、Ｂ列全体の合計(=sum(B:B))では、全ての種類の合計が出てきてしまいます。 オートフィルタでの抽出結果のみを計算式に反映させることは出来ないのでしょうか？ ちなみに実際にやりたいことは、この種類に該当する物が多く、かつ計算式もSUMなどの単純な物だけではないため、SUMIFを使う、と言った対応は難しいので、このような質問をさせていただきました。

  • 「オートフィルタ」の作業を自動化したいのですが…

    「Ｅｘｃｅｌ」のオートフィルタを使って、 自動的にリストを上から順番に抽出していって、 印刷したいのですが…。 具体的には、「部署名」が入っているＡ列 （Ｂ列以降に「名前」等）を、 オートフィルタを使って部署ごとに グルーピングした後、印刷をします。 これを部署の数だけ順番に繰り返していくのですが、 部署名がとても多いので、 それを自動化したいのですが…。 マクロはよく分からないので、 「マクロの記録」ボタンを使ってしか 出来ないのですが、それだと、一度 全部の署名を「グルーピング→印刷」 して、記録させなければいけませんよね？ 部署名の変更・追加等にも対応出来る 良い方法はないでしょうか？ 宜しくお願い致します。

  • エクセルのオートフィルタオプションで日付を出したい。

    いつもお世話になっています。エクセルで、７０人の名簿があるので、オートフィルタで「１月生まれ」の人だけを抽出したいです。 Ａ：　「生年月日」という列に、７０名それぞれの生年月日が入っている。１９８０年の７月２６日生れなら「１９８０／７／２６」と入力。 Ｂ：　オートフィルタオプションで「（／１／）を（含む）」と条件づけるが、１件も抽出できない。 Ｃ：　でも、検索で「（／１／）の（値）」を検索すると、ちゃんとヒットする。 あ：　セルの表示形式→日付を「１９８０年７月２６日」に変更してみる。 い：　オートフィルタオプション「１月を含む」ではやはり１件も抽出できない。 う：　でも「１月」を検索すると、ちゃんと１月と１１月生まれの人がヒットする。 どうしても生まれ月ごとに抽出したいと思います。やはり、生年月日を「年」「月」「日」と別の列に分解するしか方法はないのでしょうか。どうかよろしくお願いします。

  • 得意先の締日により該当月を変更するには

    得意先により25日締め、27日締め、月末締めがあります。25日締めはA社のみ、27日締めはB社、C社の2社、後は全部月末締めです。 会社コードがA社で注文日付の日付数字が25以下なら当月、25以上なら翌月、27日締めの2社も同様にコードから27以下なら当月、27以上なら翌月、それ以外はすべて当月とする関数文が作れればと考えています。 そこでAR1からAV1まで上記条件を満たすために必要と思われる、注文日付、会社コード、日数、当月、翌月を求める関数をいれてみました。 A社コード：10090　B社コード：10097　C社コード：10098 AR1に注文日付が入ります。(例: 2018/12/23) 　AS1に会社のコードが入ります。AT1には=DAY(AR1)の関数が入り日付の数字が入ります。 AU1には該当月を求める関数=MONTH(AR1)、AV1には翌月を求める関数=EDATE(AR1,1)が入ります。　その結果を求める関数をAW1当たりに入れたいと考えています。 あくまでも締日による該当月が求められれば良いので、もっとセルを使っても問題ありません。 もしこれが無理であれば、日付マスタ（シート名）を使う事は可能でしょうか。日付マスタはA列のA2からA150まで得意先名、Ｋ列のK2からK150まで該当締月が自動で入る関数が入っています。途中E列には会社コードが入っています。 月末締めは=EOMONTH(TODAY(),0)、25日締めは=EOMONTH(TODAY(),-1)+25が入っています。27日締めは同様に=EOMONTH(TODAY(),-1)+27が入っています。 このマスタにうまく締日による該当月の数字列を加えることはできないでしょうか。

  • Excelのオートフィルタについて

    Excel2002にて、ある列の表示形式が「日付」になっているのですが、オートフィルタによるオプションの検索にて、検索ができません。 例えば、その列のあるセルに1月26日とあるのですが、オートフィルタのオプションでの検索に「1月」とか「26」とかにして、「その文字を含む」で検索をかけてもでてこないのです。 やりたいことは、1月だけの情報をオートフィルタにて表示させたいのですが、どうすれば、うまく検索してくれますか？

  • オートフィルタを変更しフィルタ付け

    Ｅｘｃｅｌ2000使用。 今あるシートに縦が3段目(行カラムが３から始まる）から横にＡ列からＨ列までの表があり、 その内６つの列Ａ、Ｂ、Ｃ、D、Ｅ、Ｆ列にオートフィルタでフィルタをつけています。 このうちＢ，Ｄのフィルタを削除したいのですが、うまくいきません。 とびとびでかけることは可能ですか？（Ａ，Ｃ，Ｅ列のみフィルタかけ） そのための操作を教えてください。

  • 細長いデータを二列に印刷したい

    エクセルの表で、 セルＡ　得意先コード（数字４桁） セルＢ　得意先名 というのがあります。 Ａ４サイズの用紙に印刷する時、左半分しか印刷されずに何枚にもになってしまうので、二列に印刷したいのですが、どうすれば良いでしょうか？ 得意先コードは月に十件位の更新があり、順番に並んでいます。 最初は２枚目、４枚目等、偶数ページのデータをセルＣ・Ｄに貼り付けて印刷をしようかと思ったのですが、新しいデータを挿入するのが大変になりそうなので、データとしては昇順に１列で表して、印刷だけ２列にしたいのですが、何か良い方法はないでしょうか？ 宜しくお願いします。

  • オートフィルタ機能のデータがひっかからない

    追加でデータを増やしたら 増やしたデータの部分の （例えばA列に日付が入っているとして） A列のオートフィルタ機能の▼に 増やした日付が抽出選択しとして 認識してもらえませんでした。 なぜでしょうか？ よろしくおねがいします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する