应用程序键作为主页button

我正在Excel工作簿中收集测量数据。 所有的测量结果都显示在单独的表格中。 每张纸的测量值的平均值和最大值显示在主页（名称为“1”）中

我添加了一行代码，通过在单元格J23中input表单名称并单击button，从主表单跳转到某个表单。

现在我想添加一个物理按键/button，以返回到首页。 例如与ctrl + b

不幸的是我的代码还没有工作。 我粘贴了下面的代码，希望有人有一个解决scheme。 提前致谢

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 ，我可以通过inputCtrl+b从任何其他工作表中取回Sheet1。