| 查看: 708 | 回复: 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
» 猜你喜欢
职称评审没过，求安慰
已经有49人回复
-
26申博自荐
已经有3人回复
-
A期刊撤稿
已经有4人回复
-
垃圾破二本职称评审标准
已经有17人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有22人回复
-
EST投稿状态问题
已经有7人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
三无产品还有机会吗
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 什么是物理学---从"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