键上的应用程序作为主页按钮

Question

我正在Excel工作簿中收集测量值。 所有测量都显示在单独的表格中。 每张纸的平均值和最大值＆＃39;测量显示在主页中（名称为＆＃34; 1＆＃34;）

我添加了一行代码，通过在单元格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。