作者：乔山办公网日期：
返回目录：excel表格制作
假设编号的单元格在A1
工作表标签上zhidao单击右键- 查找代码
然后在工程管理器窗口,双击回ThisWorkbook,并粘贴下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.[A1].Value = [A1].Value + 1
End Sub
如果编号在其它答单元格,则将代码中的A1修改为实际单元格
excel里，可以利用时间函数today和row函数自动生成单号。
假抄如A列是单号，可以在A2输入袭公式：=IF(B2<>"",TEXT(TODAY(),"yyyymmdd")&ROW()-1,"")。公式解析：如果B2单元格为空，就显示为空，否则就返回日期函数和row函数生成的序列百号。用today函数生成的序列号，带有日期的信息，度可以在以后方便的查找。
用录制宏操作。
首先抄，加入一下是你的表格。
找到宏，然后点录制，选定日期单元格，然后向右拖拉，产生下一个日期。
然后复制新的单元格到旧单元格，如袭图，并删除右面新单元格，使原来的4变成5，然后点打印。最后结束zd录制宏。
给宏设置个快捷键，只要点一下就自动修改日期并打印，也可设置宏的执行次数
。
要使百用VBA程序，写入度以下知代码：
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x As Integer
x = Val(Right(Sheet1.Cells(1, 1), Len(Sheet1.Cells(1, 1)) - 3))
Sheet1.Cells(1, 1) = "NO:" & WorksheetFunction.Text(x + 1, "000000")
End Sub
其中000000个数道根据需要回设置。答