ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[Excel 程序开发] [开_86] 比速度,看谁的程序更快.

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2007-11-14 18:10 | 显示全部楼层

学习中,

就是LZ的用量名用的比较随意,

着实看的有点晕

TA的精华主题

TA的得分主题

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

精确到小数点后两位可以吗?

总是死机…………

TA的精华主题

TA的得分主题

 楼主| 发表于 2007-12-4 14:13 | 显示全部楼层
QUOTE:
以下是引用hulu456123在2007-12-2 2:26:56的发言:

精确到小数点后两位可以吗?

总是死机…………

Private arr(1 To 200), arr1, j, z, k, bb
Private arr3(1 To 65536, 1 To 1)

Sub cai()
Application.ScreenUpdating = False
aa = Timer
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin
Range("C:i") = ""
z = [A65536].End(xlUp).Row
arr1 = Range("a1", Cells(z, 1))

For i = z To 1 Step -1
 arr(i) = arr(i + 1) + arr1(i, 1)
Next i

j = 0
k = Cells(1, 2)
bb = 0

lj 1, k, ""

Range(Cells(1, 3 + bb), Cells(j, 3 + bb)) = arr3
MsgBox "找到 " & bb * 65536 + j & " 个解! 花费" & Format(Timer - aa, "0.00") & "秒"
End Sub
Sub lj(i, x, y$)
If x >= arr1(i, 1) And x <= arr(i) Then
   If x = arr1(i, 1) Then
    If j = 65536 Then
      Range(Cells(1, 3 + bb), Cells(j, 3 + bb)) = arr3
      j = 1
      bb = bb + 1
    Else
      j = j + 1
    End If
    arr3(j, 1) = y & arr1(i, 1) & "=" & k
   Else
    If i < z Then
       If x >= 2 * arr1(i, 1) Then lj i + 1, x - arr1(i, 1), y & arr1(i, 1) & "+"
       lj i + 1, x, y
    End If
   End If
End If
End Sub

这样就可以了

TA的精华主题

TA的得分主题

发表于 2007-12-25 21:22 | 显示全部楼层

fTT54jYF.rar (11.92 KB, 下载次数: 95)


用的递归法,可速度比较慢,而且好象内存消耗比较大

TA的精华主题

TA的得分主题

发表于 2009-3-15 17:21 | 显示全部楼层
我的水平还远远不够玩Excel!!!!!!!!!!!!!!!!!!

TA的精华主题

TA的得分主题

发表于 2009-9-8 17:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
正好学习

TA的精华主题

TA的得分主题

发表于 2009-10-11 04:08 | 显示全部楼层
难道诸位没有发现42楼彭版主的程序,算出来的结果是错误的吗?

用大一点的数字,比如说1-255的随机整数100个,求和值=10000

求出来的组合没有一个等于10000

貌似求得只是接近的组合,估计应该是漏算了一个数组元素

同样,32楼UNARTHUR 兄的程序也是如此

至于其他参加者,麻烦也各自测试一下。

反倒是顶楼彭版主111.88kb的那个附件,把结果保存在Excel单元格,计算结果是正确的。

另外,仔细看了彭版主的顶楼程序,其算法是穷举+剪枝法,

也就是一旦当前分支不可能计算出要求结果,就不再穷举下去,改由另一分支开始

其算法在最坏情况下的算法复杂度还是 2^n

如29个2,加一个3,求等于31的组合,那么该程序就要运算几分钟

再加x个2,运算时间就再增加 2^x 倍。49个2的话,机器会烧掉。

貌似只要可行的组合是 “稀疏”的话,该算法求解就不可行了。

另一方面,即使可行组合是“稀疏”的,但是如果排序后,可行组合处于较佳位置,对求解速度也有极大影响。

如果把上面的2全部换成4,那么0秒就可以算出来。

上述测试全部在求得第三个解后结束,不存储结果(实际上存储结果与否,对讨论算法是否快速毫无关系。)

如果有人觉得我这样批评程序是鸡蛋挑骨头的话, 那么请用这两个论坛求救帖子的数据测试一下。

[求助] 知道和找表格中的相加数!再次求救
http://club.excelhome.net/thread-386306-1-1.html

[求助] 如何从上百个数据中,求得所需数值
http://club.excelhome.net/viewth ... p;page=1#pid3186815

[ 本帖最后由 灰袍法师 于 2009-10-12 00:55 编辑 ]

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-10-16 15:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
唔,又发现顶楼118k的附件,存在某些解重复算了两次的问题

TA的精华主题

TA的得分主题

发表于 2012-4-20 12:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我也试了好多个,没一个真正能算出来准确结果的。
全是算的近似值。
实际工作中经常遇到求某个数是哪几个数的合计的,希望能给个准确的算法,一般对计算结果个数要求不应该太高,超过10个就没啥价值了。
高手试试下面这组数。

比速度从记事本输出结果.rar

11.98 KB, 下载次数: 84

TA的精华主题

TA的得分主题

发表于 2012-4-20 17:10 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-22 17:31 , Processed in 0.036602 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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