|
▼ichinose さん:助言有難うございます。
win200でExcel2000です。
改ページの種類を自動にしており、
下記マクロを組みましたが動きません。
Sub test()
Dim myRng As Range '
Dim myPb As HPageBreak '
Dim myPbRng As Range '
For Each myPb In ActiveSheet.HPageBreaks
Set myPbRng = Nothing
On Error Resume Next
Set myPbRng = Intersect(myRng, _
myPb.Location.EntireRow.Offset(-1))
On Error GoTo 0
'
'-----------------------------------------------------
' 合計行の下線の変更 と 改ページ後1行目名の表示
'-----------------------------------------------------
'
If Not myPbRng Is Nothing Then
With myPbRng.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With myPbRng.Cells.Offset(1)
.Font.ColorIndex = 1
End With
End If
Next
Cells(1, 1).Select
End Sub
横が一枚に収まらない為、集計を取った後に
ページ設定にて縦(1)×横(ブランク)にしております。
さらに合計行で改ページもしております。
同じ文言が続く為、先頭行以外は表示しておりません。(フォントカラー白)
ただ、ページが変わる場合のみ1行目を表示したく思います。
当方VBAにあまり詳しくありません。
至らぬ点があるかと思いますが宜しくお願いします。
|
|