在EXCEL中 一个单元格的序号比如2012040910001怎么在打印一次后自动变成2012040910002大神们帮帮忙
发布网友
发布时间：2022-04-23 07:53
共1个回答
热心网友
时间：2023-10-08 16:44
得用宏，且应该是点打印时，先序号自动增加，然后存盘打印。另外存放该序号的单元格，先得右键点它，设置单元格格式，数字，文本，确定。 假设数据在Sheet1的单元格F2。同时按Alt和F11进入宏界面，在左上窗口找到本工作簿的ThisWorkbook，双击它，在右边粘贴如下代码： Private Sub Workbook_BeforePrint(Cancel As Boolean) If Left(Sheets("Sheet1").Range("F2"), 8) = Format(Date, "YYYYMMDD") Then Sheets("Sheet1").Range("F2") = Left(Sheets("Sheet1").Range("F2"), 8) & Format(Sheets("Sheet1").Right(Range("F2"), 4) + 1, "0000") Else Sheets("Sheet1").Range("F2") = Format(Date, "YYYYMMDD") & "0001" End If ThisWorkbook.Save End Sub 把代码中的所有Sheet1和F2都改为你实际的工作表的名字和序号的所在单元格，回到Excel，功能实现。前提是启用宏了。
