如何在EXCEL表中设置单号自动增加

如何在EXCEL表中设置单号自动增加

加一命令按钮，为按钮添加下面代码，即可设功能为打印。同时，A1单元格可自动加1
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Range("A1") = Range("A1") + 1
End Sub

这个要用VBA

编写VBA代码。在打印事件后。序号自动增加1.追问如何编写VBA代码，在哪里写追答ALT+F11——F7——写代码。去百度搜一下代码。追问具体点可以吗？复制代码进去了怎么确定呀，我是小白，帮忙解释清楚点可以吗？

假设编号的单元格在A1
工作表标签上单击右键- 查找代码
然后在工程管理器窗口,双击ThisWorkbook,并粘贴下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.[A1].Value = [A1].Value + 1
End Sub
如果编号在其它单元格,则将代码中的A1修改为实际单元格追问单击右键只有查看代码，没有查找代码，更找不到ThisWorkbook追答
追问
追答大哥,要断句换行的

　　excel里，可以利用时间函数today和row函数自动生成单号。
　　假如A列是单号，可以在A2输入公式：=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析：如果B2单元格为空，就显示为空，否则就返回日期函数和row函数生成的序列号。用today函数生成的序列号，带有日期的信息，可以在以后方便的查找。