如何在EXCEL表中设置单号自动增加
如何设置EXCEL工作表单号单元格在点打印后就自动加一：比如现在是00001点打印后编号单元格就是变成00002。以此类推，希望能解答的详细些，谢谢！
excel里，可以利用时间函数today和row函数自动生成单号。
假如A列是单号，可以在A2输入公式：=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析：如果B2单元格为空，就显示为空，否则就返回日期函数和row函数生成的序列号。用today函数生成的序列号，带有日期的信息，可以在以后方便的查找。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2013-03-11
加一命令按钮，为按钮添加下面代码，即可设功能为打印。同时，A1单元格可自动加1
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Range("A1") = Range("A1") + 1
End Sub本回答被网友采纳
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Range("A1") = Range("A1") + 1
End Sub本回答被网友采纳
第2个回答 2013-03-11
假设编号的单元格在A1
工作表标签上单击右键- 查找代码
然后在工程管理器窗口,双击ThisWorkbook,并粘贴下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.[A1].Value = [A1].Value + 1
End Sub
如果编号在其它单元格,则将代码中的A1修改为实际单元格追问
工作表标签上单击右键- 查找代码
然后在工程管理器窗口,双击ThisWorkbook,并粘贴下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.[A1].Value = [A1].Value + 1
End Sub
如果编号在其它单元格,则将代码中的A1修改为实际单元格追问
单击右键只有查看代码，没有查找代码，更找不到ThisWorkbook
追答
大哥,要断句换行的
本回答被提问者采纳第3个回答 2013-03-11
编写VBA代码。在打印事件后。序号自动增加1.追问
如何编写VBA代码，在哪里写
追答ALT+F11——F7——写代码。去百度搜一下代码。
追问具体点可以吗？复制代码进去了怎么确定呀，我是小白，帮忙解释清楚点可以吗？
第4个回答 2015-09-27
这个要用VBA
相似回答