excel表格中,如何点击单元格就会增加一个数值呢 _excel

问得非常好，也非常生僻。基本很少在表格当中需要用到的，至少在非专业的表格中非常少见。
这个分两种操作二种形式：
第一种操作是单击单元格数值增加；第二种操作是双击单元格数值增加。
第一种形式是整个工作表点击都会增加，第二种形式是指定工作表中的某部分或某个单元格数值增加。
首先是单击单元格数值增加的代码（全工作表）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
其次是单击单元格数值增加的代码（指定单元格‘代码以F9至H11为例’）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 12 And Target.Column > 5 And Target.Column < 9 Then Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
接下来是双击单元格数值增加的代码（全工作表）：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
再下来是单击单元格数值增加代码（指定单元格‘代码以F9至H11为例’）：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 8 And Target.Row < 12 And Target.Column > 5 And Target.Column < 9 Then Target.Value = http://www.mojiax.com/dzsm/Target.Value + 1
End Sub
那么要怎么来使用这个宏代码呢？
四种使用方法一样，我就只给提问者用一种作为图例解说出来吧！
1、打开文档

3、选择我们需要添加的工作表（我选Sheet1），并双击进入

4、黏贴复制好的代码

5、直接关闭宏窗口回到工作表检验一下吧

看，确定的范围已经可以双击自动增加1了，学习到了吗？
猜猜，题主的要求可能是这样：
如果单元格是数值，则鼠标选中单元格的时候，自动添加一个数值。
比如，单元格的数值为2，鼠标选中该单元格，则改单元格自动加上666，变成668.
要处理，需要用到VBA，工作表的Worksheet_SelectionChange事件。
演示效果如下面的GIF图：

图片参考代码为：将代码放到对应的工作表中。

文字代码为：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim a
If IsNumeric(Target.Value) Then '判断单元格是否为数值
On Error Resume Next '错误处理
'输入一个数值,默认是666.
a = Application.InputBox(prompt:="请输入一个数值", Default:=666, Type:=1)
If a = False Then '取消则退出
Exit Sub
Else
Target.Value = http://www.mojiax.com/dzsm/Target.Value + a'将单元格的数值和新数值相加
End If
Else
Target.Value = http://www.mojiax.com/dzsm/0'如果单元格不是数值，则处理为0.
End If
【excel表格中,如何点击单元格就会增加一个数值呢】End Sub