• ベストアンサー

excelの印刷用マクロ。

excelで分からない事があり困っています。 横がA～I列、縦がＢ列のB-1から文字が入力されている最後の行までの範囲を選択して、印刷するマクロを作りたいのですが、どうすればよろしいでしょうか。印刷したいシートには、オートフィルタが掛かっている場合もあります。その場合は、その状態のまま印刷出来る様にしたいです。 どなたか分かる方が居ましたら回答お待ちしています。 よろしくお願いします。

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

  • ベストアンサー
  • merlionXX
  • ベストアンサー率48% (1930/4007)
回答No.1

こんな感じでしょうか。 Sub test01() Dim x As Long With ActiveSheet x = .Range("B1").End(xlDown).Row .PageSetup.PrintArea = "$A$1:$I$" & x .PageSetup.FitToPagesWide = 1 .PageSetup.FitToPagesTall = False ActiveWindow.SelectedSheets.PrintOut .PageSetup.PrintArea = "" End With End Sub

akito-1
質問者

お礼

ありがとうございます。できました！！

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルで閉じるときのマクロ

    あるエクセルファイルがあり、 その一枚のシートにはオートフィルタ （A～Z列まで）を使用しています。 【質問1】 ファイルを保存して閉じる際、 オートフィルタで抽出したものを 「すべて」に戻す、 つまりなにも抽出されていない（＝左端の行番号が黒字） に戻すマクロはどこにどのように書けばよいでしょうか？ オートフィルタを戻すマクロは、 'オートフィルタのあるシートを選択 Sheets("買取リスト").Select 'T列のオートフィルタを「すべて」にする Selection.AutoFilter Field:=22 というところまでは理解できました。 【質問2】 上記のマクロを Sheets("顧客リスト") から、Sheets("商品リスト")へ移動した際、 ボタン等を使用せずに、 （ただ、下のタブをクリックするだけで） 実行させることは可能でしょうか？ 可能であれば、どこにどのように記述すれば よいでしょうか？？ 　よろしくお願いします。

  • ★エクセルマクロコード教えていただけますでしょうか

    マクロのコードを組みたいと考えておりますが、 ほとんど初心者のため、お詳しい方の力を貸していただきたい次第でございます。 m(__)m ○オートフィルターーでデータをソートし、そのソートごとのシートを自動作成。 　その後、そのシートを各フォルダに保存したい。 あるデスクトップ上にあるエクセルシート「管理DB」の「sheet１」にある管理データ A列（グループa～e）、B列（登録日）、C列（ステータス）によって構成されているシートで、 １．A列「グループ」「a」でオートフィルター ２．その中でB列、「登録日」が「2012年9月」以前のものをオートフィルター ３．その中で、さらに「ステータス」が「在庫中」のものをオートフィルター ４．3段階のオートフィルター後にできた結果を、別のエクセルシートとして作成。 ５．そのエクセルシートをデスクトップにある「フォルダX本部」に保存。 １～５の一連の作業をグループがなくなるまで繰り返したいと考えています。 １．A列「グループ」「b」でオートフィルター ２．その中でB列、「登録日」が「2012年9月」以前のものをオートフィルター ３．その中で、さらに「ステータス」が「在庫中」のものをオートフィルター ４．3段階のオートフィルター後にできた結果を、別のエクセルシートとして作成。 ５．そのエクセルシートをデスクトップにある「フォルダY本部」に保存。 ※一連の作業の中で、グループ名と、シートの保存先が変わる以外、この作業の繰り返し。 以上の作業を実行するマクロを組むことは可能でしょうか。 また、マクロのコードを教えていただけると幸いです。 マクロについてお詳しい方、何卒よろしくお願いいたします。

  • エクセルのマクロ（検索）

    お世話になります。 エクセルのマクロで以下の処理をしたいのですがアドバイスください。 Excel2002です。 以下は実際の作業を簡略化したものです。 F列が●●という文字列で、かつE列が空白以外の行を検索した結果、 →対象行がない場合、【対象行はありません】というメッセージボックスを出し、ＯＫをクリックしてマクロを終了させる →ある場合、１行目にオートフィルタを設定し、F列が●●という文字列で、かつE列が空白以外の行を表示させる（オートフィルタの機能で）ここでマクロの動作を一時停止させ、【続行】or【終了】が選択できるメッセージボックスを表示させる。 ここで【終了】をクリックすればマクロを終了させる。 【続行】をクリックすれば、いまオートフィルタで表示されている行のD列を値をすべて-1に変更する。次にオートフィルタを解除し、F列にある●●というセルをすべてクリア（空白）しマクロを終了させる。 アドバイスお願いします。

  • エクセルのマクロで、知恵をお貸しください。

    エクセルのマクロで、知恵をお貸しください。 A１　Ａ２　Ａ３　Ａ４　Ａ５にあるオートシェイプ（矢印） 　→ 　→ 　→ 　→ 　→ を範囲選択で、 (1)Ｂ１以降横につなげるマクロは、できますか。 　　→→→→→ (2)Ｂ１とＢ２に交互に（列は重ねず）並べるマクロは、可能でしょうか。 　　→　→　→ 　　　→　→

  • エクセルのマクロのことです。

    いつも、お世話になっております。 エクセルでシート１にデータがあります。 シート２のA1に入力した文字を含む行をオートフィルタで抽出する。 これをマクロを使ってできるでしょうか？ 宜しくお願いいたします。

  • EXCELの「行列を入れ替える」マクロについてどなたか教えていただけないでしょうか？

    EXCELの「行列を入れ替える」マクロについてどなたか教えていただけないでしょうか？ 下記のようにならんだＤＡＴＡがあります。 　　A列　　　B列　　C列　　D列　　E列 (1行)2002/12/17　15240　15280　15220　15220 (2行) (3行) (4行) (5行)2002/12/18　15250　15250　15210　15210 (6行) (7行) (8行) (9行)2002/12/19　15220　15310　15220　15310 (10行) (11行) (12行) (13行)2002/12/20　15220　15260　15210　15230 (14行) (15行) (16行) (17行)2002/12/24　15300　15310　15270　15310 (18行) (19行) (20行) (21行)2002/12/25　15300　15340　15300　15600　 . . . . . . . . . . . . . . . . . . . . . . . と,このようにDATAは日付の横に数値が４つずつ横に並んでおりますが、この４つの数値をその４つ目の数値の真横のF列から縦に４つ並べたいのですが、一気にできるマクロがないものでしょうか？下記のようにです。 　　A列　　　B列　C列　D列　E列　　F列 2002/12/17　　　　　　　　　　　　15240 　　　　　　　　　　　　　　　　　15280 　　　　　　　　　　　　　　　　 15220 　　　　　　　　　　　　　　　　　15220 2002/12/18　　　　　　　　　　　　15250 　　　　　　　　　　　　　　　　　15250 　　　　　　　　　　　　　　　　　15210 　　　　　　　　　　　　　　　　　15210 2002/12/19　　　　　　　　　　　　15220 15310 15220 15310 　　　　　　　　　　　　　　　　　　. . . 　　　　　　　　　　　　　　　　　　 といった感じに一気にマクロで処理してしまいたいのです。DATAはかなりの行数あり、すべて３行の間隔があります。日付の横に４つの数値が規則的に並んでいるというものです。何回でもマクロボタン一発で４つの横に並んだ数値のみを縦に並べた４つの数値にしたいのです。つたない説明で大変申し訳ありませんが、どなたかわかる方お教えくださいませ。

  • 【マクロ】オートフィルター内の全データが削除される

    こんにちは、質問させていただきます。宜しくお願いします。 [エクセル] 2007 [内容] オートフィルタをかけ任意のデータのみ消したいのですが 全てのデータが消えてしまいます。 [詳細] A1～C5までデータが入っているのもだと仮定します。 (実際には項目があってフィルタがきちんとかかるものとします。) 　　　A　　　B　　　C ----------------------- 1　　○　　　2個　　\10 2　　△　　　1個　　\5 3　　×　　　3個　　\15 4　　○　　　1個　　\20 5　　○　　　4個　　\5 オートフィルタをかけA列を基準として「○」を選択します。 そして選択した「○」を含む行(1行・4行・5行)を削除し 2行・3行目が残るようにしたいです。 その一連をマクロにして処理したいのですが… 1行から5行のすべての行データが削除されてしまいます。 ＜マクロ作成＞ マクロを記憶する。 ↓ 手動でオートフィルタをかけ、「○」を選択して行を削除 ↓ マクロの記憶を終了。 ↓ マクロ文の削除する行範囲をA1からC5に書き換え ↓ マクロ実行 ＜マクロ作成文＞ 　Selection.AutoFilter Selection.AutoFilter Field:=1, Criteria1:="○" ActiveSheet.Range("A1:C5").Select Selection.Delete Shift:=xlUp ※エクセル2007のバージョンによっては選択した「○」のみ 削除されるPCもありましたので、何か設定があるのかな？と 思いましたが…解決しませんでした。 何か良い案があれば教えていただきたいです。 宜しくお願い致します。

  • エクセル2007で行にオートフィルタをかけたい

    エクセル2007で行データにオートフィルタをかけたいのですが できません． 範囲をどのように選択してもかならず列データにオートフィルタが かかってしまうのですが どうにかして行データにオートフィルタをかけたいです． どなたかご教授願います

  • エクセルのマクロについて教えて下さい。

    皆様よろしくお願いします。シート１に５桁の管理番号が不規則に並んでいます。およそ２３０個の管理番号があります。シート２には管理番号とデータが一覧表になっています。シート１の管理番号の下２行にシート２を参照する式（=sheet2!H3および=sheet2!W3)を手打ちで入れています。エクセルのマクロを使ってシート１の管理番号の下に値を入れるのではなく式を入れることはできますか。なお、シート１は横のセルが８０、縦のセル１５０の中に管理番号が不規則に並んでいます。シート２にはB列に管理番号H・W列にデータが並んでいます。このようなファイルが８０位ありますので手打ちではなくマクロで自動化を図りたいと思います。officeXPを使用しています。よろしくお願いします。

  • エクセルの印刷マクロについてご教示下さい。

    現在、 　　　　シート１のＡ列に番号（ＮＯ１～２００）を、Ｂ列からＧ列までには各番号のデータを入れて 　　　　整理したものを、シート２で作成した印刷様式に、印刷マクロ（年賀状の宛名印刷を修正 　　　　したもの）を使って印刷を行っていますが、マクロを実行するとデータがない番号も印刷 　　　　（カラ印刷）していますので、困っています。 　　　 　　　　印刷データがない番号（例えばＢ列にデータがない）については、印刷しないようにする 　　　　には、どのようなコードを入れればよいのでしょうか。 　　　　 　　　　ＶＢＡをはじめたばかり（素人）ですので、よろしくお願いいたします。（エクセル2003使用）

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する