扫码表单汇总

guokong

求帮助，附件中的AR,ZCB, ZA分别是根据各自N列扫码自动生成的单独单子，想把三个单子内容汇总到“总表”所示内容。并且根据AR,ZCB,ZA三页晶体个数（扫码增加）增加，自动在“总表”生成行。“总表”所列内容按AR ZCB ZA由上向下自动排行。

yanhj

Private Sub CommandButton1_Click()
Sheet1.[m6:m100].ClearContents    '清除总表M列数据
Dim arr(1 To 12)
r = 6
For x = 2 To Sheets.Count   '第2、3、4页循环
    For i = 1 To 12      '每页的常用数据进数组
      arr(i) = Sheets(x).Cells(4, i)
    Next
    For j = 1 To Sheets(x).Range("N65536").End(3).Row
     Sheet1.Cells(r, 13) = Sheets(x).Cells(j, 14)     '每页的N列数据放在总表M列
     Sheet1.Cells(r, 1) = arr(1)                     '根据M列数据和数组采集的常规数据填表
     Sheet1.Cells(r, 2) = Mid(Sheet1.Cells(r, 13), 1, 5)
     Sheet1.Cells(r, 3) = Mid(Sheet1.Cells(r, 13), 8, 3) / 10 & "度"
     Sheet1.Cells(r, 4) = arr(4)
     Sheet1.Cells(r, 5) = arr(9)
     Sheet1.Cells(r, 6) = arr(10)
     Sheet1.Cells(r, 7) = Mid(Cells(r, 13), 11, 10)
     Sheet1.Cells(r, 8) = Mid(Sheet1.Cells(r, 13), 17, 2) + 2000 & "年" & Mid(Sheet1.Cells(r, 13), 19, 2) & "月"
     Sheet1.Cells(r, 9) = Mid(Sheet1.Cells(r, 13), 23, 2) + 2000 & "年" & Mid(Sheet1.Cells(r, 13), 21, 2) & "月"
     Sheet1.Cells(r, 10) = arr(6)
     Sheet1.Cells(r, 11) = arr(5)
     r = r + 1
    Next
Next
'加表尾（省略）
End Sub

guokong

yanhj 发表于 2017-11-27 10:21
Private Sub CommandButton1_Click()
Sheet1.[m6:m100].ClearContents    '清除总表M列数据
Dim arr(1 To ...

菜鸟不懂，能不能帮忙把上传的求助附件改写下？谢谢~

yanhj

上传附件看一下。

guokong

yanhj 发表于 2017-11-27 10:59
上传附件看一下。

谢谢！实际操作不行啊，总表不能自动啊

guokong

yanhj 发表于 2017-11-27 10:59
上传附件看一下。

实际操作发现总表不能随其他表自动变化啊

yanhj

总表是根据各表的N列数据进行变化的。

guokong

yanhj 发表于 2017-11-27 14:17
总表是根据各表的N列数据进行变化的。

刚才试验了，总表不能随各表N列数据变动呀

yanhj

我也试了，在AR，CZB的N列增加数据，是可以在总表显示的。如果要做减少的话，要将表格部分数据删除。

guokong

yanhj 发表于 2017-11-27 15:21
我也试了，在AR，CZB的N列增加数据，是可以在总表显示的。如果要做减少的话，要将表格部分数据删除。

感谢帮助。总表随着AR ZCB ZA三个表扫码增加或减少，不能同步增加和减少。我实际测试并没有反应。不得其解