单击时单元格中的增量值为1

Question

本质上，我必须在Excel中开发一个简单的计数系统，以使我的主项目更容易。

我希望能够做的就是单击一个单元格（B列中的任何单元格），当我这样做时，其中的值应该加1。

我已尝试将此代码用作POC，但似乎无法正常工作。

我已经完成了一定数量的编程，但从未尝试过将它合并到excel中，所以任何帮助都会受到赞赏！

Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If IsNumeric(Target.Value) Then
    Target.Value = Target.Value + 1
    Application.EnableEvents = False
    Target.Resize(1, 2).Select
    Application.EnableEvents = True
    Cancel = True
End If

End Sub

Answer 1

您需要将代码放在要运行它的工作表的Worksheet模块中。假设您希望它在＆＃34; Sheet1＆＃34;上运行，将其放在Sheet1模块中：

（我在上面的示例中注释掉了.Select行）