Получить ссылку на ячейки

[blacklight]

Возник такой вопрос:

в ячейке есть формула (любая), например:

('Лист3!'A1+'Лист2!'B5)/сумм(C7:C28)

вопрос в том, как получить ссылки в VBA на ячейки (range) из этой формулы, чтобы производить с ними какие-либо действия.

Подскажите, плз, где почитать или может какие-нибудь функции.

Спасибо!

С уважением,
blacklight.

[The_Prist]

Изучайте свойства

.Dependents
.Precedents

объекта Range.

[blacklight]

Отлично! спасибо!

Такой вопрос, есть ли предположения, как решить задачку со ссылками на другие листы? =)

С уважением,
blacklight.

(например свойство Showprecedents возвращает все ссылки на объекты, от которых зависит ячейка, а вот просто Precedents - только на активном листе)

[SAS888]

Будьте внимательны! .Dependents и .Precedents работают только в пределах активного листа. Если в формуле есть ссылка на другой лист (как в Вашем примере), то они Вам не помогут.

[blacklight]

Почти решил проблему...
Dim a As Variant
Dim b As Variant

Selection.ShowPrecedents
a = Selection.Address
b = ActiveSheet.Index

Range(a).NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber _
:=1
Selection.Interior.Color = 65535
Sheets(b).Select
Range(a).NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber _
:=2
Selection.Interior.Color = 65535
Sheets(b).Select
Range(a).NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber _
:=3
Selection.Interior.Color = 65535

Остался вопрос, как посчитать количество внешних ссылок...

Может написать цикл, который выполняется до появления ошибки?

[blacklight]

Господа, помогите, пожалуйста, разобраться почему не работает, если нет ссылок на ячейки на активном листе...

    Dim a As Variant
    Dim b As Variant
    Dim i As Integer
    
    Selection.ShowPrecedents
    a = Selection.Address
    b = ActiveSheet.Index
    
    On Error GoTo Error1
    If Selection.Precedents.Count > 0 Then
    
    Selection.Precedents.Interior.Color = 65535
    
    On Error GoTo Error2
    For i = 1 To 1000
    Sheets(b).Select
    Range(a).NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber _
        :=i
    Selection.Interior.Color = 65535
    Next i
    
    End If
    
Error1:
    On Error GoTo Error2
    For i = 1 To 256
    Sheets(b).Select
    Range(a).NavigateArrow TowardPrecedent:=True, ArrowNumber:=1, LinkNumber _
        :=i
    Selection.Interior.Color = 65535
    Next i
    
Error2:
Exit Sub

Спасибо!

С уважением,
blacklight.