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单元格中的数据就会发生变化。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com