送货单打印保存模板

yejinlingxy · 发表于 2015-5-17 12:56

下载了，学习一下

shi20030323 · 发表于 2015-7-2 21:17

送货单非常实用，不知楼主能不能在此基础上帮忙修改一下，非常感谢

dyj545 · 发表于 2015-7-2 22:27

感谢分享，留名备用

aman1516 · 发表于 2015-7-3 20:39

shi20030323 发表于 2015-7-2 21:17
送货单非常实用，不知楼主能不能在此基础上帮忙修改一下，非常感谢

你的表主要是公式计算，取消在表格里面设置，加个“核算”按钮自动计算好了：

Private Sub CommandButton6_Click()
'自动计算
Dim i, j, k, a, b, c, d, e, z
For i = 6 To 13       '[B65536].End(xlUp).Row
If Cells(i, 2) <> "" Then
   a = Split(Cells(i, 2), "*")(0)
   b = Split(Cells(i, 2), "*")(1)
   c = Split(Cells(i, 2), "*")(2)
   d = Cells(i, 15)
   If Cells(i, 3) <> "" Then
      z = Cells(i, 3)
   Else
      z = 1
   End If
   Cells(i, 4) = z * a * b * c * d / 1000000
   Cells(i, 5) = z * b * c / 1000000
   Cells(i, 7) = Cells(i, 4) * Cells(i, 6)
   Cells(i, 10) = Cells(i, 8) * Cells(i, 9)
End If
Next
End Sub

对于不同公司的表格格式的设置，主要将代码里面所有涉及到的变量、单元格都对应起来，所需的数据对应提取就行了。

aman1516 · 发表于 2015-7-3 20:41

如有什么需修改的，自己再完善下吧

送货单待修改(0703).rar (69.2 KB, 下载次数: 471)

pearlpearl867 · 发表于 2015-8-13 13:50

太强大了，能教我一下吗？QQ439567325

毛病不周正 · 发表于 2015-12-17 16:40

感谢楼主！让我找到了自己所需的送货单，谢谢！本人菜鸟，想删除单据前面两栏，以及数量合计，无奈怎么改都会改变单据格式，真心求教！

624089640 · 发表于 2016-3-6 12:23

请问楼主能帮忙修改下吗

solemn123 · 发表于 2016-4-6 07:46

请问楼主能帮忙修改下吗加入经办人，合并录入数据簿，信息资料

heesechina · 发表于 2016-6-27 19:32

aman1516,您的这个excel送货单表格很实用，但是导出为html格式时文件中所有内容（包括控件按纽）都导进去了，指定单元格无效,能不能修改代码；另：在表格中增加行时，TextBox1怎么删除一些单元格的赋值，即您的表中产品名称下列的表格C6-C13,比如要删除C6单元格，怎么操作？请不吝指教。THANKS!

		自动登录	找回密码
密码			免费注册

[分享] 送货单打印保存模板