新手求助，有关进销存表格

movli · 发表于 2018-8-1 22:29

本人新手，通过贵论坛自己借鉴摸索着做了附件中的表格，但有些功能一直无法实现，希望能有高手帮忙完善一下，在下感激不尽。

1、【打印模板】中的出库按钮功能无法实现，希望做到按一下出库按钮，就把【打印模板】中的商品信息自动填写至【销售详情】中，并且是按照先后顺序依次填写，本人已手动填写了一些数据，以供参考填写规则。
2、【库存信息】中的本月出库，可以根据【销售详情】自动填写。或者按一下【库存信息】中的刷新按钮后，根据【销售详情】更新本月出库信息。

主要未实现功能就是以上两点，大家看了以后发现我哪里做的不正确或需要改进，也欢迎修改。另外，如果方便的话，重要代码麻烦注释一下，本人希望吃鱼的同时也能学一些渔技，麻烦各位了，在下感谢不尽。

蓝桥玄霜 · 发表于 2018-8-2 08:45

请见代码。

movli · 发表于 2018-8-2 16:29

蓝桥玄霜发表于 2018-8-2 08:45
请见代码。

谢谢老师的指导，不过这段代码执行完以后会在【销售统计】生成6条记录，有时候我有效数据只有一两条，这样就会有四五条无效记录。可不可以加一个判断，如果是“无”，就不记录在【销售统计】中了。麻烦老师了。

movli · 发表于 2018-8-2 16:31

Sub 按钮6_Click()
Dim i&, Myr&, Myc%, Arr
Arr = Sheet1.UsedRange
With Sheet6
For i = 5 To UBound(Arr)
If Arr(i, 1) = "" Then Exit For
Myr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Myr, 1) = Arr(i, 1)
.Cells(Myr, 2) = Arr(i, 4)
.Cells(Myr, 3) = Arr(i, 7)
.Cells(Myr, 4) = Arr(i, 11)
.Cells(Myr, 5) = Arr(3, 10)
.Cells(Myr, 6) = Arr(1, 5)
.Cells(Myr, 7) = Arr(13, 2)
.Cells(Myr, 8) = Arr(14, 2)
.Cells(Myr, 9) = Arr(13, 6)
.Cells(Myr, 10) = Arr(14, 6)
Next
End With
End Sub

复制代码

目前的代码是这样的

movli · 发表于 2018-8-2 16:36

Sub 按钮6_Click()
Dim i&, Myr&, Myc%, Arr
Arr = Sheet1.UsedRange
With Sheet6
For i = 5 To UBound(Arr)
If Arr(i, 1) = "" Then Exit For
Myr = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Myr, 1) = Arr(i, 1)
.Cells(Myr, 2) = Arr(i, 4)
.Cells(Myr, 3) = Arr(i, 7)
.Cells(Myr, 4) = Arr(i, 11)
.Cells(Myr, 5) = Arr(3, 10)
.Cells(Myr, 6) = Arr(1, 5)
.Cells(Myr, 7) = Arr(13, 2)
.Cells(Myr, 8) = Arr(14, 2)
.Cells(Myr, 9) = Arr(13, 6)
.Cells(Myr, 10) = Arr(14, 6)
Next
End With
End Sub

复制代码

目前的代码是这样的

蓝桥玄霜 · 发表于 2018-8-3 09:05

“无”在哪一列？加个判断即可。

movli · 发表于 2018-8-3 09:29

蓝桥玄霜发表于 2018-8-3 09:05
“无”在哪一列？加个判断即可。

无在【出库登记】的A5：A10，没有商品的单元格内就是无

movli · 发表于 2018-8-3 10:05

蓝桥玄霜发表于 2018-8-3 09:05
“无”在哪一列？加个判断即可。

If Arr(i, 1) = "无" Then Exit For

感谢老师的指点，已经解决了

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

[求助] 新手求助，有关进销存表格