Question

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

Answer 1

1、先输入选项和题目。

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

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

4、保存后关闭窗口。

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

Answer 2

使用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 3

单击菜单“视图→工具栏→窗体”，将“窗体”工具条打开，在图表区被选中的前提下单击“窗体”工具条中的[滚动条]按钮，然后在图表区按下鼠标左键拖出一个“滚动条”。接下来右键单击滚动条，在菜单中选择“设置控件格式”命令，在弹出窗口中的“控制”标签下的“最小值”、“最大值”、“步长”进行设置，在“单元格链接”一栏中输入“$A$1”，[确定]退出后，如果拖动滚动条，A1单元格中的数据就会发生变化。