|
▼ichinose さん:
>そうですねえ、駄目な場合もありますねえ!!
>
>では、再度・・・。
>
>標準モジュールに
>'=========================================
>Sub test()
dim rng as range
> Dim myRng As Range '
> Dim myPb As HPageBreak '
> Dim myPbRng As Range '
> Set rng = ActiveCell
> With ActiveSheet
> .Cells(.Rows.Count, .Columns.Count).Select
> End With
Doevents
> 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
>
> Rng.Select '←セルの位置を戻す
>End Sub
これも試してみてください。
尚、これにApplication.ScreenUpdating = False
を入れると駄目でした(インデックスが有効範囲にありませんが出ます)。
|
|