Как получить индекс строки активной ячейки в определенном диапазоне

Question

Я хочу получить индекс строки активной ячейки
относительно предоставленного диапазона ...

, чтобы уточнить, я хочу получить индекс строки внутри диапазона

Что-то вроде

RangeRowIndexOfActiveCell (range1)

должно возвращать индекс строки активной ячейки относительно указанного диапазона

(-1 если ActiveCell находится за пределами диапазона ... но это излишне)

? Любые идеи

Answer 1

Печатает индекс активной ячейки в пределах диапазона, если диапазоны перекрываются.

Function RangeRowIndexOfActiveCell(ByVal rng As Range) As Long

    If Not Intersect(ActiveCell, rng) Is Nothing Then
        RangeRowIndexOfActiveCell = ActiveCell.row - rng.row + 1
    Else
        RangeRowIndexOfActiveCell = -1
    End If

End Function