入库单记录保存至汇总表

绿色心情小天使

各位坛友周末好：
现把入库单上的入库信息汇总到流水帐记录表中。
1、单据号：RK+年月日+001（001为单据流水号）--到下一年从零重新计。
2、序号按品号递增
3、点保存后，本条记录信息（如第二工作表）保存到"汇总入库单记录"
4、本入库单有上百条物料，输入完成后，在D列行末自动填上合计和汇总数（如黄色单元格）
5、汇总入库单记录中有数据的区域自动添加边框。
6、点打印后，本入库单到行底（负责人）自动打印。
烦请大神赐教，感谢！
无私送花花！

shd1201.rar (13.32 KB, 下载次数: 116)

2018-12-1 21:19 上传

点击文件名下载附件

gdw831001

找找进销存应该有你想要的

绿色心情小天使

没有人帮我吗？

学良

绿色心情小天使 发表于 2018-12-2 08:08
没有人帮我吗？

请参考:
仓库送货单记录表.zip (42.46 KB, 下载次数: 229)

2018-12-2 08:17 上传

点击文件名下载附件

mmx1122

做个进销存，稳定实用。

hzruziniu

绿色心情小天使 发表于 2018-12-2 08:08
没有人帮我吗？

1. Sub 新增()
   
2.     Range("h2") = Format(Date, "yyyy-mm-dd")
   
3.     If Format(Date, "yyyy") > Mid(Range("h3"), 3, 4) Then
   
4.         n = "001"
   
5.     Else
   
6.         n = Format(Right(Range("h3"), 3) + 1, "000")
   
7.     End If
   
8.     Range("h3") = "PK" & Format(Date, "yyyymmdd") & n
   
9.     r = Range("b65536").End(3).Row
   
10.     Range("a6:h" & r - 5).ClearContents
    
11. End Sub
    
12. 
    
13. Sub 保存()
    
14.     Dim arr(), r&, i&
    
15.     r = Range("a65536").End(3).Row
    
16.     ReDim arr(1 To r - 5, 1 To 12)
    
17.     For i = 1 To r - 5
    
18.         arr(i, 1) = Range("c2")
    
19.         arr(i, 2) = Range("h2")
    
20.         arr(i, 3) = Range("c3")
    
21.         arr(i, 4) = Range("h3")
    
22.         arr(i, 5) = Range("c4")
    
23.         For j = 2 To 8
    
24.             arr(i, j + 4) = Cells(i + 5, j)
    
25.         Next
    
26.     Next
    
27.     With Sheets("汇总入库单记录")
    
28.         r = .Range("a65536").End(3).Row + 1
    
29.         .Cells(r, 1).Resize(i - 1, 12) = arr
    
30.         .Cells(r, 1).Resize(i - 1, 12).Borders.LineStyle = xlContinuous
    
31.     End With
    
32.     MsgBox "OK！保存完毕！"
    
33. End Sub
    
34. 
    
35. Sub 打印()
    
36.     r = Range("b65536").End(3).Row
    
37.     With ActiveSheet.PageSetup
    
38.         Range("A1:H" & r).PrintPreview        '设置'打印区域预览
    
39.        ' Range("A1:H" & r).PrintOut        '设置'打印区域预览
    
40.        .BlackAndWhite = True        '单色打印
    
41.    End With
    
42. End Sub
    

复制代码

hzruziniu

1. 工作表代码，输入数量自动合计
   
2. Private Sub Worksheet_Change(ByVal Target As Range) '下拉或单元格值变化事件
   
3.     r = Range("b65536").End(3).Row - 5
   
4.     If Target.Address = "$G$6" Then
   
5.         Cells(r, 4) = "合    计"
   
6.         Cells(r, 7).Value = Cells(6, 7).Value
   
7.     End If
   
8.     If Target.Row > 6 And Target.Row < r And Target.Column = 7 Then
   
9.         Cells(r, 7).Value = Application.WorksheetFunction.Sum(Range(Cells(6, 7), Cells(r - 1, 7)))
   
10.     End If
    
11. End Sub

复制代码

hzruziniu

shd1201.rar (25.12 KB, 下载次数: 257)

2018-12-2 14:58 上传

点击文件名下载附件

绿色心情小天使

hzruziniu 发表于 2018-12-2 14:58

你好，输入品号后，前序号没有？
还弹出警示！

wulin588

序号要填上