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) дает «индекс вне диапазона» -error для всех разрывов страниц, находящихся под текущей ячейкой.

Является ли это ошибкой (то есть .Count неправильно), или есть ли какое-то особое поведение с разрывами страниц, которые мне не хватает?

Есть ли способ исправить это (желательно, не прибегая к on error resume next)?

Благодаря Martin

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 

EDIT: Всегда используйте Option Explicit & компилировать код, прежде чем использовать его.
Использование Exit Function внутри цикла - это предотвращение его дальнейшего запуска, как только результат будет известен.