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) 

或從細胞到細胞的一類模塊幾個跳躍作用像一個堆棧實施推送&彈出功能將是理想的。