我可以找到公式中是否引用了Excel中的单元格吗?

时间:2014-04-23 14:46:07

标签: excel vba excel-vba

我在互联网上搜索了很多网站,我猜我没有找到答案因为不可能尝试理解以下内容:

我想了解包含值(例如10)的Cell是否在文档中进一步播放/形成公式的一部分。我知道我所拥有的细胞不是一个公式细胞,它只是一个条目,但是,我试图了解这个细胞是否构成一个公式的一部分。对此的需求是有大量的公式和大量的数据,我试图看看哪些数据是相关的,哪些数据不是。

希望somone可以提供帮助吗?

亲切的问候

2 个答案:

答案 0 :(得分:2)

手动,您可以使用"跟踪家属"关于公式审计'菜单下"公式"工具标签。

使用VBA,你可以检查这样的家属数量:

Range("A1").Dependents.Count

如果需要使用单元格A1的单元格地址列表,可以执行以下操作:

MsgBox (Range("A1").Dependents.Address)

我在另外两个单元格中使用了A1,所以我的结果如下:

enter image description here


错误检查的完整代码:

Sub test()
    On Error Resume Next
    If Range("A1").Dependents Is Nothing Then
        MsgBox ("No dependents found")
    Else
        MsgBox (Range("A1").Dependents.Address)
    End If
End Sub

答案 1 :(得分:1)

Dependents对象的Range属性为您提供公式的从属单元格。如果没有依赖单元格,请注意您将收到错误

Function hasDependents(r As Range) As Boolean
    On Error GoTo err
    hasDenpedents = r.Dependents
    Exit Function
err:
    hasDependents = False
End Function

然后

if hasDependents([A1]) then
    '...