|
▼SS さん:
>式を成立させるのにはやりたい事が分からないと出来ません。
>一応こういうことかなと言うことで作ってみました。
>1)頁下端は動作をはっきりさせるため白ではなく黄に変えました。
>2)頁の行数は固定なので汎用性はありません
>考えられている動作と異なるかも知れませんので新規bookで試して下さい。
>
>Sub Macro1()
> Dim i As Long, j As Long, k As Long, p As Long
>
> p = 5 'ページ数
> For i = 0 To p - 1
> For j = 0 To 44 Step 2
> k = 50 + 47 * i + j
> Range("B" & k & ":F" & k).Interior.ColorIndex = 3
> Next j
> Range("B" & k + 2 & ":F" & k + 2).Interior.ColorIndex = 6
> Next i
>End Sub
>
お陰様で解決いたしました。ご親切有難うございました。
発想の転換ができないでいたものですから、今回は解決を諦めていた
ので、嬉しい限りです。
黄色のコードは、Xlnone に変更しすっきりさせていただきました。
ページ数(P)につても、HPageBreaks.Count を使い,lastpasge にし
てみました。
最初のページ(48までの部分)も、別のコードで隔行塗りつぶしを復活さ
せました。
大変お手数を煩わせました。
今後ともよろしくお願いいたします。
|
|