excel打印送货单设置自动生成流水号

kuaidi.ping-jia.net  作者:佚名   更新日期:2024-06-16
要在Excel打印送货单流水号,每印一次往下流水一个号码,要怎么弄?

Sub 打印()
If MsgBox("确定要打印 发货单?", vbYesNo, "提示") = vbYes Then
Range("A1:I20").Select'打印区域,自己修改
Selection.PrintOut Copies:=1 '
'----------------------假设 需要增加的单号在 I2 单元格
x = Len([i2])
arr = Right([i2], x - 3)
[i2] = ""
[i2] = "N0." & arr + 1
MsgBox "打印完毕"
End If
End Sub

是连续的
流水号
吗,选中其中两个,往下拖动选中右键下的小点,就是
填充柄

亲,这个需要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


可以使用这款现成的,勾选递增打印。



还可以自动清空表格,用VBA编程实现。

按ALT+F11 ,
PrivateSub Workbook_BeforePrint(Cancel As Boolean)
n = Val(Replace([M1], "本文档已经累计打印", ""))
[M1] = "NO.201500000" & n +1
End Sub

  • 要在Excel打印送货单流水号,每印一次往下流水一个号码,要怎么弄...
    答:回答:Sub 打印() If MsgBox("确定要打印 发货单?", vbYesNo, "提示") = vbYes Then Range("A1:I20").Select'打印区域,自己修改 Selection.PrintOut Copies:=1 ' '----------------------假设 需要增加的单号在 I2 单元格 x = Len([i2]) arr = Right([i2], x - 3) ...
  • 求助:将Excel送货单里的数据自动生成明细汇总,
    答:VBA可以处理,需要上面文件附到163箱mijizili 或参考下面 Excel怎样根据日期变化汇总各表数据
  • Excel怎样让送货单自动生成对账单
    答:第二步:创建一个入出库管理表,有入库、出库、在库三张表格。第三步:建立一个送货单生产的宏。每次送货时,利用上记订单管理表输入本次发货数量。完成今后,启用该宏,自动生成送货单。送货单的大致数据项有:送货日期,订单编号,订单内序号,产品名称,产品代码,订单数量,本次送货数量。第四步:...
  • excel表格送货单号怎么设置打印一份自动递增编号加1?
    答:直到鼠标变成加号的形式;5. 点击鼠标左键并拖动鼠标,向下拖动多行,使得编号公式被复制到下面的行中;6. 点击“文件”菜单,选择“打印”,在页面设置中选择打印“所有的工作表”。在打印预览中,会发现每个订单的编号已经自动递增加1。这样就实现了在每次打印 excel 表格时自动递增编号加1的效果。
  • 请问我用EXCEL做个送货单的表格..那个单号我想要打一次后就自动加一个...
    答:EXCEL存档不好看吧。有专业的送货单软件,新峰送货单助理可以现实这个功能。新峰送货单助理(新峰送货单软件) 适用于小型企业或个人及个体户用于送货单管理.本软件集送货单,产品名称/产品单价/规格管理,月结管理,数据分析,图表分析于一身.具用自动记忆功能,你开过的送货单不需要重复录入,你送过货的客户不...
  • EXCEL能否自动生成单号?送货单自动生成+1单号
    答:当然可以,方法有很多,但要看你在什么情况下生成了。有通过函数生成的,也有通过VBA生成的。
  • 请教大神Exce表格怎么自动生成送货单?
    答:sheet1 sheet2 A1=LOOKUP(MOD(ROW(),4),{0,1,2,3},{"赠送数量:";"2016年送货单";"客户名称:";"赠送品种:"})B1=INDEX(Sheet1!$A$2:$C$26,INT(ROW(A4)/4),MOD(ROW(A4),4))两公式向下复制。筛选出A列为2016年送货单"的行。选中A1:B1合并居中,把这个合并单元格向下复制,...
  • 怎样使excel自动生成递增单号怎样使excel自动生成递增单号格式
    答:7. 如果要继续递增单号,请重复第二步到第六步的操作即可。8. 最后,保存该文件并关闭。注意:如果要生成连续的数字,不要在单元格中输入非数字字符(例如字母、符号等)。如果需要添加前缀或后缀,请在公式中添加。在Excel表格中,选择需要设置自动递增编号的单元格,例如A1单元格。2.输入第一个送货单...
  • 送货单怎么打印?
    答:在Excel中做送货单的步骤如下:第一步:打开Excel 第二步:选中第一行的前9列,点击合并并居中,如下图 第三步:在这行输入送货单,字体调成成你想要的大小 第四步:在第二行的第1列和第7列写上生产线:和NO:第五步:选中3-10行的前8列,选择如下图的划红线的田字框,效果如下图 第六...
  • excel怎样让送货单自动生成对账单
    答:应收(应付)对账单可以在WORD中,做成一个表格,就是不变的地方。其它变动的地方可以做成EXCEL表。在WORD中使用邮件合并功能,就能将EXCEL表的数据取过来。EXCEL表中可设置自动取数的,用数据有效性完成。也可设置未完成的以特别的颜色显示。