如何让excel自动加1

发布网友 发布时间：2022-04-21 07:41

我来回答

共5个回答

热心网友 时间：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

我感觉你说的应该是用EXCEL做了个填表系统，然后把填写的数据保存成一行，然后表里的序号自动加一，就不用总用手往里填写了。我以前做过类似的东西。

例如你的数据的序号都在表sheet1的A列，那么你可以在另一个地方的单元格输入=MAX(Sheet1!A:A)+1，这个值就是你应该使用的最新的序号值
说明：
你前面保存的序号里最后一个肯定是最大值，然后加一，那就肯定是你应该用的一个新的值，而且，这样的好处是肯定不会有重复的需要

当然，这个只使用于你保存了每次的序号的情况，如果没保存那楼上那个应该可以，楼上的写的是你按保存文件的时候数值＋1,你看你的实际情况吧

热心网友 时间：2022-06-18 18:40

如果是竖向的话，假若是在A1单元格是60，自A2单元格后每格加1，可以这样设置，A2＝A1+1，然后采用自动填充的方式向下填充就行了。

热心网友 时间：2022-06-18 18:40

比如你准备让格子B2实现这个功能。你先用绘图（视图，工具栏，绘图，然后左下方就有了）在B2左上角画任意一图形，比如一小方框（小一点儿），然后，右键点它，指定宏，新建，然后把下面这句放进去：
Range("B2") = Range("B2") + 1
回到Excel中，右键点那个方框，设置格式，线条无颜色白。以后点B2的左上角，就实现功能了。

热心网友 时间：2022-06-18 18:41

按"ALT"+"F11"键进入宏编辑状态，双击sheet1，把以下代码复制到窗体内，保存。即可实现双击sheet1上的任意单元格，该单元格的值就会自动加1.
代码：
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target + 1
End Sub