2010-10-19 63 views
1

这表达了我想要做的事情,但显然不起作用。我想我想要做的是明确的:通过细胞家属循环

获取一个单元格,获得其依赖关系计数,并输出所有这些。

预先感谢任何输入

  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 

回答

3

你可以做

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!

编辑

.Dependentstransitive closure OS .DirectDependents,我不知道你想要的他们......都试一下!