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

Question

如题所述

Answer 1

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