подскажите аналог RefersToRange VBA ?

[Denis_Oleynikof]

Спасибо за ответы. Не стал открывать новую тему, может быть подскажите аналог RefersToRange VBA ?

[sokol92]

См. описание сервиса NamedRange, метод getReferredCells интерфейса XCellRangeReferrer (или свойство ReferredCells сервиса NamedRange).

Пример

Код:

Sub ShowNames
  Dim NamedRange
  On Error Resume Next  ' не выводим имена, не относящиеся к диапазонам (например, формульные выражения)
  For Each NamedRange In ThisComponent.NamedRanges
    Msgbox "Name: " & NamedRange.Name & "  RefersToRange: " & NamedRange.ReferredCells.AbsoluteName
  Next NamedRange
End Sub