今、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回繰り返す…などなど
用紙によって、パッと設定を変えるなど…そんな贅沢は無理ですか?
意味不明かな…
No.1ベストアンサー
- 回答日時:
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が見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) マクロだと数式が表示される 2 2022/09/10 14:48
- Excel(エクセル) セルに設定した[コメント]、表示のON/OFFは正常なるも印刷されない! 3 2022/09/18 21:56
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Excel(エクセル) 条件付き書式の設定方法を教えて下さい。 2 2023/04/14 18:12
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAの繰り返し処理について教え...
-
クリスタルレポートの改ページ...
-
【VBA】計算結果に小数点第2位...
-
16進数の文字列を普通の文字列...
-
印刷したい用紙の大きさによっ...
-
VBA 条件付き書式で空欄は適用...
-
スリープ状態とロック状態の違...
-
スイッチングハブのIPアドレス
-
MacBookAir13インチでCoD MW3
-
schtasksでの継続時間の指定
-
blackjumbodogでメールサーバー...
-
CPU使用率が100%で貼りつきまし...
-
UPS(無停電電源)のコンセント...
-
iosでpcのエロゲーを動かすアプ...
-
初心者です プライマリ、セカ...
-
DHCP Clientサービスが勝手に停...
-
サービスとして起動させたい
-
T1ケーブルってなんですか?
-
win xp の認証しないと...
-
windows再起動をタスク処理にて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【VBA】計算結果に小数点第2位...
-
MsgBoxの中にある数字や日付の...
-
チェックボックスのある行を非...
-
クリスタルレポートの改ページ...
-
spread6.0(セル連結)
-
VBA 条件付き書式で空欄は適用...
-
マイナス記号を▲で表す方法
-
grep で複数条件を指定
-
C#にて、他言語にローカライズ...
-
POIを使った書式設定
-
16進数の文字列を普通の文字列...
-
VBでエクセル出力の文字を太字...
-
MSAccessでODBCを介してDB接続...
-
EXCEL VBA 勤怠表での条件付き...
-
syntax error, unexpected $end...
-
時間表示で0:48:17と入力すると...
-
VBAの繰り返し処理について教え...
-
FORMAT関数で値が変わる
-
SQL文 Where句の複数検索
-
エクセルのメモについて教えて...
おすすめ情報