VBA跟踪索引函数的先例

时间:2014-04-17 18:34:59

标签: excel vba excel-vba indexing

提前致谢。

是否有人创建了VBA子跟踪INDEX的先例?

例如,假设A1具有:
INDEX(namedRange, namedCellVertical, namedCellHorizontal)

我希望能够选择A1,运行宏,然后让激活的单元格成为A1引用的特定单元格(不是整个范围)。

似乎有免费软件(Arixcel)执行此操作(以及更多),但由于我们的政策,我们无法在我们的计算机上安装它。

再次,先谢谢。

1 个答案:

答案 0 :(得分:4)

试试这个:

Sub GetCell()
Dim c As Range

    On Error Resume Next
    Set c = Selection.Parent.Evaluate(Selection.Formula)
    On Error GoTo 0
    If Not c Is Nothing Then
        If c.Parent.Name <> ActiveSheet.Name Then c.Parent.Activate
        c.Select
    End If

End Sub