ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-全球最大网赌正规平台可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 356|回复: 17
打印 上一主题 下一主题

[求助] 电气安装工程量下载手机app 可领取38彩金表VBA求助

[复制链接]

TA的精华主题

TA的得分主题

跳转到指定楼层
1
发表于 2019-8-12 19:15 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式


小弟是做安装预算的,VBA这块也是不会,自己编了一个表格,下载手机app 可领取38彩金表格是可以自动下载手机app 可领取38彩金的,但汇总这块不知道怎么做到另一张表上面去,现在附件是我自己手动汇总的,请哪位大神能帮我用VBA实现这个安装表格工程量自动下载手机app 可领取38彩金和分类汇总的功能,小弟不胜感激!

电缆电线下载手机app 可领取38彩金表.rar

21.2 KB, 下载次数: 21

下载手机app 可领取38彩金表格

TA的精华主题

TA的得分主题

2
发表于 2019-8-12 19:52 | 只看该作者
可以考虑使用字典进行汇总。。。。
论坛资料可以查查

TA的精华主题

TA的得分主题

3
发表于 2019-8-12 21:40 来自手机 | 只看该作者

TA的精华主题

TA的得分主题

4
 楼主| 发表于 2019-8-12 21:45 来自手机 | 只看该作者

TA的精华主题

TA的得分主题

5
 楼主| 发表于 2019-8-13 07:59 | 只看该作者
有那位大神可以帮忙写下电气安装表格工程量自动下载手机app 可领取38彩金和分类汇总的功能,小弟不胜感激!

TA的精华主题

TA的得分主题

6
发表于 2019-8-13 08:07 | 只看该作者
3楼的方法是OK的,搜索一下相关帖,抄改一下代码即可

TA的精华主题

TA的得分主题

7
 楼主| 发表于 2019-8-13 08:20 | 只看该作者
microyip 发表于 2019-8-13 08:07
3楼的方法是OK的,搜索一下相关帖,抄改一下代码即可

老哥,关键VBA我是门外汉,代码都看不懂。。。

TA的精华主题

TA的得分主题

8
发表于 2019-8-13 08:37 | 只看该作者
做工程的,厉害!基建狂魔,有你一份功劳,支持一下:
  1. Sub test()
  2. Sheet2.UsedRange.Offset(1).Clear
  3. Set d = CreateObject("scripting.dictionary")
  4. With Sheet1
  5.     r = .Cells(Rows.Count, "K").End(xlUp).Row
  6.     ar = .Range("K1:Q" & r)
  7.     ReDim br(1 To r, 1 To 3): n = 0
  8.     For i = 6 To r
  9.         s = ar(i, 1) & "|" & ar(i, 2)
  10.         If Len(s) - 1 Then
  11.             If d.exists(s) Then
  12.                 p = d(s)
  13.                 br(p, 3) = br(p, 3) + ar(i, 7)
  14.             Else
  15.                 n = n + 1
  16.                 d(s) = n
  17.                 br(n, 1) = ar(i, 1)
  18.                 br(n, 2) = ar(i, 2)
  19.                 br(n, 3) = ar(i, 7)
  20.             End If
  21.         End If
  22.     Next
  23.     Sheet2.Range("A2").Resize(n, 3) = br
  24. '-----------------
  25.     r = .Cells(Rows.Count, "S").End(xlUp).Row
  26.     ar = .Range("S1:Y" & r)
  27.     ReDim br(1 To r, 1 To 3): n = 0: d.RemoveAll
  28.     For i = 6 To r
  29.         s = ar(i, 1) & "|" & ar(i, 2)
  30.         If Len(s) - 1 Then
  31.             If d.exists(s) Then
  32.                 p = d(s)
  33.                 br(p, 3) = br(p, 3) + ar(i, 7)
  34.             Else
  35.                 n = n + 1
  36.                 d(ar(i, 1) & "|" & ar(i, 2)) = n
  37.                 br(n, 1) = ar(i, 1)
  38.                 br(n, 2) = ar(i, 2)
  39.                 br(n, 3) = ar(i, 7)
  40.             End If
  41.         End If
  42.     Next
  43.     Sheet2.Range("D2").Resize(n, 3) = br
  44.     Sheet2.Range("a1").CurrentRegion.Borders.LineStyle = 1
  45. End With
  46. End Sub
复制代码

评分

参与人数 1鲜花 +2 收起 理由
bbsy83 + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

9
 楼主| 发表于 2019-8-13 09:06 | 只看该作者
我用类似的代码帖进去,定义不对,不知道怎么修改了

TA的精华主题

TA的得分主题

10
 楼主| 发表于 2019-8-13 09:07 | 只看该作者

我用类似的代码帖进去,定义不对,不知道怎么修改了

电缆电线下载手机app 可领取38彩金表 - 副本.rar

30.79 KB, 下载次数: 4

版本

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-8-18 14:08 , Processed in 0.103320 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表
博聚网