| |
初めまして、お世話になります。皆様のお力を貸してください。
いまＡ列に5行目からＡ列にセルごとに○記号が入力されています。
（だいたい200行くらいまで）
そしてそのＡ列のところどころに○記号ではなく、×記号が４個
くらい入力されていて上（Ａ列５行目）から30行ごとに改ページをしていきたい
のですが、そこで×記号が現れたら、そのページが30行に満たな
くともそこで改ページをして、その×を先頭に数えてまた30行ごとに
改ページをしたいのです。下のようにコードを書いてみましたがうまく
いきません。皆様のお知恵をお貸し下さい。よろしくお願いいたします。
Sub Macro1()
Dim i As Long
Dim j As Long
ActiveSheet.ResetAllPageBreaks
i = 6
Do Until Cells(i, 1).Value = 0
If Cells(i, 1).Value = "×" Then
ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)
Else
j = i
For j = 6 To j Step 30
ActiveSheet.HPageBreaks.Add Before:=Cells(j, 1)
Next
End If
i = i + 1
Loop
ActiveSheet.PrintPreview
End Sub
|
|
hanako
- 13/11/3(日) 13:12 -
