单击单元格时增加1的值

实质上，我必须在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

您需要将代码放在要运行的工作表的工作表模块中。 假设您希望它在“Sheet1”上运行，请将其放置在Sheet1模块中：

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