• ベストアンサー

Ｅｘｃｅｌ　範囲指定印刷するマクロ（初心者）

複数のセルをドラッグし、コマンドボタンを押すと範囲指定されたセルが印刷範囲の設定となり、印刷するマクロを組みたいのですがどのような記述になりますか？Ｐｒｉｎｔ＿Ａｒｅａを使うことまではわかるのですが・・なお範囲指定するセルの行列番号は固定ではなく、指定する範囲が随時異なるものとします。 初心者ですいませんがお願いします。

  • 5244
  • お礼率66% (92/138)

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

  • ベストアンサー
  • ham_kamo
  • ベストアンサー率55% (659/1197)
回答No.1

こんな感じでしょうか。 Sub Macro1() 　ActiveSheet.PageSetup.PrintArea = Selection.Address End Sub

5244
質問者

お礼

実行後ＶＢＡの画面で記述させていただいた以外にログみたいなのがずらずらと記述されていたので試しにそれを消して実行してみたら、その後は問題なくスンナリと実行出来ました。私の方で何かしらの操作ミスがあったようです。お詫びいたします。 ありがとうございます。

5244
質問者

補足

素早い回答ありがとうございます。 さっそく試したところ、一回目はすんなり出来たのですが、２回目に別のセル範囲を指定しマクロを実行したところ、「実行時エラー２８　スタックが不足しています」とのメッセージが出て出来ませんでした。 何か解決策があるのでしょうか？

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

関連するQ&A

  • エクセルで印刷範囲を自動で指定し、印刷するマクロ

    エクセルの表の中から、ある特定の文字が入っている セルを探し、そのセルから「下に３、右に２」の範囲 （文字が入っているセルは含まない）を自動的に範囲 指定して印刷するマクロをつくりたいのですが、どうすればよいでしょうか？ たとえば、「○」が入力されているセルが A2だとすればA3からC5を自動的に範囲指定して印刷 するようにしたいのです。 どうぞよろしくお願いします。

  • Excelマクロで印刷範囲の指定をしたい

    Excelで一覧表を作成し、 『印刷A3』と『印刷A4』というボタンを作り、 それぞれ印刷範囲が異なるようにマクロを組みたいと思い、『印刷A3』の場合は下記のマクロで問題ありませんでした。 【印刷A3】 ------------------------------------------------- Sub 印刷A3_Click() Worksheets(7).PageSetup.PrintArea = _ Range("A6").CurrentRegion.Address With Worksheets(7).PageSetup .Orientation = xlLandscape .PaperSize = xlPaperA3 .Zoom = 63 End With Worksheets(7).PrintOut Preview:=True End Sub ------------------------------------------------- セルA6以降の入力されているセルを選択できるのですが、『印刷A4』の場合は、列の範囲を23列までとし、23列目以降は印刷範囲外としたいです。 （列は最大で33列まであります） 行は『印刷A3』と同じように、入力されている全てのセルを範囲としたいです。 マクロ初心者のため、教えていただけると助かります。 よろしくお願い致します。

  • マクロが実行されるセル範囲の変更を簡素化したい

    excel 2016を使っています。 例えば、ボタンを押すと指定したセルA1～A10までに入力されている数値を昇順に並べ替えるマクロがあるとします。 この数値が入力されているセルA1～A10の範囲をドラックして、D1～D10の位置に移動すると、マクロが実行される範囲を新たにD1～D10に指定しないとならないのですが、マクロが実行される範囲をA1～A10の範囲に固定して、別の場所に移動してもマクロを修正しなくても良い方法はありますか。

  • Excelのマクロにおいて、期間指定で印刷範囲の設定方法

    Excelのマクロにおいて、期間指定で印刷範囲の設定方法 Excelのマクロで分からない事がありましたので質問させて頂きます。 Excelで、特定の期間(例えば2010/7/1～2010/10/31)以外の日は 特定のセルを印刷しないよう設定する事は可能でしょうか。 例えば… A1セル　TODAY関数 B1セル　ああああ C1セル　いいいい D1セル　うううう とした場合、指定期間(例えば2010/7/1～2010/10/31)はA1～D1までを印刷範囲として、 指定期間以外はC1のみを印刷範囲から外したい、という事です。 指定期間過ぎたらセル削除…という方法では事情により駄目なのです。 無茶な事言っているかもしれませんが、可能な方法がありましたらご教授お願い致します。

  • エクセルでのマクロ作成

    エクセルで作成したボタンをクリックすると以下の事を行うマクロを作りたいと思っています。 (1)最初に貼り付けたいセルの範囲をドラッグで選択する。（手動） (2)マクロを登録したボタンを押す。 (3)マクロ内で指定したセル（たとえば $A$1）をコピーして、(2)でボタンを押してマクロを実行する前に(1)で選択したセルの範囲に貼り付ける。 ＶＢＡが分からないので難儀しています。 宜しくお願いします。

  • 一括ドラッグ（範囲指定）について

    マクロボタンでの一括ドラッグ（範囲指定）は可能でしょうか。 Ａ列に○印を付けてソートした、Ｂ列の番号をドラッグ（範囲指定）して他のシートへ コピペしています。 ソートした段階で、Ａ列に○印の付いたＢ列の番号を、マクロボタンで一括ドラッグ（範囲指定） することなど出来るでしょうか。 ドラッグ（指定範囲）数はソートの都度違っていますので、マクロボタンで一括して範囲指定出来れ ば便利だと思っています。 どなたか、よろしくお願いいたします。

  • 指定の範囲を印刷するマクロ

    こんにちは、エクセル2010を使っています。 ちょっとやってみたい事があるので、マクロに詳しい方、教えて頂けませんでしょうか。 シートにボタンを作りました、それでそのボタンを押すと印刷画面を開きたいのですが、同時に範囲を選択した状態で印刷画面を開きたいのです。 選択する範囲は　Ａ１～Ｙ４１です。 シートのタブからコードを入力するとして、そのコードを教えて頂けませんか？ それでは詳しい方よろしくお願いいたします。

  • マクロのセルの範囲指定

    お世話になります。マクロ初心者です。エクセルの業務でマクロを作成しようとしているのですが、マクロ実行で、セルの範囲が指定される方法はありますか？例えば シート名　　開始　　終了　 Sheet1　　　Ａ１　　Ｄ１０ を入力して、ボタンを押したらＡ１からＤ10までのセルが選択されることです。説明不足ですみません。宜しくお願いします。

  • エクセルの範囲指定マクロ

    エクセル２００２のマクロで印刷範囲指定を例えば ActiveSheet.PageSetup.PrintArea = "A1:E60" と指定した時に、"A1:E60"の”1”と”60”を変数にする事はできますか。

  • マクロで範囲指定をするには

    こんにちわ。 マクロを作りたいのですが。 Ｂ1セルにカーソルをおいてＢ列をデーターが入っている行の終わりまで範囲指定をさせたいのですがどのようにしたらよいのでしょうか。 宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する