VBA中间接函数的评估结果

Question

我正在编写 VBA 并想评估特定单元格是否引用其他工作表中的单元格。我通常通过分析“！”之前单元格值中的字符来评估这一点。

但是，当单元格使用“间接”函数引用另一个工作表中的单元格时，此方法不起作用。

例如，=INDIRECT (ADDRESS(row, col,,,sheet_name)) 或 =INDIRECT ("SUM(" & A1(cell containing sheet_name) &"B2:B3)") 引用其他工作表中的单元格，但我无法在 VBA 中检测到这一点，因为没有像“！”这样的表达式在公式中。

那么，有人可以帮我找出是否有任何方法可以评估 VBA 中的间接函数，特别是将=INDIRECT (ADDRESS(2, 1,,,"sheet2")) 转换为=sheet2!A2 的方法，或者另一种方法来了解单元格是否包含“间接”函数是否引用其他工作表中的单元格。

提前感谢您的支持！

Answer 1

试试这个代码：

Sub getRangeAddress()
    Dim oRng As Range
    Set oRng = Evaluate("=INDIRECT(Address(2, 1, , , ""Sheet2""))")
    If oRng.Parent.Name <> ActiveSheet.Name Then
        MsgBox oRng.Address(, , , True)
    End If
End Sub