• ベストアンサー

エクセル マクロ

mar00の回答

  • mar00
  • ベストアンサー率36% (158/430)
回答No.2

印刷範囲に追加ではなくて印刷しなくていい行を非表示にしています。 D列以降にもデータがあるのであればA~C列を印刷範囲に設定して下さい。 Sub Macro1() For i = 4 To Cells(Rows.Count, "A").End(xlUp).Row Step 5 Rows(i & ":" & i + 1).EntireRow.Hidden = True '行の非表示 Next i ActiveSheets.PrintOut '印刷 Cells.EntireRow.Hidden = False '行の再表示 End Sub

Sorara2013
質問者

お礼

わかりました、ありがとうございますm(_ _ )m

関連するQ&A

  • エクセル 選択するマクロ

    a列に日付があります。 c列の、a列のx日から6日後までの計7日間の行 (ただし、6日後の日付がa列にない場合、6日未満の一番近い行) を選択するマクロの構文を教えてください。 わかりにくい表現ですみません… x日を2013/01/01とした場合、選択範囲は画像のとおりです。 どうぞよろしくお願いします。

  • EXCEL マクロで変化する印刷範囲を設定したい

    複数年分集計したEXCELの表の中からある年(度)のデータをマクロで印刷範囲を設定したい!です。 ・EXCELのシートはA~AK列までのデータです。 ・A4~AK8までが「タイトル行」です。 ・A1列に「2014/7/1」等といった日付のデータが入っています。 ・上記「タイトル行」とある年(度)のデータをマクロで自動に選択して  印刷範囲を設定したいです。下記は、2014年のデータを印刷範囲とした  マクロです。どの部分を修正すればある年のデータを抽出するマクロに  できるでしょうか?教えてください。宜しくお願いします。 Sub 印刷範囲() ' ' 印刷範囲 Macro ' 印刷範囲を指定する ' ' Range("A4:AK8").Select ActiveSheet.PageSetup.PrintArea = "$A$4:$AK$8" ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 2 ActiveWindow.SmallScroll Down:=-39 Range("A170:AK220").Select ActiveSheet.PageSetup.PrintArea = "$A$4:$AK$8,$A$170:$AK$220" Range("U208").Select End Sub

  • エクセルのマクロで範囲を選択するマクロ

    教えてください。 下記の通り、例えばA列の2~5にデータが入っている場合に、B2~D5の範囲を選択するマクロを教えてください。 A列のデータが入っている行は可変です。   A B C D E 1  2 6 3 7 4 9 5 10 6 7

  • エクセルの条件付き書式設定マクロについて

    エクセルの条件付き書式設定マクロについて A列からH列まで文字や数字が投入されています。 データが5,000行くらいあって、50行に1回くらい不定期で空白の行が出てきます。 データが入っている全ての範囲において、「C列が空白以外の場合に、 同じ行のA列からH列のセルの上と下を破線?(.Weight = xlHairline)左も右も縦線は実線? (.Weight = xlThin)にする」という条件付き書式を設定したいのですが、マクロが 上手く組めません。 ひとつのセルの条件付き書式の設定はマクロを組めるのですが、 A1:H5000というような広範囲で条件付き書式の設定を組むのが上手くいきません。 教えていただけないでしょうか。

  • エクセル/マクロ/セルの選択について(初心者です)

    最近マクロ機能を使い始めた初心者です。 マクロの記録を使い、ちょっとだけVBEで触っています。 以下のような場合、なんと記述すればよいでしょうか? 詳しい方にはとても簡単だと思われ、お恥ずかしいですが、 教えていただけましたら幸いです。 【実現したい内容】 あるセル範囲を指定している時に、実行すると、 指定していた範囲の行の、A列のみが選択される ※例えばB1:B3、またはC1:C3、またはD1:E3 のをセル範囲を選択している時に、マクロを実行すると いずれの場合もA1:A3を選択する。 表現が分かりにくいでしょうか…?

  • エクセル excel 複数範囲選択マクロ

    a列2行目からa列の値がある最下行 と c列2行目からc列の値がある最下行 という範囲を同時に選択するマクロの構文を教えてください。

  • Excel マクロ

    マクロで一部分だけ範囲選択をかけたいのですが、 A列から指定行までと1行目の最右列までを範囲選択をしたいのですができるのですか? 出来ましたら、コードを教えてください。 コードの記述は下のとおりです。 Range("A1").Select Range(Selection, Selection.End(xlDown)).Select a1 = Range("xfd1").End(xlToLeft).Select Endcolumn = Application.WorksheetFunction.Max(a1)

  • Excelマクロの組み方を教えてください。

    マクロ初心者です。 見積のフォーマットを作成しているのですが、 どなたかマクロの組み方をご教授いただければありがたいです。 見積のフォーマットは下記のようになっております。 A   B   C   D  E   F 番号 製品名 数量 単価 合計 製品カテゴリ 製品カテゴリは、例えば食料品、衣料品といったものを選択してもらうように、 入力規則でリストから選んでもらうようになっています。 製品カテゴリごとでいくらの合計金額になるのかを集計したいので、 C列に数量が入っている場合は必ず製品カテゴリを選択して欲しいのです。 印刷マクロはもう既に組んであり、そのマクロボタンを押したときに、 C列に数量が入っていて、同じ行の製品カテゴリの欄が未入力の場合に、 そのマクロが実行されない(エラーメッセージが出る)マクロを組みたいと考えております。 ※ちゃんと製品カテゴリが入っていれば、そのままメッセージなども出ずに印刷されるようにしたいです。 お忙しいところすみませんが、どなたかお力をお貸しいただければと思います。 宜しくお願い致します。

  • excelの印刷用マクロ。

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

  • エクセルのマクロについて

    エクセルのマクロについて C列の最後の全角2文字が『林檎』の場合、G列のどこかに『林檎』の文言が入っています。 もし入っていない場合のみメッセージを入れる。 こんなマクロできますか?    C列       G列 5行目 ああああ林檎 いい林檎いいい ――――――――――――――――――    C列       G列 6行目 いいいい林檎 いいいいい蜜柑 ――――――――――――――――――    C列      G列 7行目 うううう林檎 林檎いいいいい ――――――――――――――――――    C列       G列 8行目 うううう蜜柑 林檎いいいいい ↑この場合6行目G列に『林檎』の文言が入っていないので『6行目』とメッセージ ※8行目はC列の最後に『林檎』の文言がないので特にメッセージはなし。 列(\"5:65536\")の範囲でお願いしますm(><)m