怎么让EXCEL的数字自动加1

Question

我想设置一个打单子的软件,用EXCEL做的,但有个NO.000001想让这号码打一份单的同时自己会改成NO.000002,各位行家请帮个忙,谢谢啦!

Answer 1

1.先在要有递增数列的前面两格打上1、2。

2.然后选中这两个单元格，将鼠标放在第二个单元格的右下角。

3.当鼠标变成【+】时，按住鼠标左键向下拖动，可以看到每拖到一个单元格，会出现数字提示。

4.然后拖动到你需要的数字时，松开鼠标左键，这样一个递增数列就完成了，横向的数列也是如此。

Answer 2

1.选中该列（比如A列）格式-单元格-自定义"No:"000000
2.右击工作标签-查看代码，并输入下列语句
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Selection = Application.Selection + 1
End Sub
3.双击A1，则A1的内容自动加1

Answer 3

除非是VBA，否则不可能。如果检测到打印，则打印，然后加一。
一般的函数是无法知道你是否打印的
不过你换个思路可以容易点。
录制个宏，打印，然后加1。 要打印时点击这个宏就行了

Answer 4

比如你的号码在E3单元格,你可以按二楼的方法:选中E3格式-单元格-自定义"No:"000000
然后你调出窗体控件制作一个按钮,名称编辑为打印.再点工具--宏--Visul Basic 编辑器--在Visul Basic 编辑器中选择插入--添加模块,把下面的代码复制到代码窗口:
Sub 打印()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Call dy
End Sub
Sub dy()
Dim a%, b$, c$, abc$
a = Sheets("Sheet1").Cells(3, 5).Value
b = Sheets("Sheet1").Cells(3, 6).Value
If a < b Then
a = a + 1
Sheets("Sheet1").Cells(3, 5).Value = a
Call 打印
End If
End Sub
Private Sub CommandButton1_Click()
Call 打印
End Sub

保存退出Visul Basic 编辑器,右键单击打印按钮--指定宏--选择刚编辑的打印这个宏,然后在E3输入1,F3输入你要打印的份数.再点打印按钮就开始打印.打印一份E3就加1.本回答被提问者采纳