Excel UDF 检测分页符？

Question

我正在尝试编写一个返回单元格是否处于分页符的 UDF。

到目前为止，我有这样的情况：

Function pbreak() As Boolean
   ' Application.Volatile
    pbreak = False
    Dim ra As Range
    Set ra = Application.Caller
    With ra
        For i = 1 To .Worksheet.HPageBreaks.Count
            If .Worksheet.HPageBreaks(i).Location.Row = .Row Then
                pbreak = True

            End If
        Next
    End With
End Function

这会返回 #VALUE 错误。我尝试对其进行调试，HPageBreaks.Count 返回 3（并且有 3 个分页符），但是 HPageBreaks(i) 产生“索引超出范围”错误对于当前单元格下方的所有分页符。

这是一个错误（即 .Count 错误），还是我缺少一些分页符的特殊行为？

有没有办法解决这个问题（最好不要诉诸on error resume next）？

谢谢 马丁

Answer 1

Option Explicit

Function pbreak() As Boolean
   ' Application.Volatile
    Dim i As Integer   'the missing line
    pbreak = False
    Dim ra As Range
    Set ra = Application.Caller
    With ra
        For i = 1 To .Worksheet.HPageBreaks.Count
            If .Worksheet.HPageBreaks(i).Location.Row <= .Row Then
                If .Worksheet.HPageBreaks(i).Location.Row = .Row Then
                    pbreak = True
                    'exit the function once a page break is found.
                    Exit Function
                End If
            Else
                Exit Function
            End If
        Next
    End With
End Function

编辑：始终使用 Option Explicit &使用前先编译代码。
在循环内使用退出函数是为了防止代码在知道结果后进一步运行它。