| 查看: 855 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求和代码解析
|
||
|
如附件中，将表“数据”中每天每个点的价格求平均值和求和，以下是求和的代码，可我看不懂，各位老师能解析一下每条语句的作用吗？ Sub 按钮1_单击() arr = Sheets("数据" ).Range("a1" ).CurrentRegion Set d = CreateObject("scripting.dictionary" ) For a = 2 To UBound(arr) d(arr(a, 1)) = d(arr(a, 1)) + arr(a, 3) Next brr = Sheets("汇总" ).Range("a1" ).CurrentRegion For a = 2 To UBound(brr) n = n + 1 brr(n, 1) = d(brr(a, 1)) Next Sheets("汇总" ).[c2].Resize(n, 1) = brr End Sub |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : 统计.xls
2012-03-17 19:44:11, 48.5 K
» 猜你喜欢
申博发邮件
已经有5人回复
-
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有7人回复
-
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
国社科系统bug了，是不是要放榜了？
已经有3人回复
-
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有3人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 什么是物理学---从"Physics Abstracts,Classification and Contents"说起
已经有50人回复
- 怎样选择申请的学科代码？
已经有7人回复
- 毕设，数学相关专业，求指导！
已经有18人回复
- 求助：西格玛求和公式推导问题
已经有19人回复
- 【求助】请教1个定积分，如何计算，重金酬谢！！！
已经有19人回复
- 【求助】请教级数求和【已解决】
已经有8人回复
3楼2012-03-18 22:00:31
emanlee
木虫 (小有名气)
- 应助: 28 (小学生)
- 金币: 3521.6
- 散金: 100
- 红花: 2
- 帖子: 116
- 在线: 125.6小时
- 虫号: 1466309
- 注册: 2011-10-29
- 性别: GG
- 专业: 计算机应用技术
【答案】应助回帖
感谢参与，应助指数 +1
|
Sub 按钮1_单击() 子过程 arr = Sheets("数据" ).Range("a1" ).CurrentRegion 取得A1单元格 Set d = CreateObject("scripting.dictionary" ) 创建一个字典d For a = 2 To UBound(arr) 开始循环 d(arr(a, 1)) = d(arr(a, 1)) + arr(a, 3) 累加 Next 循环 brr = Sheets("汇总" ).Range("a1" ).CurrentRegion 取得A1单元格 For a = 2 To UBound(brr) 开始循环 n = n + 1 计数 brr(n, 1) = d(brr(a, 1)) Next Sheets("汇总" ).[c2].Resize(n, 1) = brr 计算汇总 End Sub |
2楼2012-03-18 08:01:16
10