excel打印送货单设置自动生成流水号-excel流水号自动生成,excel自动生成流水号函数

把问题作为内容（邮件主题一定要包含“excel”,本人以此为依据辨别非垃圾邮件，以免误删）,excel样表文件（把现状和目标效果表示出）帮你看下

亲，这个需要百VBA编程解决。假设你的要打印的这个表的工作表名称为“Sheet1”，流水号在度F2单元格。

下面的代码可以实现先递增流水号再打印知。注意，当你要打印第一个编号道时，请先把编号设为NO.201500000。

 

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后内在左侧对应的Thisworkbook上双击，右侧空白容处粘贴下面的代码。关闭VBA窗口。

 

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet1" Then
    Application.EnableEvents = False
    [f2] = Left([f2], 7) & Format(Right([f2], 5) + 1, "00000")
    ActiveSheet.PrintOut
    Application.EnableEvents = True
End If
End Sub

不知道你想显百示的位度数是多问少？

B8=12&"+"&TEXT(MONTH(TODAY()),"0000")&"+"&TEXT(DAY(TODAY()),"0000")
或答
=12&TEXT(MONTH(TODAY()),"0000")&TEXT(DAY(TODAY()),"0000")
或
=12&TEXT(MONTH(TODAY()),"00")&TEXT(DAY(TODAY()),"0000")
下拉
根据计算内机系统日期自动变化容

B1输入公式zd =IF(A1="","",VALUE(LEFT(A1,5)&"000"&1))
B2输入公式 =IF(A2="","",IF(LEFT(A2,5)=LEFT(A1,5),B1+1,IF(LEFT(A2,5)<>LEFT(A1,5),VALUE(LEFT(A2,5)&"000"&1))))
将B2公式向下拖版

问题补充：A1列多行后权的结果不太理想！
公式修改如下
B1=IF($A1="","",VALUE(LEFT($A1,5)&"000"&1))
B2=IF($A2="","",IF(LEFT($A2,5)=LEFT($A1,5),$B1+1,IF(LEFT($A2,5)<>LEFT($A1,5),VALUE(LEFT($A2,5)&"000"&1))))
将B2公式向下拖
选中B列的公式向右拖