数组任意项求和

yjliurong131 · 发表于 2012-10-21 16:30

yiyiyicz 发表于 2012-10-21 16:24
抱歉，等等别人出手吧
这里高手云集
不行的话，重新发帖。只需要把数据粘上就行

还是谢谢老师，我还是学的太少，判断语句好多不会用

yjliurong131 · 发表于 2012-10-21 18:53

yiyiyicz 发表于 2012-10-21 16:23
刚才我的系统好像因此出问题了
之前只是下载并打开你的附件

老师，能把5个嵌套及判断语句部分发给我吗？
545.93 48.96 56.93 27.04 46.96
545.94 48.97 56.94 27.03 46.96
545.95 48.98 56.95 27.01 46.97
545.97 48.99 56.97 27.02 46.97
545.97 49 56.98 26.98 46.99
545.98 49.01 57.02 26.99 47.02
546.03 49.02 57.04 26.97 47.03
546.04 49.02 57.05 26.98 47.03
546.06 49.03 57.07 26.99 47.04
546.07 49.04 57.09 26.97 47.05

yiyiyicz · 发表于 2012-10-21 19:22

yjliurong131 发表于 2012-10-21 18:53
老师，能把5个嵌套及判断语句部分发给我吗？
545.93 48.96 56.93 27.04 46.96
545.94 48.97 56.94 27.0 ...

你如果很急的话，重新发帖
这5列数据粘上，并附详细说明
这个很容易处理，很快会有答案的

yiyiyicz · 发表于 2012-10-21 19:26

本帖最后由 yiyiyicz 于 2012-10-21 19:30 编辑

求出全部组合的5层嵌套循环
arr=range("a1:e10").value
redim brr(1 to 100000,1 to 2)
pp=1
for k1=1 to 10
for k2=1 to 10
for k3=1 to 10
for k4=1 to 10
for k5=1 to 10
temp=arr(k1,1)+arr(k2,2)+arr(k3,3)+arr(k4,4)+arr(k5,5)
temp1=arr(k1,1) &","& arr(k2,2) &","& arr(k3,3) &","& arr(k4,4) &","& arr(k5,5)
brr(pp,1)=temp-726(就是那五个数的和）
brr(pp,2)=temp1
pp=pp+1
next k5,k4,k3,k2,k1

yiyiyicz · 发表于 2012-10-21 19:37

如果你急着要结果
先用笨办法
对于2003版，将10万个数据分开，1万放在一列。这样数值和数据串一共是两列，这样一共是五组
然后排序，从小到大排一次；从大到小排一次。
接下来就完全手工操作，比较一下就得出最接近的十组数据了

从10万组数据里找出最大，最小的数据，需要点VBA技巧
所以，最好重新发帖

抱歉了。这几天都需要恢复系统
EH论坛让我学了不少东西
可以为了恢复系统，也付出了代价（病毒一类的东西）

yiyiyicz · 发表于 2012-10-21 20:23

本帖最后由 yiyiyicz 于 2012-10-21 20:39 编辑

谢谢版主的鼓励
我的excel现在需要修复

KCFONG · 发表于 2012-10-21 21:01

Alway backup your system by Ghost

yjliurong131 · 发表于 2012-10-21 21:10

是有点着急，谢谢老师，我这应该没病毒啊

yiyiyicz · 发表于 2012-10-21 21:26

KCFONG 发表于 2012-10-21 21:01
Alway backup your system by Ghost

thank you， very mauch
but，I've never used the ghost

behind the times

KCFONG · 发表于 2012-10-21 21:42

Backup and backup
Ghost is very usefull

		自动登录	找回密码
密码			免费注册

[求助] 数组任意项求和

评分