EXCEL，怎么输入一个数值，让旁边的数值自动加一。
发布网友
发布时间：2022-04-21 07:41
共3个回答
热心网友
时间：2022-06-18 18:39
1、先输入选项和题目。
2、按住alt+F11，出现如下窗口。
3、打开代码窗口，把如下代码复制进去，Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub。
4、保存后关闭窗口。
5、最后就是这样点一下，数字就会 加一，弄好之后再按alt+F11，把代码删除，保存即可。
热心网友
时间：2022-06-18 18:39
使用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，为了防止误点。
截图：
热心网友
时间：2022-06-18 18:40
单击菜单“视图→工具栏→窗体”，将“窗体”工具条打开，在图表区被选中的前提下单击“窗体”工具条中的[滚动条]按钮，然后在图表区按下鼠标左键拖出一个“滚动条”。接下来右键单击滚动条，在菜单中选择“设置控件格式”命令，在弹出窗口中的“控制”标签下的“最小值”、“最大值”、“步长”进行设置，在“单元格链接”一栏中输入“$A$1”，[确定]退出后，如果拖动滚动条，A1单元格中的数据就会发生变化。
