「教えて!ピックアップ」リリース!

表題を1行入れて1ページに49行となるように改ページを入れたいのですが、どのようなマクロを組めばできますか?
また、行は49行の倍数と成るように印刷範囲を設定しして列は1ページに収まるように設定するにはどうしたらよいか併せて教えていただければ助かります。

例えば、349行 F列まである場合は、縦が7枚×横が1ページとなるように自動で設定したいです。

A 回答 (2件)

Sub Macro1()



Dim i As Long
Dim j As Long
Dim k As Long

i = 50
j = ActiveSheet.Cells.SpecialCells(xlLastCell).Row


For k = i + 1 To j Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub
    • good
    • 1
この回答へのお礼

ご回答ありがとうございました。大変助かりました。

お礼日時:2012/01/22 14:32

Excel2003です。



Sub Macro1()

Dim i As Long
Dim j As Long
Dim k As Long

i = 50
j = 349

For k = i + 1 To 349 Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub

他にもっと良い方法があるはず。。
    • good
    • 0
この回答へのお礼

ご回答ありがとうございました。変数jが可変の場合、一番最終の行を探す必要があるのですが、そこをどうすれば良いでしょうか?(本来であれば、別の質問でした方が良いのかも市得れませんが、続きがあれば、ということでお礼に追加させていただきます)

お礼日時:2012/01/22 09:45

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


人気Q&Aランキング