|
そうですねえ、駄目な場合もありますねえ!!
では、再度・・・。
標準モジュールに
'========================================
Dim rng As Range
'=========================================
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
Rng.Select '←セルの位置を戻す
End Sub
'================================================================
Sub main()
Set rng = ActiveCell
With ActiveSheet
.Cells(.Rows.Count, .Columns.Count).Select
End With
Application.OnTime Now(), "test"
End Sub
として、mainを実行してみてください。
これで私の方では、エラーが回避できましたが・・。
試してみてください。
|
|