如何在excel表格中实现点击某单元格一次,该单元格内数字增加1。
发布网友
发布时间：2022-04-24 18:46
共4个回答
热心网友
时间：2023-11-03 12:33
1.在该工作表的任意空白位置，找一个空单元格，输入数字“1”。
2.复制该单元格，两种方法：第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。
3.然后选定要加1的单元格，用鼠标框起来。
4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键，在弹出的右键菜单里选择“选择性粘贴”。
5.在弹出的“选择性粘贴”对话框中，“粘贴”下选择粘贴“数值”，“运算”下选“加”。选择后点击“确定”完成设置。
6.设置后的效果如图所示。可以看到，年龄列的数字都增加了1。
用同样的方法，也可以根据自己的需要设置增加2、3……N。
热心网友
时间：2023-11-03 12:34
用以下宏代码实现 例中只对 "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
追问如何在多个单元格中都能实现追答只要改变条件语句 任何单元格都一样
热心网友
时间：2023-11-03 12:34
如果只是单击一下单元格就想这样，则按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
热心网友
时间：2023-11-03 12:33
1.在该工作表的任意空白位置，找一个空单元格，输入数字“1”。
2.复制该单元格，两种方法：第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。
3.然后选定要加1的单元格，用鼠标框起来。
4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键，在弹出的右键菜单里选择“选择性粘贴”。
5.在弹出的“选择性粘贴”对话框中，“粘贴”下选择粘贴“数值”，“运算”下选“加”。选择后点击“确定”完成设置。
6.设置后的效果如图所示。可以看到，年龄列的数字都增加了1。
用同样的方法，也可以根据自己的需要设置增加2、3……N。
热心网友
时间：2023-11-03 12:34
用以下宏代码实现 例中只对 "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
追问如何在多个单元格中都能实现追答只要改变条件语句 任何单元格都一样
热心网友
时间：2023-11-03 12:34
如果只是单击一下单元格就想这样，则按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
热心网友
时间：2023-11-03 12:35
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了
如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
热心网友
时间：2023-11-03 12:33
1.在该工作表的任意空白位置，找一个空单元格，输入数字“1”。
2.复制该单元格，两种方法：第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。
3.然后选定要加1的单元格，用鼠标框起来。
4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键，在弹出的右键菜单里选择“选择性粘贴”。
5.在弹出的“选择性粘贴”对话框中，“粘贴”下选择粘贴“数值”，“运算”下选“加”。选择后点击“确定”完成设置。
6.设置后的效果如图所示。可以看到，年龄列的数字都增加了1。
用同样的方法，也可以根据自己的需要设置增加2、3……N。
热心网友
时间：2023-11-03 12:34
用以下宏代码实现 例中只对 "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
追问如何在多个单元格中都能实现追答只要改变条件语句 任何单元格都一样
热心网友
时间：2023-11-03 12:34
如果只是单击一下单元格就想这样，则按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
热心网友
时间：2023-11-03 12:35
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了
如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
热心网友
时间：2023-11-03 12:33
1.在该工作表的任意空白位置，找一个空单元格，输入数字“1”。
2.复制该单元格，两种方法：第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。
3.然后选定要加1的单元格，用鼠标框起来。
4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键，在弹出的右键菜单里选择“选择性粘贴”。
5.在弹出的“选择性粘贴”对话框中，“粘贴”下选择粘贴“数值”，“运算”下选“加”。选择后点击“确定”完成设置。
6.设置后的效果如图所示。可以看到，年龄列的数字都增加了1。
用同样的方法，也可以根据自己的需要设置增加2、3……N。
热心网友
时间：2023-11-03 12:34
用以下宏代码实现 例中只对 "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
追问如何在多个单元格中都能实现追答只要改变条件语句 任何单元格都一样
热心网友
时间：2023-11-03 12:34
如果只是单击一下单元格就想这样，则按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
热心网友
时间：2023-11-03 12:35
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了
如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
热心网友
时间：2023-11-03 12:35
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了
如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
热心网友
时间：2023-11-03 12:33
1.在该工作表的任意空白位置，找一个空单元格，输入数字“1”。
2.复制该单元格，两种方法：第一种方法选中后点“复制”;第二种方法选中后直接“Ctrl+C”。
3.然后选定要加1的单元格，用鼠标框起来。
4.在菜单栏选择“粘贴”→“选择性粘贴”即可。也可以点击鼠标右键，在弹出的右键菜单里选择“选择性粘贴”。
5.在弹出的“选择性粘贴”对话框中，“粘贴”下选择粘贴“数值”，“运算”下选“加”。选择后点击“确定”完成设置。
6.设置后的效果如图所示。可以看到，年龄列的数字都增加了1。
用同样的方法，也可以根据自己的需要设置增加2、3……N。
热心网友
时间：2023-11-03 12:34
用以下宏代码实现 例中只对 "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
追问如何在多个单元格中都能实现追答只要改变条件语句 任何单元格都一样
热心网友
时间：2023-11-03 12:34
如果只是单击一下单元格就想这样，则按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
热心网友
时间：2023-11-03 12:35
Target.Value = Target.Value + 1
End Sub
双击该单元格效果就会出来了
如果是单击那么
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.Value = Target.Value + 1
End Sub
