Dynamiczne dodawanie pętli zagnieżdżonych

Question

Mam "X" ilość zmiennych (prawdopodobnie od 3 do 20 opcji), które zostaną połączone, aby obliczyć wszystkie możliwe kombinacje, aby spełnić kryteria. Dla każdej dodatkowej zmiennej wprowadzana jest dodatkowa pętla, jednak nie wiem, czy możliwe jest utworzenie dynamicznych pętli (w Excelu kod nie musi być bardzo szybki).

Aby zademonstrować: Mam var. A z h = 2, var. B z h = 3. Chciałbym znać wszystkie kombinacje, które są równe 10 lub najlepszą kombinację dwóch zmiennych.

W tym przypadku: opcję 1 = 5 * A = 10, 3 * B = 9,2 * a a 2 * B = 10, 3 i 1 * a * b = 9

Wygląda kod tak:

For A = 0 to 5 
    h = 0 'Reset previous h if solution is found 

    For B = 0 to 5 

     h_test = A * height(A) + B * heigth(B) 

      if h_test > 10 
      if h = 0 then 
       exit for 
      else 
       write h 
       exit for 
      end if 

      h = h_test 

    Next B 
Next A 

Jeśli inny parametr jest wprowadzony (na przykład C = 4), kod jest:

For A = 0 to 5 
    h = 0 'Reset previous h if solution is found 

    For B = 0 to 5 
    h = 0 'Reset previous h if solution is found 

    For C = 0 to 5 

     h_test = A * height(A) + B * heigth(B) + C * heigth(C) 

     if h_test > 10 
      if h = 0 then 
      exit for 
      else 
      write h 
      exit for 
     end if 

     h = h_test 

     Next C 
    Next B 
Next A 

innymi słowy, chciałbym wiedzieć, czy możliwe jest, aby przetłumaczyć pseudokod do rzeczywistego kodu:

For #parameter. = X 

For loop1 = 1 to 5 
    h = 0 

    For loop2 = 1 to 5 
     h = 0 

    .... 

     For loopX = 1 to 5 

      h_test = loop1 *parameter1 + loop2 * parameter 2 ... 
         + loopX * parameter X 

      If h_test > 10 
       Somecode 
       exit for 
      End if 

     Next X 
    ... 
    Next loop2 
Next loop1 

Answer 1

Występują tutaj dwa różne problemy. Nie wspomniałeś o pierwszym, i to też musisz obliczyć wartość z nieokreśloną liczbą argumentów. Do tego możesz użyć ParamArray.

Na przykład:

Public Function Sum(ParamArray args() As Variant) As Long 
    Dim i As Long 
    Dim operand As Integer 
    Dim result As Long 

    For i = LBound(args) To UBound(args) 
     result = args(i) + result 
    Next i 

    Sum = result 
End Function 

które mogą być wykorzystywane i testowane tak:

Public Sub Test() 
    Debug.Print Sum(1,2) '=> 3 
    Debug.Print Sum(1,2,3) '=> 6 
End Sub 

Tak, że zajmuje się tym problemem. Teraz, jeśli chodzi o problem, o który pytałeś, podejmiemy podobne podejście. Kluczem jest pętla raz dla każdego otrzymanego argumentu.

Public Sub Run() 
    NestedLoop 1, 2, 3 

End Sub 

Public Sub NestedLoop(ParamArray args() As Variant) 
    Dim result As Long 
    Dim a As Variant 
    a = args 

    Dim h_test As Long 
    Dim i As Long, j As Long 

    For i = LBound(args) To UBound(args) 
     For j = 1 To 5 
     result = 0 
      h_test = Sum(a) 

      If h_test > 10 Then 
       If result = 0 Then 
        Exit For 
       Else 
        Debug.Print result 
        Exit For 
       End If 
      End If 

      result = h_test 
     Next j 
    Next i 
End Sub 


Public Function Sum(args As Variant) As Long 
    Dim i As Long 
    Dim operand As Integer 
    Dim result As Long 

    For i = LBound(args) To UBound(args) 
     result = args(i) + result 
    Next i 

    Sum = result 
End Function