Program do sumowania liczb z listy, aby uzyskać dokładnie 123.55

Question

w załączniku przesyłam 26 liczb z którymi mam takowy problem: mianowicie chcę otrzymać sumę dokładnie 123.55 z tych 26 liczb które tam są. Wiadomo że wszystkie to za dużo a kombinacji jest trochę dużo żeby to liczyć na piechtę. czy jest jakiś programik służący do czegoś takiego. próbowałem...

marek003 · Accepted Answer

Pomysł ciekawy.

Pozwoliłem się pobawić tym makrem.

:arrow:

do autora
Makro działą tylko że nie znajduje sumy w kombinacji sum 5 liczb.
(Można dodać okno z wyjaśnieniem)
Twoja suma pojawi się (12 kombinacji) jak dodasz jeszcze pętle dla sumy sześciu (6) liczb.

czyli w miejsce

'tu kolejna pętla dla kombinacji 6 liczb itd'

wklej

For n = m + 1 To a
  kontrol = x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1) + x(m, 1) + x(n, 1)
   If kontrol = suma Then
    Range("B1:B26").ClearContents
    Cells(i, 2) = "x": Cells(j, 2) = "x": Cells(k, 2) = "x": Cells(l, 2) = "x": Cells(m, 2)= "x": Cells(n, 2) = "x"
    MsgBox x(i, 1) & " + " & x(j, 1) & " + " & x(k, 1) & " + " & x(l, 1) & " + " & x(m, 1) & " + " & x(n, 1) & " = " & suma
    'tu trzeba zapisać gdzieś
  Else
      'tu kolejna pętla dla kombinacji 7 liczb itd
  End If
Next

Zmienił bym jeszcze dla łatwiejszego podmieniania sumy zapis na początku makra

suma = 123.55

na

suma = Range("C1").Value

i poszukiwaną sumę wpisujesz w komórkę C1 a makro podpinasz pod przycisk.

Zapewne zauważyłeś że taki kod (powiększony o powyższy wpis) sprawdza kombinację sum tylko 6 liczb. Dla kombinację większej ilości liczb należałoby dalej tworzyć kolejne pętle aż do 26 dla maksymalnej sumy. Więc może to nie są wszystkie (12 sztuk) kombinacje dla sumy 123,55.

Zaznaczą (jakby ktoś nie zauważył) że "pokazywanie" X w kolumnie B których tyczy się dana suma jest tylko dla 5 i 6 liczb ale jak ci zależy to sobie z łatwością dodasz do kombinacji sum mniejszych ilości liczb składowych.

KSRhaziel · Answer

Możesz to zrobić łatwo pętlami, konieczna jednak znajomość jakiegoś języka. W ten sposób dostaniesz wszystkie kombinacje. Na dobrą sprawę w excelu również dasz radę. A to jakiś konkurs, zadanie w szkole?

EDIT
No może nie tak łatwo, ale jak się pokombinuje to da się radę

walek33 · Answer

Poczytaj tutaj lub tutaj. Może coś dobierzesz.

krzysiekjezewski · Answer

To są liczby potrzebne do obliczenia zapotrzebowania na wodę dla miasta - czyli zadanie projektowe bardziej

adamas_nt · Answer

Formułami niewiele zdziałasz. Pokombinuj z VBA. Np z lekka przerobiony kod z drugiego linku kolegi walek33. Przy kombinacji pięciu liczb mamy już dwa wyniki. Wklej liczby do arkusza w zakres A1:A26 i uruchom

Sub szukaj_skladnikow()
Dim x As Variant
x = Range("A1:A26")
suma = 122.55

a = UBound(x, 1)

