- ベストアンサー
マクロの設定で用紙の大きさに応じて印刷する方法
trytrytryの回答
ActiveSheet.PageSetup.PaperSize プロパティを利用すれば可能です。 例としては Select Case ActiveSheet.PageSetup.PaperSize Case xlPaperB5: cnt = 7 Case xlPaperB4: cnt = 12 Case xlPaperA4: cnt = 9 End Select (cntは繰り返し回数) ヘルプでPageSetupかPaperSizeで引けると思います。
関連するQ&A
- こんなマクロを作るには
マクロ初心者です。 以下のようなことをしたいときにマクロの方法を教えて頂けると助かります。 1)セルＡ１に、数値を入力。 2)セルＢ１に、Ａ１の数値を使った複雑な計算を行う。 3)セルＣ１にある別の既定の数値とＢ１が同じなるまで、Ａ１の数値を入力し直す。 (例えばＡ１は、0.1間隔で数値を入力していく） このようなものをマクロで設定したいです。 今はひたすらＡ１の数値を入力し直して対応しています。 なにとぞよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？
エクセルのマクロで、印刷設定をしたいのですが可能でしょうか？ お世話になっています。 会社での作業を少しでも効率よく出来ないものかと、以下のようなことを考えています。 エクセル２００３を使用していますが、下記のような動作をするマクロを組むことは可能でしょうか？ よろしくご教授ください。 Sheet1は、入力用のシートとして使っています。 Sheet2は、Sheet1に入力された商品データなどから、必要な箇所のみ反映されるように設定しています。 このシートは、罫線などが存在し表形式になっており、全てを印刷するとＡ４用紙６枚分になります。 そこで、Sheet1（入力用のシート）のJ18セルに文字が入力された場合は、Sheet2（印刷用のシート）の１ページだけを印刷したく、Sheet1のj27セルに文字が入力された場合は、Sheet2の２ページまで・・・ Sheet1のJ36に文字が入力された場合は、Sheet2の3ページまでという風に印刷範囲を設定しなくても印刷出来るようにしたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ
エクセルのマクロでわからないことがあり質問なんですが A1セルの数値がリアルタイムに更新されていて このA1セルの数値が更新されるたびに B1とB2にA1セルの最新の値を交互にコピーしていくマクロを 作りたいんですがうまくいきません。 例としては A1に１と表示→B1に１と表示 A1に７と表示→B2に７と表示 A1に１８と表示→B1に１８と表示 これをA1セルが更新され続ける限り繰り返しすマクロです。 どなたか教えていただけるとありがたいです。
- ベストアンサー
- その他MS Office製品
- 【Excel】マクロで印刷範囲の設定
Excel2003を使用しています。 マクロで印刷範囲を設定するコードを書きました。ページを追加するマクロを実行したときに一緒に実行するようにしているのですが、コードで指定している範囲外にデータがあるせいか、その列まで印刷範囲に設定されてしまいます。このデータは印刷範囲には入れたくないのですが、どうしたらいいでしょうか？ ちなみに、印刷範囲部分のコードは .PageSetup.PrintArea = Range(Cells(1, 1), Cells(j, 24)) Y1セルとZ1セルにデータが入力されています。マクロを実行すると、印刷範囲がA1：Zjに設定されます。印刷範囲はX列までに設定したいのですが、可能でしょうか？よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロ
仕事の都合で早急に仕上げなければならないことがあり 困っています。 内容としては エクセルのA1セルに０～無限までの数値がランダムに 繰り返し表示されるとした場合で （例えばA1セルに０と表示された後、数秒たつと１００００と表示されて、 また数秒たつと３０００と表示されて、 また数秒たつと０になったりをA1セルは繰り返します。 A1に表示される数値も更新時間も完全にランダムです。） １以上の数値がA1セルに表示された場合のみ その数値をB1セルに抜き出し、更新毎にB1セルで合計し続ける。 （例えばA1に１０と表示されるとB1に１０と表示し その後A1に１００と表示されるとB1に１１０と表示 その後A1に３００と表示されるとB1に４１０と表示） というマクロを作りたいのですが完全に手詰まりになってしまっています・・・ どなたか詳しい方いらっしゃいましたら申し訳ございませんが 知恵を貸していただけないでしょうか？ よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- excelマクロでセル値をフッターに設定＆印刷
改ページごとに(異なる)セル値をフッターにセットし、フォントサイズを32に設定したい。 A列の全てのセルに「品名」が入力されている表があります。 下の表のイメージですが、1行目を印刷タイトルとし、1ページ目は2～3行まで、2ページ目は4行のみ、3ページ目は5～6行まで・・・というように品名が変わるごとに改ページが既に設定されています。 B列の印刷枚数も品名ごとに枚数が決まっており数値が入力されています。 A B 1 品名 印刷枚数 2 あ 2 3 あ 2 4 い 3 5 う 1 6 う 1 この表は数百行(数十ページ)続いているのですが、各ページに該当する品名をそれぞれフッター(左)に設定し、フォントサイズを32にし、更に各ページに該当する印刷枚数分だけまとめて印刷するマクロを作りたいです。 アドバイスのほど宜しくお願いします。
- ベストアンサー
- その他MS Office製品
- 印刷範囲の設定で教えてください。
再三再四で申し訳ございません。 マクロで印刷範囲設定は ActiveSheet.PageSetup.PrintArea = "$B$1:$H65" と範囲を固定するのが一般的と思うのですが、 印刷範囲が利用者毎に相違するため 開始セル値を Ａ８ セルに 最終セル達を Ａ１０ に置く形で 印刷範囲を任意変更可能にしたい場合には セル値で印刷範囲設定する方法を お教えくださいますよう 御願いいたします。
- 締切済み
- Windows 7
- Excelのマクロにおいて、期間指定で印刷範囲の設定方法
Excelのマクロにおいて、期間指定で印刷範囲の設定方法 Excelのマクロで分からない事がありましたので質問させて頂きます。 Excelで、特定の期間(例えば2010/7/1～2010/10/31)以外の日は 特定のセルを印刷しないよう設定する事は可能でしょうか。 例えば… A1セル TODAY関数 B1セル ああああ C1セル いいいい D1セル うううう とした場合、指定期間(例えば2010/7/1～2010/10/31)はA1～D1までを印刷範囲として、 指定期間以外はC1のみを印刷範囲から外したい、という事です。 指定期間過ぎたらセル削除…という方法では事情により駄目なのです。 無茶な事言っているかもしれませんが、可能な方法がありましたらご教授お願い致します。
- ベストアンサー
- オフィス系ソフト
- ちょっと特殊な連続印刷のマクロを教えてください
次のような名簿があるとします。 A列 B列 通し番号 名前 １ 阿部 ２ 佐々木 空白 空白 ４ 木村 ５ 田辺 空白 空白 空白 空白 ８ 三浦 通し番号が入力されていない場合は、名前も表示されない様になっています。 セルC1に通し番号を順々に表示（マクロで指定） セルC2にその番号の名前を参照表示←個人票として印刷 番号があれば（名前が表示されれば）印刷 としたいです。 個人票を連続印刷したいのですが、空白を飛ばして、 番号が入っている人だけを印刷、というマクロがどうしても組めません。 一つ一つ、番号が入っていれば名前を印刷のようなマクロを延々と 組むことは出来るのですが、名簿が長大なのでそれは避けたいです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- Excel2003のマクロ設定
マクロの設定の仕方について質問します。 A1に123456…26 A2に123456…26 … A8002に123456…26 とかかれてなっています。 これをA1セルのものをA1に1、B1に2、C1に3…、X1に26 A2セルのものをA2に1、B2に2、C2に3…、X2に26 … A8002まで設定するにはどのようにしたらいのでしょうか。 何卒、よろしくお願い申し上げます。
- 締切済み
- オフィス系ソフト
お礼
やってみます。。。 ありがとうございました。