像 goto 函数一样运行的 VBA 代码：“Ctrl-[”和“F5”

Question

有没有模拟普通gotoExcel函数Ctrl+[和F5的VBA代码？

再举例说明：

在这个Problem.xlsx 中有两个工作表——Alpha 和Beta。

我想要一个代码

1. 在Alpha 工作表的单元格A2 上执行 Ctrl+[（即在单元格中获取 Beta!B5 引用）
2. 以便跳转到Beta 工作表的单元格B5（使用Beta!B5 参考，进行跳转）
3. 向右移动一个单元格，即Beta 工作表的C5 并将该单元格涂成黄色
4. 最后执行 F5 以返回 Alpha 工作表的单元格 A2

我在各种关键字上搜索了 2 个小时，例如 goto、ctrl-[、F5、previous selection 等，但无济于事。

补充说明：

我正在尝试模拟 goto 函数 Ctrl-[ 和 F5 以便我所在的任何活动单元格（带有指向另一个工作表中另一个单元格的链接），VBA 代码可以执行跳转、着色和跳转回到原来的工作表。 即下面的代码太严格了

Sub JumpColourJump()
    Worksheets("Beta").Range("B5").Offset(, 1).Interior.Color = vbYellow
    Worksheets("Alpha").Range("A2").Select
End Sub

代码应该灵活跳转到同一文件或活动单元格所引用的另一个文件中的任何工作表。

Answer 1

您的大部分代码都可以通过录制宏来生成，但更复杂的部分似乎是：

• 导航到引用所选单元格的第一个单元格 - this post on superuser 似乎包含一些很好的建议
• 返回上一张工作表 - 您可以在函数开始时引用活动工作表，然后将其恢复，即：

Dim initalSheet As Worksheet
' Take a reference to the current sheet
Set initialSheet = ActiveSheet

' *** Perform changes here ***

' Return to the initially selected sheet
initialSheet.Select

Answer 2

为了在页面之间来回切换，这样的事情会起作用。

'follow local hyperlink
Application.Goto Reference:=Worksheets("Alpha").Cells(1, 1).FormulaR1C1
'color the cell to the right
ActiveCell.Offset(0, 1).Interior.Color = vbYellow
'return using the same method

然后您可以使用ActiveCell.Offset(row, col) 获取正确的单元格并执行操作，并使用相同的方法返回。

---

为了返回之前的位置，你可以把它保存在一个变量中，

Dim returnSheet As String, returnCell As String
returnSheet = ActiveSheet.Name
returnCell = CStr(ActiveCell.Address(False, False))
'Jump to cell, do your magic
Application.Goto Reference:=Worksheets(returnSheet).Range(returnCell)

或对于从一个单元到另一个单元的多次跳转，一个类模块像一个堆栈实现推送和弹出功能将是理想的。