作爲主頁按鈕的按鍵應用程序

Question

我正在收集Excel工作簿中的測量值。 所有測量結果都顯示在單獨的工作表中。 每張紙的測量值的平均值和最大值顯示在主頁（名稱爲「1」）

我添加了一行代碼從主頁跳到某張紙單元格J23並單擊一個按鈕。

現在我想添加一個物理按鍵/按鈕以返回到首頁。 例如與ctrl + b

不幸的是我的代碼還沒有工作。 我粘貼了下面的代碼，希望有人有解決方案。 在此先感謝

Sub Macro1() 

i = Sheets("1").Range("J23").Value 

    Worksheets(i).Select 

End Sub 

Sub Home() 

Application.OnKey "^b", Worksheets("1").Select 

End Sub 

Answer 1

你需要傳遞Application.OnKey一個過程的名稱，而不是一個VBA命令，你正在嘗試做的。

沿着這些東西線：

Sub Home() 
    Sheets(1).Select 
End Sub 

Sub SetUp() 
    Application.OnKey "^b", "Home" 
End Sub 

上述潛艇是在一個標準的代碼模塊。當我運行SetUp時，我可以通過輸入Ctrl+b從任何其他工作表中返回Sheet1。