送货单打印保存模板

yejinlingxy

下载了，学习一下

shi20030323

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

dyj545

感谢分享，留名备用

aman1516

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

如有什么需修改的，自己再完善下吧
送货单待修改(0703).rar (69.2 KB, 下载次数: 471)

2015-7-3 20:41 上传

点击文件名下载附件

pearlpearl867

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

毛病不周正

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

624089640

请问楼主能帮忙修改下吗

solemn123

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

heesechina

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