ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 20955|回复: 38

[Excel 程序开发] [开_80]速度速度速度!大家都来比一比![已总结]

[复制链接]

TA的精华主题

TA的得分主题

发表于 2006-2-10 21:05 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
[答案在第30楼,总结评述在第16楼,谢谢各位的积极参与!]
好的程序除了保证正确性之外,最重要的一个评判标准就是执行的速度,这其中体现了很多技巧方面的东西。这道题就是为此而专门设计的。在此感谢坛友风的声音,他的一个问题给了我出这道题的启发。
题目很简单,就是在[a1:d65536]这262144个单元格随机生成的数据中找出前500个最大值以及这些值不连续出现的次数,所谓的"不连续出现"看下面的例子   以上8个数其中第2大的数是245,其不连续出现的次数为3次而不是4次,因为有2个连续的245只能算作1次。另外我们约定随机数中[a65536]接着[b1],[b65536]接着[c1]以此类推,就是说如果[a65536]和[b1]都=245,则只计为出现1次。至于这道题的评分办法我建议采用不同方法速度前20名的均可以得分(以版主的机器为准),当然程序越快的得分越多。而代码的简洁度我们这里不考虑,只比速度这样够客观吧。具体加分细则由版主决定。
这可是捞积分的大好机会大家可别错过哦:)(附上试题模版)
YiDpDTD0.rar (13.29 KB, 下载次数: 146)
本题答题截至日期版主告诉我以后我在加上去,到那时我会贴出我的答案供大家参考。
[此贴子已经被作者于2006-3-9 10:16:01编辑过]


[ 本帖最后由 apolloh 于 2008-11-9 10:24 编辑 ]

Eh6EoKCG.rar

13.25 KB, 下载次数: 45

[ Excel 程序开发 ] [VBA8]大家都来比速度

bjXjI6yC.rar

13.29 KB, 下载次数: 46

[ Excel 程序开发 ] [VBA8]大家都来比速度

TA的精华主题

TA的得分主题

发表于 2006-2-10 23:25 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

吸取qee用经验:

8SnDtozX.rar (9.6 KB, 下载次数: 91)


谢谢。

[此贴子已经被作者于2006-2-11 14:53:02编辑过]

wVkMst0i.rar

9.26 KB, 下载次数: 40

[ Excel 程序开发 ] [VBA8]速度速度速度!大家都来比一比!

qTTnHdZe.rar

10.46 KB, 下载次数: 22

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-11 00:02 | 显示全部楼层
不错不错,和我的答案已经很接近了,不过速度还可以提高的。

TA的精华主题

TA的得分主题

发表于 2006-2-11 09:26 | 显示全部楼层

除了禁止屏幕刷新,计算过程还真想不出能提高速度的办法。

TA的精华主题

TA的得分主题

发表于 2006-2-11 11:45 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

呵呵,支持一下!占个地先,有空把代码加进来

TA的精华主题

TA的得分主题

发表于 2006-2-11 12:22 | 显示全部楼层

要排名次,那什么时候截止呢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-11 12:59 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下是引用山菊花在2006-2-11 9:26:06的发言:

除了禁止屏幕刷新,计算过程还真想不出能提高速度的办法。

和我答案的速度还有30%~40%的差距,不过已经相当接近了,此答案必得高分,目前排名第一!看看还有没有朋友的答案能够超过你的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-11 13:04 | 显示全部楼层
以下是引用Long_III在2006-2-11 11:45:25的发言:

呵呵,支持一下!占个地先,有空把代码加进来

长三兄赶快阿!你也是很厉害的哦!做之前先不要看山菊花的答案哦,因为它的解题思路跟我的答案已经基本一致了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2006-2-11 13:10 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
以下是引用holywilly在2006-2-11 12:22:58的发言:

要排名次,那什么时候截止呢。


截止日期版主告诉我以后再加上去。holywilly:这位朋友我还不太熟,也赶紧一起来做一下吧,

TA的精华主题

TA的得分主题

发表于 2006-2-11 13:53 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

根据给定生成数据的特点,花兄的代码还可进一步简化.

s75zwmb9.rar (10.97 KB, 下载次数: 91)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-22 16:51 , Processed in 0.044402 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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