菜鸟求助：想做个发货单模板，不会弄，大侠帮下忙

dick_lau

新手求助：
我先做个发货单，可以打印和保存的，作为网店的统计凭证，
应该怎么做？我的小要求在附件中。请大虾帮帮我呀。
想了一天了，也没有弄出来，是要公式吗？

kwinawyeth

是不是这样？ 发货单模板.rar (17.72 KB, 下载次数: 93)

2011-2-10 16:57 上传

点击文件名下载附件

kwinawyeth

打印没测试

dick_lau

非常感谢楼上的这么快速的帮我，
但还有几个小问题，有时间帮我改下，见图
多谢了，这里这么热心的朋友。

[ 本帖最后由 dick_lau 于 2011-2-11 11:37 编辑 ]

dick_lau

焦急等待大侠的出现

dick_lau

各位帮帮忙呀，我实在搞不出来呀，头都大了

kwinawyeth

是不是这样？ 发货单模板.rar (17.98 KB, 下载次数: 32)

2011-2-15 17:19 上传

点击文件名下载附件

kwinawyeth

如果保存的时候不情况数据，那有可能重复保存！另发货单再毎保存一次会自动加1

kwinawyeth

vba编辑器中代码如下：

Sub 保存()
    Dim i&, a$, b&, j%
    If Sheets("发货单首页").Cells(10, 1) <> "" Then
       a = Sheets("卖出货物清单").Cells(65536, 2).End(3).Row + 1
       b = Sheets("发货单首页").Cells(65536, 1).End(3).Row
       j = 10
       Do While Sheets("发货单首页").Cells(j, 2) <> ""
          j = j + 1
       Loop
       If j = 10 Then
          MsgBox "没有数据1"
          Exit Sub
       End If
       For i = 10 To j - 1
           With Sheets("卖出货物清单")
                .Cells(a, 1) = a - 1
                .Cells(a, 2) = Sheets("发货单首页").Cells(3, 2) '发货流水号
                .Cells(a, 3) = Sheets("发货单首页").Cells(i, 1) '编码
                .Cells(a, 4) = Sheets("发货单首页").Cells(i, 2) '名称
                .Cells(a, 5) = Sheets("发货单首页").Cells(i, 3) '规格
                .Cells(a, 6) = Sheets("发货单首页").Cells(i, 4) '数量
                '.Cells(a, 7) = Sheets("发货单首页").Cells(i, 2) '进货单价
                .Cells(a, 8) = Sheets("发货单首页").Cells(i, 5) '销售单价
                .Cells(a, 9) = Sheets("发货单首页").Cells(20, 6) '已收邮费
                '.Cells(a, 10) = Sheets("发货单首页").Cells(20, 6) '已付邮费
                .Cells(a, 11) = Sheets("发货单首页").Cells(21, 6) '优惠
               ' .Cells(a, 12) = Sheets("发货单首页").Cells(i, 2) '利润
               ' .Cells(a, 13) = Sheets("发货单首页").Cells(b, 6) '小计
            End With
            'Sheets("发货单首页").Cells(i, 1) = ""
           ' Rows(i).ClearContents
            a = a + 1
        Next i
    End If
    Sheets("发货单首页").Cells(3, 2) = Sheets("发货单首页").Cells(3, 2) + 1
End Sub

Sub 打印()
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

如果要情空数据，那就把第30行的
            'Sheets("发货单首页").Cells(i, 1) = ""
前面的“'”去掉，成这样：
      Sheets("发货单首页").Cells(i, 1) = ""

dick_lau

原帖由 kwinawyeth 于 2011-2-15 17:19 发表
是不是这样？872644

非常感谢 kwinawyeth 的热心帮助，excel太强大了。
在线时在帮我处理下，有些小问题和要求。