根据销售明细表自动生成出库单

liuyizhong · 发表于 2016-1-23 11:22

求助各位老师，如何根据销售明细表自动生成出库单，每一条对应自动生成一张出库单，本表96行数据生成96张出库单，要求行高和打印格式一样。
请看附件

复件出入库单.rar (8.41 KB, 下载次数: 521)

cqlpjxx · 发表于 2016-1-23 13:51

Private Sub CommandButton1_Click()
Dim arr, i As Integer, ro As Integer
arr = Sheet1.[a2:g97]
For i = 1 To 96
ro = (i - 1) * 17 + 1
Sheet3.Rows("1:17").Copy Sheets("出库单").Rows(ro & ":" & ro)
With Sheets("出库单")
Cells(ro + 3, 2) = arr(i, 3)
Cells(ro + 3, 6) = arr(i, 2)
Cells(ro + 5, 2) = arr(i, 4)
Cells(ro + 5, 3) = arr(i, 5)
Cells(ro + 5, 4) = arr(i, 6)
Cells(ro + 5, 6) = arr(i, 7)
End With
Next
End Sub

cqlpjxx · 发表于 2016-1-23 13:53

请测试...................

liuyizhong · 发表于 2016-1-23 14:26

本帖最后由 liuyizhong 于 2016-1-24 19:54 编辑

谢谢楼上大侠

wanghx8866 · 发表于 2017-4-2 16:13

老师有上传正确的吗

wanghx8866 · 发表于 2017-4-2 16:22

老师能生成多行的吗

elangirl147 · 发表于 2017-5-25 15:30

非常好，好想知道怎么编制的

elangirl147 · 发表于 2017-5-25 15:31

2楼的老师可以认识你吗？教我是怎么编制的吗

chenyun1234 · 发表于 2017-5-25 17:38

cqlpjxx 发表于 2016-1-23 13:53
请测试...................

追问：

1、同一客户，同一日期，不同的是【品名】与【单位】，能存放在同一份出库单么？

谢谢

麦美美 · 发表于 2017-12-12 14:21

chenyun1234 发表于 2017-5-25 17:38
追问：

1、同一客户，同一日期，不同的是【品名】与【单位】，能存放在同一份出库单么？

我也想要这样的出库单，有吗？

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

[求助] 根据销售明细表自动生成出库单