excel中制作个按钮，怎么实现按一下，让单元格的数值自动加...-excel数据自动加一,设置一个函数每天加一

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. 根据zd你的实际版行号范围，调整for循环的最大值（99）。权

在主菜单点击"视图"，"工具栏"，"控件工具箱"后会跳出一百个控件工具选择框。选择"命令按钮"后，鼠标会变为细的十字标。在工作表范围内按着度鼠标左键，然后拉动就会出现控件按钮就放开鼠标左键。按钮键就完成了内，把鼠标移到按钮键双击鼠标左键就进入VBA编辑器。再把以下代码拷贝到编容辑器中。
Private Sub CommandButton1_Click()
ActiveCell.Value = ActiveCell.Value + 1 '选定单元格内容+1
ActiveCell.Offset(1,0).Select '自动移到下个单元格
End Sub
看具体是什么样的，应该可以实现
比如让A1从今天开始自动加1，A1公式：
=today()-date(2011,12,9)
把单元格设置为数字形式。

1、先输入选项和题目。

2、按住alt+F11，度出现如下窗口。回答

3、打开代码窗口，把如下代码复制进去，Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub。

4、保存后关闭窗口。

5、最后就是这样点一下，数字就会 加一，弄好之后再按alt+F11，把代码删除，保存即可。