Multi select elements which sums upto a certain number from an array-优快云博客

本文介绍了一种使用VBA实现的组合求和算法，该算法能够找出数组中元素的各种组合，这些组合的总和等于给定的目标数值。文章通过具体实例展示了如何寻找一组数中能够加和到特定值的所有可能组合。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Give an array and a certain number,how to select some of the elements to sums upto the number?

The following codes can bring you one or more solutions out:

SubSolve(ByValTotalAsDouble,ByRefData,OptionalByValfirstsolutionAsBoolean=True)'Getthefirst(orallifthe3rdparamisfalse)combintaionswhichhasasumasTotal 

DimFitAsBoolean,CountAsLong,Result()AsString,Used()AsByte,nAsLong,TempAsDouble'Defines 

n=UBound(Data)'Countofnumbers-1 

ReDimUsed(n)

Do

Fit=False'Initialize 

Do

Fori=0Ton

Used(i)=1-Used(i)'UsedorNotused. 

IfUsed(i)=1ThenExitFor

Next

Ifi>nThenExitDo'Nothingwasfound 
Temp=0

Fori=0Ton

IfUsed(i)=1ThenTemp=Temp+Data(i)'Getthesumofuseddata 

Next

IfAbs(Temp-Total)<0.01Then'besame 

Fit=True'Asolutionhasbeenfound. 

ExitDo'Quitawhile. 

EndIf

Loop

IfFitThen'Returnthesolutionfoundjustnow. 

Count=Count+1'Solutioncount 

ReDimPreserveResult(1ToCount)'Returnthesolutionasanarray. 

Fori=0Ton

IfUsed(i)=1ThenResult(Count)=Result(Count)&"+"&Data(i)'Theexpressionofthesolution. 

Next

Result(Count)="Solution"&Count&":"&Total&"="&Mid(Result(Count),2)'messageofsolution 

Debug.PrintResult(Count)'Outputtoimmediatewindow. 

Iffirstsolution=TrueThenMsgBox"1solutionhasbeenfound!!!":ExitSub'Needthefirstsolutiononly. 

EndIf

LoopWhileFit

MsgBoxIIf(Count>1,Count&"solutionshave",IIf(Count=0,"No",1)&"solutionhas")&"beenfound!!!"'Threeoptionsoftheresult:0,1ormany 

EndSub

SubGetit()'Findcombinationsofanarraywhichsumsupto1839.1 
Solve1839.31,Array(466.89,480.49,281.06,13.61,70.59,174.86,313.82,374.66,281.5,48.95,262.86,300.33,248.56,184.4,442.91,378.47,196.49,150.7,162.87,307.73,64.97,132.79,480.06,361.54,240.13)

EndSub

It returns:

Solution1: 1839.31=13.61+70.59+174.86+313.82+248.56+442.91+378.47+196.49

If we change the codes as the following:

SubGetit()'Findcombinationsofanarraywhichsumsupto1839.1 

Solve1839.31,Array(466.89,480.49,281.06,13.61,70.59,174.86,313.82,374.66,281.5,48.95,262.86,300.33,248.56,184.4,442.91,378.47,196.49,150.7,162.87,307.73,64.97,132.79,480.06,361.54,240.13),False

EndSub

We'll get 29 solutions as the following:

Solution1: 1839.31=13.61+70.59+174.86+313.82+248.56+442.91+378.47+196.49
Solution2: 1839.31=466.89+281.06+13.61+70.59+281.5+378.47+196.49+150.7
Solution3: 1839.31=480.49+13.61+70.59+174.86+262.86+378.47+150.7+307.73
Solution4: 1839.31=281.06+13.61+70.59+174.86+313.82+281.5+48.95+196.49+150.7+307.73
Solution5: 1839.31=466.89+480.49+48.95+184.4+442.91+150.7+64.97
Solution6: 1839.31=480.49+13.61+174.86+313.82+281.5+196.49+150.7+162.87+64.97
Solution7: 1839.31=13.61+374.66+300.33+184.4+442.91+150.7+307.73+64.97
Solution8: 1839.31=13.61+313.82+48.95+300.33+248.56+378.47+162.87+307.73+64.97
Solution9: 1839.31=480.49+70.59+281.5+48.95+262.86+248.56+150.7+162.87+132.79
Solution10: 1839.31=281.06+13.61+70.59+281.5+300.33+184.4+196.49+150.7+162.87+64.97+132.79
Solution11: 1839.31=281.06+262.86+248.56+378.47+162.87+307.73+64.97+132.79
Solution12: 1839.31=466.89+70.59+174.86+48.95+262.86+184.4+150.7+480.06
Solution13: 1839.31=281.06+13.61+70.59+281.5+300.33+196.49+150.7+64.97+480.06
Solution14: 1839.31=281.06+13.61+174.86+262.86+300.33+248.56+196.49+361.54
Solution15: 1839.31=281.06+13.61+174.86+313.82+248.56+184.4+196.49+64.97+361.54
Solution16: 1839.31=70.59+174.86+281.5+48.95+378.47+150.7+307.73+64.97+361.54
Solution17: 1839.31=13.61+70.59+442.91+162.87+307.73+480.06+361.54
Solution18: 1839.31=70.59+48.95+300.33+248.56+196.49+132.79+480.06+361.54
Solution19: 1839.31=466.89+281.06+70.59+174.86+442.91+162.87+240.13
Solution20: 1839.31=374.66+281.5+248.56+184.4+196.49+150.7+162.87+240.13
Solution21: 1839.31=281.06+13.61+174.86+374.66+262.86+184.4+307.73+240.13
Solution22: 1839.31=466.89+70.59+174.86+48.95+262.86+196.49+150.7+162.87+64.97+240.13
Solution23: 1839.31=281.06+374.66+281.5+378.47+150.7+132.79+240.13
Solution24: 1839.31=70.59+374.66+48.95+184.4+307.73+132.79+480.06+240.13
Solution25: 1839.31=281.06+13.61+174.86+48.95+248.56+162.87+307.73+361.54+240.13
Solution26: 1839.31=480.49+13.61+70.59+174.86+300.33+64.97+132.79+361.54+240.13
Solution27: 1839.31=13.61+281.5+48.95+262.86+248.56+184.4+64.97+132.79+361.54+240.13
Solution28: 1839.31=313.82+262.86+300.33+162.87+64.97+132.79+361.54+240.13
Solution29: 1839.31=281.06+70.59+374.66+150.7+162.87+64.97+132.79+361.54+240.13