如何在excel表格中实现点击某单元格一次，该单元格内数字增加1。

Question

如题所述

Answer 1

1.在该工作表的任意空白位置，找一个空单元格，输入数字“1”。

2.复制该单元格，两种方法：第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。

3.然后选定要加1的单元格，用鼠标框起来。

4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键，在弹出的右键菜单里选择“选择性粘贴”。

5.在弹出的“选择性粘贴”对话框中，“粘贴”下选择粘贴“数值”，“运算”下选“加”。选择后点击“确定”完成设置。

6.设置后的效果如图所示。可以看到，年龄列的数字都增加了1。

用同样的方法，也可以根据自己的需要设置增加2、3……N。

Answer 2

用以下宏代码实现　例中只对 "Sheet1中的$A$1"有效（注在工作簿事件中加　见图）

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Sh.Name = "Sheet1" And Target.Address = "$A$1" Then Target.Value = Target.Value + 1

'MsgBox Target.Address

End Sub

追问

如何在多个单元格中都能实现

追答

只要改变条件语句　任何单元格都一样

本回答被网友采纳

Answer 3

如果是要求双击单元格，该单元格数字增加1，则按网友“lnzzxzy”说的去做。
如果只是单击一下单元格就想这样，则按Alf+F11，在表1中复制以下代码即可：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
此结果对全表（表1）的单元格都有效。
如果是仅针对某些单元格有效（例如B3至D5），则要具体写准范围：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 And Target.Row < 6 And Target.Column > 1 And Target.Column < 5 Then Target.Value = Target.Value + 1
End Sub

Answer 4

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了

如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub