Как go Ссылка на Активную ячейку?

Question

Я пишу код, чтобы можно было легко go ссылаться на 2 ячейки, чтобы легче было обновлять данные. Когда я нажимаю «Ctrl [» во время записи макроса, он переходит на ссылку для активной ячейки.

Как я могу сделать эту работу для любой активной ссылки на ячейку? Вот пример ссылок в активных ячейках:

='[OVG.xlsx]Net'!$AS$33 , 
='1Q20'!AE37

Вот что у меня есть до сих пор ...

Sub Macro()

    ActiveCell.Select
    Application.Goto Reference:="'Net'!R[16]C[12]"
    ActiveWindow.ActivatePrevious
    ActiveCell.Offset(0, -12).Select
    Application.Goto Reference:="'1Q20'!R[20]C[10]"

End Sub

Answer 1

Это совершенно другой способ сделать это, но он выполняет то, что я хотел!

Sub Reference()

    str1 = Range(ActiveCell.Address).Formula
    startpos = InStr(str1, "x]") + 2
    endpos = InStr(str1, "'!")
    str2 = Mid(str1, startpos, endpos - startpos)
    str3 = Mid(str1, endpos + 2)


    ActiveWindow.ActivatePrevious
    Sheets(str2).Select
    Range(str3).Offset(0, -28).Activate
    ActiveWindow.ActivatePrevious

    ActiveCell.Offset(0, -12).Select

    str1b = Range(ActiveCell.Address).Formula
    startposb = InStr(str1b, "='") + 2
    endposb = InStr(str1b, "'!")
    str2b = Mid(str1b, startposb, endposb - startposb)
    str3b = Mid(str1b, endposb + 2)

    Sheets(str2b).Select
    Range(str3b).Select


End Sub