For i = 1 To a
  For j = i + 1 To a
    kontrol = x(i, 1) + x(j, 1)
    If kontrol = suma Then
      MsgBox x(i, 1) & " + " & x(j, 1) & " = " & suma
      'tu trzeba zapisać gdzieś
    Else
      For k = j + 1 To a
        kontrol = x(i, 1) + x(j, 1) + x(k, 1)
        If kontrol = suma Then
          MsgBox x(i, 1) & " + " & x(j, 1) & " + " & x(k, 1) & " = " & suma
          'tu trzeba zapisać gdzieś
        Else
          For l = k + 1 To a
            kontrol = x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1)
            If kontrol = suma Then
              MsgBox x(i, 1) & " + " & x(j, 1) & " + " & x(k, 1) & " + " & x(l, 1) & " = " & suma
              'tu trzeba zapisać gdzieś
            Else
              For m = l + 1 To a
                kontrol = x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1) + x(m, 1)
                If kontrol = suma Then
                  Range("B1:B26").ClearContents
                  Cells(i, 2) = "x": Cells(j, 2) = "x": Cells(k, 2) = "x": Cells(l, 2) = "x": Cells(m, 2) = "x"
                  MsgBox x(i, 1) & " + " & x(j, 1) & " + " & x(k, 1) & " + " & x(l, 1) & " + " & x(m, 1) & " = " & suma
                  'tu trzeba zapisać gdzieś
                Else
                  'tu kolejna pętla dla kombinacji 6 liczb itd
                End If
              Next
            End If
          Next
        End If
      Next
    End If
  Next
Next
End Sub

Program do sumowania liczb z listy, aby uzyskać dokładnie 123.55

krzysiekjezewski · Answer

Fajnie makro oczywiście działa ale jeden mankament jest. U Ciebie adamas_nt jest wynik 122.55 a miał być 123.55. Takie małe przeoczenie ale próbowałem zmienić docelową wartość w kodzie tylko nic to nie dało. Może jakaś podpowiedź jak to zrobić żeby zadziałało bo po podaniu dobrej wartości makro mi nie rusza

krzysiekjezewski · Answer

Hehe domyśliłem, się że makro nie znajduje takich liczb i dlatego nie wyskakuje ale fajnie, że odpisałeś bo bawienie się kodem wychodzi mi średnio na jeża. Dzięki wielkie:) Bardzo pomogłeś

marek003 · Answer

Zaznaczam że jest to kombinacja 6 liczb z 26.
Aby sprawdzić czy nie ma dalszych możliwości trzeba by było dodawać następne pętle.
Np. po dodaniu kolejnej pętli możliwość uzyskania sumy 123,55 wzrosła do 56 kombinacji więc trzeba oczekiwać że dodawanie kolejnych pętli zwiększy te kombinacje.
Jak chcesz sprawdzić wstaw w

'tu kolejna pętla dla kombinacji 7 liczb itd'

kod

For o = n + 1 To a
 kontrol = x(i, 1) + x(j, 1) + x(k, 1) + x(l, 1) + x(m, 1) + x(n, 1) + x(o, 1)
  If kontrol = suma Then
   Range("B1:B26").ClearContents
   Cells(i, 2) = "x": Cells(j, 2) = "x": Cells(k, 2) = "x": Cells(l, 2) = "x": Cells(m, 2) = "x": Cells(n, 2) = "x": Cells(o, 2) = "x"
   MsgBox x(i, 1) & " + " & x(j, 1) & " + " & x(k, 1) & " + " & x(l, 1) & " + " & x(m, 1) & " + " & x(n, 1) & " + " & x(o, 1) & " = " & suma
    'tu trzeba zapisać gdzieś
  Else
   'tu kolejna pętla dla kombinacji 8 liczb itd
  End If
Next

Przy okazji w poprzednim kodzie wkradł się błąd w wyświetlaniu sumowanych wartości przy 6 kombinacjach. (błąd wyświetlanej wartości nie zasady i sumy) Szósta wartość sumy była błędnie wykazywana i równała się piątej. Trzeba w poprzednim kodzie w odpowiedniej linijce zastąpić literkę m literką n
MsgBox x(i, 1) & " + " & x(j, 1) & " + " & x(k, 1) & " + " & x(l, 1) & " + " & x(m, 1) & " + " & x(n, 1) & " = " & suma

Naniosłem poprawkę w poprzednim poście.

Program do sumowania liczb z listy, aby uzyskać dokładnie 123.55

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Podsumowanie tematu