Find the cells contain value sum up to a target value

[eyelash]

My work is still using MS2016, and the Solver is disabled. I need to find the transactions that sum up to a targeted value.
For instance: Col A has following amount, and the target amount is 90.23
15.23
50.00
566.45
74.20
13.45
45.00
66.78
0.23

 

[Cubist]

If you Google "Subset sum problem", you'll find many articles related to your query.

 

[eyelash]

If you Google "Subset sum problem", you'll find many articles related to your query.

Thank you! I tried searching "Subset sum problem" in Google , and find a lots of interesting articles and videos related to.

However, so far, they only work for the whole number, won't work for decimal or negative numbers.

 

[Cubist]

Maybe you didn't look hard enough .
Answer from StackOverflow.
VBA CODE:

Function SumSolver(Goal As Double, ListRange As Range)

Dim i As Long, j As Long, Answer As Double, k As Long, rng As Variant
Dim Answerlist As String, LastAdded As Long, AnswerListPos As String

rng = Application.Transpose(ListRange)

For i = 1 To UBound(rng)
    If rng(i) = Goal Then
        Answerlist = rng(i)
        GoTo SubExit
    ElseIf rng(i) < Goal Then
        Answer = rng(i)
        Answerlist = rng(i)
        AnswerListPos = i
        For j = i + 1 To UBound(rng)
            If Answer + rng(j) = Goal Then
                Answerlist = Answerlist & "," & rng(j)
                AnswerListPos = AnswerListPos & "," & j
                GoTo SubExit
            ElseIf Answer + rng(j) < Goal Then
                Answer = Answer + rng(j)
                LastAdded = j
                If Answerlist = "" Then
                    Answerlist = rng(j)
                    AnswerListPos = j
                Else
                    Answerlist = Answerlist & "," & rng(j)
                    AnswerListPos = AnswerListPos & "," & j
                End If
            End If
            If j = UBound(rng) Then
                If LastAdded = UBound(rng) Then
                    Answerlist = Left(Answerlist, InStrRev(Answerlist, ",") - 1)
                    AnswerListPos = Left(AnswerListPos, InStrRev(AnswerListPos, ",") - 1)
                    Answer = Answer - rng(j)
                    LastAdded = Val(Mid(AnswerListPos, InStrRev(AnswerListPos, ",") + 1))
                End If
                If LastAdded > 0 Then Answer = Answer - rng(LastAdded)
                If InStr(Answerlist, ",") = 0 Then Exit For
                j = Val(Mid(AnswerListPos, InStrRev(AnswerListPos, ",") + 1))
                Answerlist = Left(Answerlist, InStrRev(Answerlist, ",") - 1)
                AnswerListPos = Left(AnswerListPos, InStrRev(AnswerListPos, ",") - 1)
            End If
        Next j
    End If
    Answerlist = ""
Next i

SubExit:

If Answerlist <> "" Then
    SumSolver = Answerlist
Else
    SumSolver = "N/A"
End If

End Function

Book1
	A	B	C	D	E	F	G
1	List	Target	Answer		List	Target	Answer
2	15.23	49.2	-25,74.2		-10	-4	-10,-2,8
3	50				-2
4	-25				16
5	74.2				8
6	13.45
7	45
8	66.78
9	0.23
Sheet6

Cell Formulas
Range	Formula
C2	C2	=SumSolver(B2,A2:A9)
G2	G2	=SumSolver(F2,E2:E5)