怎么实现按一下键盘的按钮使excel里的指定单元格里的数值增加1？单元格点一下数字加一

excel，怎么样能只按一个按键就让单元格里的数字加1？

Alt+F11，粘贴下面程序（双击单元格，则单元格内容自动加1）

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

Application.Selection = Application.Selection + 1

End Sub

在主菜单点击"视图"，"工具栏"，"控件工具箱"后会跳出一个控件工具选择框。选择"命令按钮"后，鼠标会变为细的十字标。在工作表范围内按着鼠标左键，然后拉动就会出现控件按钮就放开鼠标左键。按钮键就完成了，把鼠标移到按钮键双击鼠标左键就进入VBA编辑器。再把以下代码拷贝到编辑器中。

Private Sub CommandButton1_Click()

ActiveCell.Value = ActiveCell.Value + 1 '选定单元格内容+1

ActiveCell.Offset(1,0).Select '自动移到下个单元格

End Sub

右击工作表标签，查看代码，把下列代码贴上，回到工作表试试，

是英文的+，不要用中文输入全角符号

Dim y As Long

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value = "+" Then Target.Value = y

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If IsNumeric(Target.Value) Then y = Target.Value + 1

End Sub

1. 代码如下：

Sub add()

Dim i, a

For i = 2 To 99

a = Range("B" & i)

If a > 0 Then a = a + 1: Range("B" & i) = a

Next i

End Sub

2. 根据你的实际行号范围，调整for循环的最大值（99）。