Hoe vindt u alle mogelijke sommen van twee getallen uit een lijst in Excel?
Als u alle mogelijke sommen van twee getallen uit een lijst wilt vinden of alle mogelijke combinaties van twee lijsten in Excel wilt weergeven, zijn er helaas geen ingebouwde functies die dit direct mogelijk maken. Deze handleiding presenteert een VBA-codeoplossing voor het berekenen van sommen en het handige hulpprogramma ‘Lijst alle combinaties op’ uit Kutools voor Excel, waarmee u combinaties efficiënt kunt verwerken.
Find all possible sums of two numbers in a list with VBA code
Find all possible combinations of two lists with List All Combinations 
Find all possible sums of two numbers in a list with VBA code
Wilt u alle mogelijke sommen van twee getallen in een lijst vinden? Gebruik dan de onderstaande VBA-code.
1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster weer te geven.
2. Klik op Insert > Module en kopieer de onderstaande code naar 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
3. Klik op Tools > References en schakel in het verschijnende dialoogvenster het selectievakje Microsoft Scripting Runtime in.
 |  |  |
4. Klik op OK om het dialoogvenster te sluiten en druk vervolgens op F5 om de code uit te voeren. Er verschijnt dan een dialoogvenster waarin u wordt gevraagd een lijst te selecteren voor het berekenen van de mogelijke sommen.
5. Klik op OK, waarna alle mogelijke sommen van twee getallen uit de lijst in kolom C worden weergegeven.
Tip: In de coderegel Range("C1").Resize(xDic.Count, 1) kunt u C1 wijzigen naar een andere cel waar u de resultaten wilt plaatsen.
Find all possible combinations of two lists with List All Combinations
Wilt u alle mogelijke combinaties van twee lijsten weergeven, zoals in de schermafbeelding hieronder? Dan helpt het List All Combinations-hulpprogramma van Kutools for Excel u daarbij.
1. Klik op Kutools > Insert > List All Combinations.
2. In het List All Combinations-dialoogvenster klikt u op de selectieknop om de eerste lijst te selecteren die u wilt combineren.
3. Klik op Add om de lijst toe te voegen aan de Combinations list-sectie.
4. Herhaal stap 2 en 3 om de tweede lijst toe te voegen aan de 
5. Klik vervolgens op Ok om een cel te selecteren waarin het combinatieresultaat moet worden geplaatst.
6. Klik op OK. Alle mogelijke combinaties worden nu weergegeven in de cellen.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Demo: Vind alle mogelijke combinaties van twee lijsten met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins