OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

印刷したい用紙の大きさによって、マクロの設定を変えるには???

  • すぐに回答を!
  • 質問No.104544
  • 閲覧数79
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 67% (35/52)

今、A4版にピッタリおさまるように設定してあるエクセルがあって、
マクロの繰り返し処理で、
A1セルから始まって、A1+1=B1,B1+1=C1…というように、
常に「+1した数値」を右に9回繰り返し表示したら,
A2(次の行)に「+1した数値」を表示させなさい
というものを作成しているのですが…

A1の値が1だとすると、J1が10になりますね。
それで、右に9回繰り返し表示させたら…なので、
A1が1だとした場合には、J1に10を表示させた後、
A2に11と表示させるという設定をしてあります。

今、A4版にキッチリ納めるためには、
セル幅の都合、9回がJUSTとし、印刷しているのですが、
これを今日はB5版で印刷したいワ!というような場合には、
どのようにマクロを設定したら良いでしょうか。

B5版のシートを作って、繰り返す回数を9回ではなく、
少なめに設定すればできることは分かるのですが、
そうではなくて、
B5版なら7回繰り返す,A4版なら9回繰り返す,
B4版なら12回繰り返す…などなど
用紙によって、パッと設定を変えるなど…そんな贅沢は無理ですか?

意味不明かな…
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル8

ベストアンサー率 37% (13/35)

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で引けると思います。
お礼コメント
iillyy

お礼率 67% (35/52)

やってみます。。。
ありがとうございました。
投稿日時 - 2001-07-20 13:28:34
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