VBA代码： “按Ctrl - [” 和 “F5”

Question

是否有模拟正常goto Excel函数按Ctrl +[和F5任何VBA代码？

用一个例子进一步阐述：

在这种Problem.xlsx两个工作— Alpha和Beta。

我想

1. 代码做一个按Ctrl + [在Alpha工作表的单元A2（即抢公测！在B5单元格引用）
2. 这样才能跳转到Beta工作表的单元格B5（使用Beta！B5参考，进行跳转）
3. 将一个单元格向右移动，即C5的Beta工作和遮荫该小区黄色
4. 最后搞得F5回去的Alpha工作

我用Google搜索对不同的关键字2小时像goto，ctrl-[，F5的细胞A2，previous selection等无济于事。

附加说明：

我试图模拟转到功能按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) 

或从细胞到细胞的一类模块几个跳跃作用像一个堆栈实施推送&弹出功能将是理想的。