Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe vind je alle mogelijke sommen van twee getallen in een lijst in Excel?

Stel dat hier een lijst met getallen is, kunt u nu alle mogelijke sommen van twee getallen in deze lijst vinden, zoals onderstaand screenshot? In Excel is er geen ingebouwde functie die deze taak kan oplossen. Nu introduceer ik je een VBA-code om ermee om te gaan.
doc alle mogelijke sommen van twee getallen 1

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

Find all possible combinations of two lists with List All Combinationsgood idea3


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

Als u alle mogelijke sommen van twee getallen 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 getallen 2

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

doc alle mogelijke sommen van twee getallen 3 doc pijl naar rechts doc alle mogelijke sommen van twee getallen 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 sommen te vinden.
doc alle mogelijke sommen van twee getallen 5

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

Tip: In de codestring, Bereik ("C1"). Formaat wijzigen (xDic.Count, 1), kunt u C1 in een andere cel veranderen aangezien 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 vinden of een lijst wilt maken, zoals onderstaand screenshot, is de List All Combinations nut van Kutools for Excel kan je een plezier doen.
doc alle mogelijke sommen van twee getallen 7

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

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

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

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

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

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

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

Say something here...
symbols left.
You are guest
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.