Excel'de bir listedeki iki sayının tüm olası toplamlarını nasıl hesaplayabilirsiniz?
Excel'de bir listedeki iki sayının tüm olası toplamlarını bulmanız ya da iki listenin tüm olası kombinasyonlarını listelemeniz gerekiyorsa, bunu doğrudan gerçekleştiren yerleşik bir işlev mevcut değildir. Bu kılavuz, toplamları hesaplamak için bir VBA kodu çözümüyle birlikte, kombinasyonları verimli bir şekilde işlemek üzere Kutools for Excel’deki “Tüm Kombinasyonları Listele” yardımcı programını tanıtıyor.
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
Bir listedeki iki sayının tüm olası toplamlarını elde etmek istiyorsanız, aşağıdaki VBA kodunu kullanabilirsiniz.
1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini görüntüleyin.
2. Ekle>Modül seçeneğine tıklayın ve aşağıdaki kodu modüle kopyalayıp yapıştırın.
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. Tools > References seçeneğine tıklayın; açılan iletişim kutusunda Microsoft Scripting Runtime onay kutusunu işaretleyin.
 |  |  |
4. İletişim kutusunu kapatmak için OK seçeneğine tıklayın, ardından kodu çalıştırmak için F5 tuşuna basın. Olası toplamların hesaplanması için bir liste seçmenizi isteyen bir iletişim kutusu görünecektir.
5. OK seçeneğine tıkladığınızda, listedeki iki sayının tüm olası toplamları C sütununda görüntülenecektir.
İpucu: Kod satırındaki Range("C1").Resize(xDic.Count, 1) ifadesinde, sonuçların yerleştirileceği hücre olarak C1’i istediğiniz başka bir hücreyle değiştirebilirsiniz.
Find all possible combinations of two lists with List All Combinations
Aşağıdaki ekran görüntüsünde gösterildiği gibi iki listenin tüm olası kombinasyonlarını listelemek istiyorsanız, List All Combinations yardımcısı, Kutools for Excel ile size yardımcı olabilir.
1. Kutools > Insert > List All Combinations seçeneğine tıklayın.
2. Tüm Kombinasyonları Listele iletişim kutusunda, birleştirilecek ilk listeyi seçmek için seçim düğmesine tıklayın.
3. Listeyi eklemek için Addbölümündeki Combinations listseçeneğine tıklayın.
4. İkinci listeyi Combinations list bölümüne eklemek için 2. ve 3. adımları tekrarlayın.
5. Ardından, kombinasyon sonucunun yerleştirileceği hücreyi seçmek için Okseçeneğine tıklayın.
6. OK seçeneğine tıklayın. Tüm olası kombinasyonlar hücrelerde listelenir.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zekâ özelliklerinden yararlanın.Hemen Edinin
Demo: İki listenin tüm olası kombinasyonlarını Kutools for Excel ile bulun
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, üretkenliğinizi artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro’yu da içerir; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı eklentileri satın almaya göre tasarruf edin