作者：乔山办公网日期：
返回目录：excel表格制作
Sub 加1()
[a1] = [a1] + 1
End Sub
1、先输入选项和题目。
2、按来住alt+F11，出现如下窗口。源
3、打开代码窗口，把如下代码复制进去，Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub。
4、保存后关闭窗口。
5、最后就zd是这样点一下，数字就会 加一，弄好之后再按alt+F11，把代码删除，保存即可。
在VBA界面zd添加自动加一代码就可以实现点击自动加一，具体操作方法如下：
一、首先打开Excel工作薄，进入“开发工具”选项下，点击“Visual Basic”。
二、打开VBA界面后，点击表格内一，然后点击“视图”，下拉菜单内点击“代码窗口”。
三、在代码窗口内输容入“Private Sub Worksheet_SelectionChange(ByVal Target As Range)回车Target = Target + 1回车End Sub”，关闭VBA窗口。
四、这时回到表格内后，鼠标左键点击表格就可以自动加一了。