Loop through cells dependents

Question

Это выражает то, что я хотел бы сделать, но, очевидно, не работает. Я думаю, что я пытаюсь сделать ясно:

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

Спасибо заранее за любой вклад

  Sub Extract() 
      Dim i As Integer 

        For i = 1 To Workbooks("myBook.xls").Worksheets(1).Cells(14, 5).Dependents.Count 
         Debug.Print (Workbooks("myBook.xls").Worksheets(1).Cells(14, 5).Dependents(i)) 
        Next i 
      End Sub 

Answer 1

Вы могли бы сделать

Sub Extract() 
Dim i As Range 
    With Workbooks("Book1.xls").Worksheets(1).Cells(14, 5) 
     For Each i In .Dependents 
      Debug.Print i.Value i.Address 
    Next i 
    End With 

End Sub 

HTH!

Редактировать

.Dependents является transitive closure ОС .DirectDependents, и я не уверен, какой из них вы хотите ... попробовать оба!