Excel精英培训网

 找回密码
 注册

QQ登录

只需一步,快速开始

你正在寻找更好的Excel学习教程吗?Excel技巧80集+数据透视表+函数初中高全套+VBA80集,想学的这儿全都有
查看: 735|回复: 16

[求助] 扫码表单汇总

[复制链接]
发表于 2017-11-26 15:54 | 显示全部楼层 |阅读模式
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
求帮助,附件中的AR,ZCB, ZA分别是根据各自N列扫码自动生成的单独单子,想把三个单子内容汇总到“总表”所示内容。并且根据AR,ZCB,ZA三页晶体个数(扫码增加)增加,自动在“总表”生成行。“总表”所列内容按AR ZCB ZA由上向下自动排行。


求助.rar

20.83 KB, 下载次数: 5

发表于 2017-11-27 10:21 | 显示全部楼层
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
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-27 10:51 | 显示全部楼层
yanhj 发表于 2017-11-27 10:21
Private Sub CommandButton1_Click()
Sheet1.[m6:m100].ClearContents    '清除总表M列数据
Dim arr(1 To ...

菜鸟不懂,能不能帮忙把上传的求助附件改写下?谢谢~
回复 支持 反对

使用道具 举报

发表于 2017-11-27 10:59 | 显示全部楼层
上传附件看一下。

求助.zip

28.41 KB, 下载次数: 6

回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-27 11:05 | 显示全部楼层
本帖最后由 guokong 于 2017-11-27 11:52 编辑
yanhj 发表于 2017-11-27 10:59
上传附件看一下。

谢谢!实际操作不行啊,总表不能自动啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-27 11:53 | 显示全部楼层
yanhj 发表于 2017-11-27 10:59
上传附件看一下。

实际操作发现总表不能随其他表自动变化啊
回复 支持 反对

使用道具 举报

发表于 2017-11-27 14:17 | 显示全部楼层
总表是根据各表的N列数据进行变化的。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2017-11-27 14:50 | 显示全部楼层
yanhj 发表于 2017-11-27 14:17
总表是根据各表的N列数据进行变化的。

刚才试验了,总表不能随各表N列数据变动呀
回复 支持 反对

使用道具 举报

发表于 2017-11-27 15:21 | 显示全部楼层
我也试了,在AR,CZB的N列增加数据,是可以在总表显示的。如果要做减少的话,要将表格部分数据删除。
回复 支持 反对

使用道具 举报

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

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

使用道具 举报

*滑块验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2018-10-18 14:02 , Processed in 0.062400 second(s), 13 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表