Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe alle mogelijke sommen van twee nummers in een lijst in Excel te vinden?

Stel dat hier een lijst met getallen staat, zou je nu alle mogelijke sommen van twee nummers in deze lijst kunnen vinden zoals onderstaand screenshot getoond? In Excel is er geen ingebouwde functie die deze taak kan oplossen. Nu introduceer ik je een VBA-code om het aan te pakken.
doc alle mogelijke sommen van twee nummers 1

Find all possible sums of two numbers in a list with VBA code

Find all possible combinations of two lists with List All Combinationsgoed idee3


List all combinations of two or more lists in Excel sheet

U hebt bijvoorbeeld twee lijst met waarden, wat u wilt is om deze twee lijsten te combineren om alle mogelijke combinaties te krijgen, zoals hieronder wordt getoond. Over het algemeen kunt u ze één voor één combineren, maar als er tientallen waarden moeten worden gecombineerd, kost deze handmatige methode veel tijd. In dit geval kunt u proberen toe te passen Kutools for Excel's List All Combinations hulpprogramma, waarmee u snel alle combinaties van twee of meer lijsten kunt genereren die u nodig hebt .. Click for 60 days free trial!
doc-lijstcombinaties
Kutools for Excel: with more than 200 handy Excel add-ins, free to try with no limitation in 60 days.

Find all possible sums of two numbers in a list with VBA code

Als u alle mogelijke sommen van twee nummers in een lijst wilt vinden, kunt u onderstaande VBA-code toepassen.

1. druk op Alt + F11 toetsen om de Microsoft Visual Basic for Applications venster.

2. klikken Insert > Module, kopieer en plak onderstaande code in de module.

VBA: List all possible sums of two numbers in a list

Sub Combinations()
'UpdatebyExtendoffice20180628
    Dim xRgArr
    Dim xNum As Long
    Dim I, J, K As Long
    Dim xTemp As Double
    Dim xRg As Range
    Dim xRgCount As Long
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select a list (one column):", "KuTools for Excel", Selection.Address, , , , , 8)
    If (xRg Is Nothing) Or (xRg.Count = 1) Then Exit Sub
    xRgCount = xRg.Count
    K = 1
    ReDim xRgArr(1 To xRgCount)
    For Each xCell In xRg
      xRgArr(K) = xCell.Value
      K = K + 1
    Next
    K = 0
    For I = 1 To xRgCount
        For J = I + 1 To xRgCount
            xTemp = xRgArr(I) + xRgArr(J)
            If Not xDic.Exists(xTemp) Then
                xDic.Add CDbl(xTemp), CStr(xTemp)
                K = K + 1
            End If
        Next
    Next
    Range("C1").Resize(xDic.Count, 1) = Application.WorksheetFunction.Transpose(xDic.Keys)
End Sub

doc alle mogelijke sommen van twee nummers 2

3. klikken Tools > References, controleer in het popping-dialoogvenster Microsoft Scripting Runtime checkbox.

doc alle mogelijke sommen van twee nummers 3 doc pijl rechts doc alle mogelijke sommen van twee nummers 4

4. klikken OK om het dialoogvenster te sluiten en druk vervolgens op F5 om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren een lijst te selecteren om de mogelijke bedragen te vinden.
doc alle mogelijke sommen van twee nummers 5

5. klikken OK, dan worden alle mogelijke sommen van twee nummers in de lijst weergegeven in kolom C.
doc alle mogelijke sommen van twee nummers 6

Tip: In de code string, Range ("C1"). Resize (xDic.Count, 1), kunt u C1 naar een andere cel veranderen, omdat u het resultaat moet plaatsen.


Find all possible combinations of two lists with List All Combinations

Als u alle mogelijke combinaties van twee lijsten wilt zoeken of weergeven, zoals hieronder wordt getoond, toont de List All Combinations nut van Kutools for Excel kan je een plezier doen.
doc alle mogelijke sommen van twee nummers 7

1. klikken Kutools > Insert > List All Combinations.
doc alle mogelijke sommen van twee nummers 8

2. In de List All Combinations dialoogvenster, klik op de selectieknop om de eerste lijst te selecteren die u wilt combineren.
doc alle mogelijke sommen van twee nummers 9

3. klikken Add om de lijst toe te voegen Combinations list sectie.
doc alle mogelijke sommen van twee nummers 10

4. Herhaal stap 2 en 3 om de tweede lijst toe te voegen aan de Combinations list.
doc alle mogelijke sommen van twee nummers 11

5. Dan klikken Ok om een ​​cel te selecteren om het combinatieresultaat te plaatsen.
doc alle mogelijke sommen van twee nummers 12

6. klikken OK. Alle mogelijke combinaties zijn in cellen weergegeven.
doc alle mogelijke sommen van twee nummers 13

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.