如何通过excel中一个表中录入信息，通过保存按钮自动将录入信息汇总到另一个表中

雪兰1

1、  表1中按指定模板录入数据后，通过点击“保存”按钮后：自动在表2汇总录入记录信息，且按每次编号序顺保存新增在下一行；(已实现保存功能 ） 2、  表1中编号为自动按顺序生成，由7位数字组成，分别为年月3位自然数组成，每保存一次数据，编号按顺序自动增加1，实例：201603001；每月过完新的月份后三位又从001开始； 3、  表1中日期为当前系统日期，自动录入； 4、  表1中点击“清空”按钮，清空当前已输入的所有数据。(已实现清空功能 ） 5、将表2中数据通过按钮将当前选中的一行数据自动添加到表1对应模板（也可以通过在表中添加查询按钮，根据在编号列输入内容将表2中对应编号数据添加到表1中）

补充内容 (2016-3-16 22:59):
感谢YGWYJ网友的帮忙，我要的功能全都都实现了。请热心的网友去别的贴字里帮人回答吧。谢谢了。

ygwyj

你的附件下载不了，请检查。

雪兰1

ygwyj 发表于 2016-3-14 00:57
你的附件下载不了，请检查。

目前已实现通过“提交”按钮将当前录入的信息保存到数据库中，但其它没现实的问题如下：
1、编号自动按年月3位自然数据自动生成；
2、日期根据当前系统时间自动添加；
3、每次点击“新增”按钮清空当前已录入信息，编号自动判断数据库中最后一行中编号且在最后一位加1生成。
4、是否可以在数据库表中“最后一列”通过按钮实现将对应行数据添加到表中对应模板中，这样可以方便打印历史订单。

ygwyj

这个对我来说有点难了，我也是新手，等老大来帮你吧！我先研究着。。。如果没有人应你，到时再 Call me

雪兰1

ygwyj 发表于 2016-3-14 21:42
这个对我来说有点难了，我也是新手，等老大来帮你吧！我先研究着。。。如果没有人应你，到时再 Call me

好的，谢谢了，大家一起学习

心的启点

雪兰1 发表于 2016-3-14 11:49
目前已实现通过“提交”按钮将当前录入的信息保存到数据库中，但其它没现实的问题如下：
1、编号自动按 ...

你把开单表所有全填好后保存一下，我看看对应的关系，你这里边有三个料号，不知道怎么对应！

雪兰1

心的启点 发表于 2016-3-14 23:56
你把开单表所有全填好后保存一下，我看看对应的关系，你这里边有三个料号，不知道怎么对应！

已更新，第5条需求也可能在表1中通过编号索引输入内容，再点击“查询”按钮模糊查找表2中的相同编号同去加数据添加到表1中，思路暂时是这样，麻烦帮忙实现下

ygwyj

1. Sub 提交()
   
2. Application.ScreenUpdating = False
   
3. Dim n%, m%, x%, y%, k%
   
4. On Error GoTo 100
   
5.     If Sheets("数据库").[A:A].Find([J3]) = [J3] Then
   
6.         MsgBox "此单已经保存过了！"
   
7.     Else
   
8. 100:
   
9.         If [C4] = "" Or [C5] = "" Or [C6] = "" Or [J5] = "" Then MsgBox "信息没有填写完整，不能保存！": End
   
10.         m = Sheets("数据库").[A65536].End(xlUp).Row + 1
    
11.         With Sheets("数据库")
    
12.             .Cells(m, "A").Value = [J3] '编号
    
13.             .Cells(m, "B").Value = [J4] '开单日期
    
14.             .Cells(m, "C").Value = [C4] '客户
    
15.             .Cells(m, "D").Value = [C5] '品名
    
16.             .Cells(m, "E").Value = [C6] '料号
    
17.             .Cells(m, "F").Value = [J6] '成品规格
    
18.             .Cells(m, "G").Value = [J5] '生产数量
    
19.             .Cells(m, "H").Value = [B9] '封样单号
    
20.             .Cells(m, "I").Value = [E9] '刀模编号
    
21.             .Cells(m, "J").Value = [i10] '拼版数量
    
22.             .Cells(m, "K").Value = [B7] '材料1
    
23.             .Cells(m, "L").Value = [H7] '规格1
    
24.             .Cells(m, "M").Value = [F7] '供应商1
    
25.             .Cells(m, "N").Value = [J7] '材料数量
    
26.             .Cells(m, "O").Value = [B8] '材料2
    
27.             .Cells(m, "P").Value = [H8] '规格2
    
28.             .Cells(m, "Q").Value = [F8] '供应商2
    
29.             .Cells(m, "R").Value = [J8] '材料数量2
    
30.             .Cells(m, "S").Value = [H9] '加工车次
    
31.             .Cells(m, "T").Value = [B10] '包装方式
    
32.             .Cells(m, "U") = [F10] '包装数量
    
33.             .Cells(m, "V").Value = [J9] '交期
    
34.             .Cells(m, "W").Value = [B11] '物流方式
    
35.         End With
    
36.         MsgBox "提交成功！"
    
37.     End If
    
38. ActiveWorkbook.Save
    
39. Application.ScreenUpdating = True
    
40. End Sub
    
41. 
    
42. Sub 新增()
    
43. Dim es As Range, k%, m$, i%
    
44. Dim rng1 As Range, rng2 As Range
    
45. On Error Resume Next
    
46. Application.ScreenUpdating = False
    
47. [J4] = Format(Now())
    
48. Set es = Sheets("数据库").Columns(1).Find("*", , xlFormulas, , , xlPrevious)
    
49. k = Format(Mid(es.Value, 6, 1), "00")
    
50. m = Format(Mid(es.Value, 9, 3), "000")
    
51. i = Format(Now, "mm")
    
52.     If Sheets("数据库").Range("A2") = "" Then [J3] = Format(Now, "yyyymm") & "001": Exit Sub
    
53.         If i > k Then
    
54.             [J3] = Format(Now, "yyyymm") & "001": End
    
55.         ElseIf i = k Then
    
56.             [J3] = Format(Now, "yyyymm") & Format(m + 1, "000")
    
57.         End If
    
58. Sheets("指示单").Range("C4:H4,C5:H5,C6:H6,J5,J6,B7.D7,F7,H7,J7,B8,D8,F8,H8,J8,B9,E9,H9,J9,B10:D10,F10:J10,B11:J11") = ""
    
59. Application.ScreenUpdating = True
    
60. End Sub
    
61. Sub 查询()
    
62. Dim rg As Range, i%, j%
    
63. Application.ScreenUpdating = False
    
64. If IsNumeric([J3]) = False Then MsgBox "单号错误": Exit Sub
    
65. Set rg = Sheets("数据库").Columns(1).Find([J3], , , 1)
    
66. If rg Is Nothing Then MsgBox "单号格式不正确或查询不到单号数据！": Exit Sub
    
67. With Sheets("数据库")
    
68.     i = .Columns(1).Find([J3], searchdirection:=xlNext).Row
    
69.     arr = .Range("a" & i & ":w" & i)
    
70.         [J4] = arr(1, 2) '开单日期
    
71.         [C4] = arr(1, 3) '客户
    
72.         [C5] = arr(1, 4) '品名
    
73.         [C6] = arr(1, 5) '料号
    
74.         [J6] = arr(1, 6) '成品规格
    
75.         [J5] = arr(1, 7) '生产数量
    
76.         [B9] = arr(1, 8) '封样单号
    
77.         [E9] = arr(1, 9) '刀模编号
    
78.         [i10] = arr(1, 10) '拼版数量
    
79.         [B7] = arr(1, 11) '材料1
    
80.         [H7] = arr(1, 12) '规格1
    
81.         [F7] = arr(1, 13) '供应商1
    
82.         [J7] = arr(1, 14) '材料数量
    
83.         [B8] = arr(1, 15) '材料2
    
84.         [H8] = arr(1, 16) '规格2
    
85.         [F8] = arr(1, 17) '供应商2
    
86.         [J8] = arr(1, 18) '材料数量2
    
87.         [H9] = arr(1, 19) '加工车次
    
88.         [B10] = arr(1, 20) '包装方式
    
89.         [F10] = arr(1, 21) '包装数量
    
90.         [J9] = arr(1, 22) '交期
    
91.         [B11] = arr(1, 23) '物流方式
    
92. End With
    
93. Application.ScreenUpdating = True
    
94. End Sub
    

复制代码

ygwyj

请查看附件   生产开单系统.rar (24.36 KB, 下载次数: 2522)

2016-3-15 01:16 上传

点击文件名下载附件

雪兰1

ygwyj 发表于 2016-3-15 01:18
请查看附件

太感谢你了，已全部实现我要的需求