Question

怎样让excel的单元格点击一下,里面的数据就加一

Answer 1

在VBA界面添加自动加一代码就可以实现点击自动加一，具体操作方法如下：

一、首先打开Excel工作薄，进入“开发工具”选项下，点击“Visual Basic”。

二、打开VBA界面后，点击表格一，然后点击“视图”，下拉菜单内点击“代码窗口”。

三、在代码窗口内输入“Private Sub Worksheet_SelectionChange(ByVal Target As Range)回车Target = Target + 1回车End Sub”，关闭VBA窗口。

四、这时回到表格内后，鼠标左键点击表格就可以自动加一了。

Answer 2

方法/步骤

先输入选项和题目如图

按住alt+F11，出现如下窗口

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

保存，然后右上角叉叉

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

追问

大神，，你的代码有点乱啊（我没学过代码）
还有没有图片，，麻烦你啦！

追答

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Target + 1
End Sub

追问

照做了还是遇到各种问题，在保存代码时就提醒啥啥啥的，，，然后保存的问题百度出来解决了，，又不能使用宏，，脑袋好大

追答

怎么不能用了，你用的什么版本的

Answer 3

你需要建一个按钮控件，然后再编几句代码就可以了。

追问

能否详细一点呢？谢谢啦

Answer 4

用激发宏就行，不用按钮

追问

具体该怎么做呢，，大神