非常基本的Excel / VB：如何通过击键（无按钮）增加值？

Question

当我输入特定的组合键时，我一直在尝试制作一个将单元格值增加1的宏。我已经搜索了很多，为此找到了解决方案，但给出的答案主要是关于使用命令按钮（我不感兴趣使用它）来做，或者当我尝试时最终没有工作自己实施它们。

我最终想知道如何使用Record Macro来获得我想要的东西，但是当我去编辑那段代码时，它实际上并没有显示它如何将宏绑定到击键，而且我＆＃39;我想知道如何在未来适当地做到这一点。

以下是不工作的代码：

Sub IncTest2()
    ActiveCell.Value = ActiveCell.Value + 1
End Sub

Sub KeyTest()
    Application.OnKey "^a", "IncTest2"
End Sub

它应该使用＆＃34; Control + a＆＃34;将活动单元格增加1，而是执行标准＆＃34; Control + a＆＃34;键盘快捷键。对不起基本问题，但因为它看起来很基本，只会让我更加沮丧，我无法弄明白！

Answer 1

试试这个，看看它是否适合你。在ThisWorkBook代码中，添加以下子。

Sub Workbook_Activate()
    Application.OnKey "^a", "IncrementByeOne"
End Sub

在ThisWorkBook的模块中，添加下面的宏。

Sub IncrementByeOne()

    With ThisWorkbook.ActiveSheet
        ActiveCell.Value = ActiveCell.Value + 1
    End With

End Sub