Question

excel中制作按钮怎么实现按一下，让单元格的数值自动加1？

Answer 1

使用VBA

函数实现：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

    If Target.Address = "$A$3" Or Target.Address = "$B$3" _

    Or Target.Address = "$C$3" Or Target.Address = "$D$3" Then

        Target.Value = Target.Value + 1

    End If

End Sub

说明：

1. 打开VBA后，选择下图中左下方列表中你要实现此功能的表；在右边选择“SelectionChange”函数，此函数为相应表变化时（如点击不同的单元格），触发。

2. 函数中Target.Address = "$A$3"语句中的“$A$3”，即你想实现此功能的单元格，只有点击该单元格时，单元格内的数据才会自动加1。

3. 该函数点击计数单元格后，需点击一次其他单元格后，再次点击，才会加1，为了防止误点。

截图：

Answer 2

在主菜单点击"视图"，"工具栏"，"控件工具箱"后会跳出一个控件工具选择框。选择"命令按钮"后，鼠标会变为细的十字标。在工作表范围内按着鼠标左键，然后拉动就会出现控件按钮就放开鼠标左键。按钮键就完成了，把鼠标移到按钮键双击鼠标左键就进入VBA编辑器。再把以下代码拷贝到编辑器中。
Private Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 1 '选定单元格内容+1
ActiveCell.Offset(1,0).Select '自动移到下个单元格
End Sub