ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[分享] 凑数程序(WPS-JS版本)

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-1-13 21:24 | 显示全部楼层
micch 发表于 2023-1-13 18:45
主体就这么一点代码,但是看的还是不懂,果然凑数不适合我。

micch老师,没有什么不适合的,和你一样,我也是一知半解。
我知道你是函数区的大佬,几年前,刚接触函数时,在函数区学了你和其他大佬的不少函数套路,感觉好神奇,虽然现在基本上都忘了。。。后来学VBA,感觉和函数其实也一样,还是逻辑和思路,但不管怎样,代码还得自己写了才能知道问题所在,写多了也就明白套路所在,不自己乱写几个,没法看清其中的逻辑,一点小见解,供参考。

TA的精华主题

TA的得分主题

发表于 2023-1-14 11:30 | 显示全部楼层
wodewan 发表于 2023-1-13 17:37
好的,好的,感谢这么快回复,我好好拜读一下,多谢!!!

各人思路不同,仅供参考,跑得快才算是好猫

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-1-14 12:35 | 显示全部楼层
jz_l 发表于 2023-1-14 11:30
各人思路不同,仅供参考,跑得快才算是好猫

哈哈,对对对,非常感谢你的提供的思路,我就看了一点,还没看透,然后换了个思路在最初的递归版本上加了两句剪枝,昨天上面那个朋友说的那组卡死的数据,现在直接变毫秒级,不可思议!!!
1.gif



TA的精华主题

TA的得分主题

 楼主| 发表于 2023-1-14 13:44 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 wodewan 于 2023-1-14 13:48 编辑
jz_l 发表于 2023-1-14 11:30
各人思路不同,仅供参考,跑得快才算是好猫

看你写过JS,附件是刚刚上面那个测试版本的WPS递归版本,VBA的我没写,测试了几个数据好像都比原先的要快很多,模模糊糊感觉到了一些规律,但又说不上。感觉还有很大的改善空间,毕竟主框架还是那10多行代码。若可以,帮忙看看主递归函数是否有啥问题或改善的地方,多谢。



凑数测试版.7z

13.04 KB, 下载次数: 29

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2023-1-14 16:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
wodewan 发表于 2023-1-14 13:44
看你写过JS,附件是刚刚上面那个测试版本的WPS递归版本,VBA的我没写,测试了几个数据好像都比原先的要快 ...

计算的逻辑不一样,也不好说啥问题什么的
或许可以试试剩下最后1个数的时候,查找余数在不在源数据中并且前面没用过(如果源数据有重复的数,估计还要记录某个数有几个重复的,用了多少次了。。。),这样就复杂多了,或许反而更慢。。。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-1-14 17:46 | 显示全部楼层
jz_l 发表于 2023-1-14 16:42
计算的逻辑不一样,也不好说啥问题什么的
或许可以试试剩下最后1个数的时候,查找余数在不在源数据中并 ...

嗯,好的,总之十分感谢你的帮助和指点。

TA的精华主题

TA的得分主题

发表于 2023-1-15 20:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
wodewan 发表于 2023-1-13 21:00
看来这个帖子没白发,看到你的回复说实在的挺意外的,没怎么学过数据结构和算法,之前也没写过凑数程序, ...

期待你的VBA代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-1-15 21:11 | 显示全部楼层






好的,VBA如下:

Sub 是否要再写个VBA?
    if 拿VBA和JS比较?
        --同样的逻辑计算效率肯定慢,而已上面已经比较过了,没必要。。。,Exit sub
    if 还是和你的程序比较?
        --没你的程序健壮,。。。Exit sub
    if 还是觉得JS算上面哪个数据不可能那么快?
        --下载个WPS试一下即可。。。 Exit sub
    if 还是学习?
       --上面都说过了,毫无新意,。。。 Exit sub
End Sub

所以,搞不懂你为啥期待?

TA的精华主题

TA的得分主题

发表于 2023-3-6 15:53 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2023-3-6 20:57 | 显示全部楼层
wodewan 发表于 2023-1-15 21:11
好的,VBA如下:

Sub 是否要再写个VBA?

有人期待是因为。。。真的不会转去WPS
我也期待,哈哈哈
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-18 20:00 , Processed in 0.034568 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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