有二三十个数字 现在我需要 找出能凑成 和等于 41374.23 的若干个数 求高手指教 vba 或 函数 或公式 方法
2011-7-26 09:46 提问者:ykx54 | 悬赏分:100 | 浏览次数:93次
有二三十个数字 如 13960.15 5417.34 7107.4 5122.5 2275.64 5941.96 3275.03 4336.56 1190.38 2913.28 3356.74 1627.35 ......
现在我需要 找出能凑成 和等于 41374.23 的若干个数
求高手指教 vba 或 函数 或公式 方法都行
检举 | 2011-7-26 10:37 最佳答案 个数为10的示例如下:
DIM a(10)
LET N=10
DATA 1,2,3,4,5,6,7,8,9,10
FOR i=1 TO N
READ a(i)
NEXT i
FOR i=1 TO N-1
FOR j=1 TO N
IF a(i)+a(j)=15 THEN
PRINT i;j;a(i); a(j)
END IF
NEXT j
NEXT i
这是我遇到的问题 感觉和你差不多 网友给的 vba函数 挺好 问题 马上决绝了
方便的话 你把文件传个我 我给你做
[email protected]