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

发布网友发布时间：2022-04-25 14:27

共5个回答

热心网友时间：2023-10-09 02:49

　　excel里，可以利用时间函数today和row函数自动生成单号。

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

热心网友时间：2023-10-09 02:49

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

热心网友时间：2023-10-09 02:50

假设编号的单元格在A1
工作表标签上单击右键- 查找代码
然后在工程管理器窗口,双击ThisWorkbook,并粘贴下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.[A1].Value = [A1].Value + 1
End Sub

如果编号在其它单元格,则将代码中的A1修改为实际单元格

热心网友时间：2023-10-09 02:50

编写VBA代码。在打印事件后。序号自动增加1.

热心网友时间：2023-10-09 02:51

这个要用VBA