[vba]excel中求选中数据和为给定数所有的组合

昨天下午开始学习的vba，累死了，肯定有bug，待调试

vba程序如下：

Dim aSum As Integer
Dim tSum As Integer
Dim judge(30) As Integer
Dim arrMax As Integer
Dim arr
Dim location(30) As Integer

Function Test()
    Dim arrWmax As Integer
    Dim Rng As Range
    Dim beginRow As Integer
    Dim beginLine As Integer
    
    Set Rng = Application.InputBox(prompt:="Please Select....", Type:=8)
    rr = Rng.Address
    beginRow = Rng.Column
    beginLine = Rng.Row
    
    arr = Range(rr)
    aSum = 0
    arrMax = UBound(arr)
    arrWmax = UBound(arr, 2)

    For loca = 1 To arrMax
        location(loca) = beginLine
        beginLine = beginLine + 1
    Next
    
    For col = 2 To arrWmax  'modify
        tSum = arr(1, col)
        Call subTest(1, beginRow)
    Next

End Function

Function subTest(n As Integer, beginRow As Integer)
    If aSum > tSum Then
        Exit Function
    End If

    Dim i As Integer
    Dim j As Integer
    If aSum = tSum Then
        For i = 1 To n
            If judge(i) = 1 Then
                Sheets(1).Cells(location(i), beginRow).Interior.Color = vbRed
            End If
        Next

        Exit Function
    End If

    If n = arrMax Then
        Exit Function
    End If

    For j = n To arrMax
        If judge(j) = 0 Then
            judge(j) = 1
            aSum = aSum + arr(j, 1)
            Call subTest(j, beginRow)

            judge(j) = 0
            aSum = aSum - arr(j, 1)
            If j < arrMax Then
                While arr(j, 1) = arr(j + 1, 1)
                      j = j + 1
                Wend
            End If
        End If
    Next

End Function