Note: The other languages of the website are Google-translated. Back to English

Bagaimana menemukan semua kemungkinan jumlah dua angka dalam daftar di Excel?

Misalkan di sini adalah daftar angka, sekarang dapatkah Anda menemukan semua kemungkinan jumlah dua angka dalam daftar ini seperti gambar di bawah ini yang ditampilkan? Di Excel, tidak ada fungsi bawaan yang dapat menyelesaikan pekerjaan ini. Sekarang saya memperkenalkan Anda kode VBA untuk menanganinya.
dok semua kemungkinan jumlah dari dua angka 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

Jika Anda ingin menemukan semua kemungkinan jumlah dari dua angka dalam daftar, Anda dapat menerapkan kode VBA di bawah ini.

1. tekan Alt + F11 tombol untuk menampilkan Microsoft Visual Basic for Applications jendela.

2. klik Insert > Module, salin dan tempel kode di bawah ini ke modul.

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

dok semua kemungkinan jumlah dari dua angka 2

3. klik Tools > References, di dialog popping, centang Microsoft Scripting Runtime checkbox.

dok semua kemungkinan jumlah dari dua angka 3 doc panah kanan dok semua kemungkinan jumlah dari dua angka 4

4. klik OK untuk menutup dialog, lalu tekan F5 untuk menjalankan kode, dialog muncul untuk mengingatkan Anda memilih daftar untuk menemukan kemungkinan jumlah.
dok semua kemungkinan jumlah dari dua angka 5

5. klik OK, maka semua kemungkinan jumlah dari dua angka dalam daftar dicantumkan di kolom C.
dok semua kemungkinan jumlah dari dua angka 6

Tip: Dalam string kode, Range ("C1"). Ubah ukuran (xDic.Count, 1), Anda dapat mengubah C1 ke sel lain karena Anda perlu menempatkan hasilnya.


Find all possible combinations of two lists with List All Combinations

Jika Anda ingin mencari atau mendaftar semua kemungkinan kombinasi dari dua daftar seperti gambar di bawah ini yang ditampilkan, List All Combinations kegunaan Kutools for Excel dapat membantu Anda
dok semua kemungkinan jumlah dari dua angka 7

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

1. klik Kutools > Insert > List All Combinations.
dok semua kemungkinan jumlah dari dua angka 8

2. Dalam List All Combinations dialog, klik tombol pilih untuk memilih daftar pertama yang akan Anda gabungkan.
dok semua kemungkinan jumlah dari dua angka 9

3. klik Add untuk menambahkan daftar Combinations list bagian.
dok semua kemungkinan jumlah dari dua angka 10

4. Ulangi langkah 2 dan 3 untuk menambahkan daftar kedua ke Combinations list.
dok semua kemungkinan jumlah dari dua angka 11

5. Lalu klik Ok untuk memilih sel untuk menempatkan hasil kombinasi.
dok semua kemungkinan jumlah dari dua angka 12

6. klik OK. Semua kemungkinan kombinasi telah terdaftar dalam sel.
dok semua kemungkinan jumlah dari dua angka 13

Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL