| 查看: 815 | 回复: 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
» 猜你喜欢
欢迎发来filecode的Mz6后的代码验证其规律
已经有69人回复
-
有时候，自然基金真的不能太认真 （我的申报经验）
已经有11人回复
-
时间戳又变了8-15
已经有23人回复
-
filecode=后面第一个是大写字母
已经有7人回复
-
filecode
已经有12人回复
-
小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊
已经有13人回复
-
哪位老哥知道今年的国自然具体哪一天放榜？
已经有7人回复
-
关于Filecode分析方法
已经有13人回复
-
各位道友，我要去昆明玩几天，回来见。
已经有8人回复
-
咱们一起用铁证分析2026国家社科基金中标与否
已经有22人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 什么是物理学---从"Physics Abstracts,Classification and Contents"说起
已经有50人回复
- 怎样选择申请的学科代码？
已经有7人回复
- 毕设，数学相关专业，求指导！
已经有18人回复
- 求助：西格玛求和公式推导问题
已经有19人回复
- 【求助】请教1个定积分，如何计算，重金酬谢！！！
已经有19人回复
- 【求助】请教级数求和【已解决】
已经有8人回复
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
3楼2012-03-18 22:00:31
 |
4楼2012-03-25 18:29:12
