求助VBA代码

发哥76

需求请见附件，请高手赐教，谢谢

taller

发哥76

taller 发表于 2024-5-6 01:18

大侠，您这个返回的是组合具体的元素值，能否返回每个组合元素的位置，比如arr(i)的I

鄂龙蒙

等会高手。。。。。。。。。。。。。。

ooluckydog

发哥76

ooluckydog 发表于 2024-5-6 22:55

谢谢大侠，好用

发哥76

ooluckydog 发表于 2024-5-6 22:55

If Application.Sum(result) = 10 Then
    results.Add result_idx
End If
这句的等于10应该是指和值吧，但实际上这个值不是固定死的，有各种其他可能，如何写成变量呢？或者这个种值等调用函数的时候账值

ooluckydog

发哥76 发表于 2024-5-7 13:34
If Application.Sum(result) = 10 Then
    results.Add result_idx
End If

可以定义一个公共变量

gwjkkkkk

Option Explicit
Sub test()
    Dim vResult(), ar(), br(), r&, n&, strJoin$, i&, j&
   
    With Range("A2", Cells(Rows.Count, "A").End(xlUp))
        ar = .Value
        n = UBound(ar)
        ReDim br(1 To n)
        MakeNumCount2 vResult, ar, br, r, 10
        
        
        ReDim ar(1 To UBound(vResult), 0)
        For i = 1 To UBound(vResult)
            strJoin = ""
            For j = 1 To UBound(vResult(i))
                vResult(i)(j) = "[" & .Cells(vResult(i)(j), 1).Address(0, 0) & "]"
            Next j
            ar(i, 0) = Join(vResult(i), "+") & "=10"
        Next i
        
    End With
    [D2].Resize(UBound(ar)) = ar
   
End Sub


Function MakeNumCount2(ByRef vResult(), ByVal ar, ByVal br, ByRef iGroup&, ByVal iSum&, _
    Optional ByVal iCol& = 1, Optional ByVal iTemp& = 0, Optional ByVal iStart& = 1)
    Dim i&, j&, iNum&, cr(), r&
   
    For i = iStart To UBound(br)
        iNum = ar(i, iCol): br(i) = iNum
        If iTemp + iNum = iSum Then
             r = 0: Erase cr
             For j = 1 To UBound(br)
                 If br(j) <> "" Then
                     r = r + 1
                     ReDim Preserve cr(1 To r)
                     cr(r) = j
                 End If
             Next j
             iGroup = iGroup + 1
             ReDim Preserve vResult(1 To iGroup)
             vResult(iGroup) = cr
            
        ElseIf iTemp + iNum < iSum Then
            Call MakeNumCount2(vResult, ar, br, iGroup, iSum, iCol, iTemp + iNum, i + 1)
        End If
        br(i) = ""
     Next
End Function

gwjkkkkk

参与一下。。。