ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助]方程组求解和数据排序问题

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-15 17:46 | 显示全部楼层

如果中间有2个以上的0或空单元格就不行了哦,得出的结果还是中间有0或空格。还得辛苦Long_III 君一下。

[此贴子已经被作者于2005-9-15 17:51:37编辑过]

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-16 15:36 | 显示全部楼层
Long_III 兄好忙吧,就最后的胜利了,麻烦帮忙再辛苦一下喽,谢谢啦!

TA的精华主题

TA的得分主题

发表于 2005-9-16 17:13 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
又做了一个简单排序过程,单独针对结果 7IpaMHeJ.rar (10.04 KB, 下载次数: 6)

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-16 20:40 | 显示全部楼层

新的一个遗憾,可能难度更大,如果太麻烦可以不用解决了(这种可能出现的几率应该比较小)。

例:4 6 5 0 0 0 7 14 9 15 9 13 8

龙兄得出的结果是15 9 13 9 14 8 7 5 6 4 0 0 0

但我觉得正确答案应该是15 9 14 9 13 8 7 5 6 4 0 0 0(意思就是如果出现两个相同的值,那就再往两边比较大小确定,也就是有第二优先级的问题)

又例:4 6 0 8 12 10 14 15 13 10 11 7

正确答案应该是15 14 13 10 12 10 11 8 7 6 4 0

呵呵,我都觉得现在已经很麻烦龙兄了,再次申明如果难度大就不用改了。应该不会再出现新的问题,现在可以应用在我的工作上,真是万分感谢!

TA的精华主题

TA的得分主题

发表于 2005-9-16 21:14 | 显示全部楼层
以下是引用fieldy在2005-9-16 20:40:00的发言:

呵呵,我都觉得现在已经很麻烦龙兄了,再次申明如果难度大就不用改了。应该不会再出现新的问题,现在可以应用在我的工作上,真是万分感谢!

我没有下载你的文件,贴子一路看来,都有点晕了。 龙兄,真侠也!

TA的精华主题

TA的得分主题

 楼主| 发表于 2005-9-16 21:25 | 显示全部楼层
不然人家怎么是论坛神仙,而我们是初级小兵呢。

TA的精华主题

TA的得分主题

发表于 2005-9-20 09:35 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2005-9-21 15:02 | 显示全部楼层

重新做了一个,考虑了重复值,及忽略了空白和0值,代码相对简单了很多

原先的跳转之类的,看的头晕。请楼主测试新代码 QIJGkYHP.rar (12.2 KB, 下载次数: 7)

如果有问题直接给我短信,或给我邮件hjsong_8116@163.com

TA的精华主题

TA的得分主题

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

新问题:4 6 0 0 12 10 13 15 13 10 11 7 1

你得出的答案是15 13 13 10 12 10 11 7 6 4 1 0 0

但正确答案应该是15 13 13 10 12 10 11 7 1 6 4 0 0

以前的代码不会出现这个问题,而且0值最好象以前那样不显示

TA的精华主题

TA的得分主题

发表于 2005-9-22 08:54 | 显示全部楼层

现在程序的思路很清晰,修改也很方便,因为核心部分,也就是循环过程是不变的

请看修改后的代码: 2sSufUFT.rar (12.66 KB, 下载次数: 4)

请测试

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-9-24 17:08 , Processed in 0.039955 second(s), 8 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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