Ինչպե՞ս գտնել Excel- ի ցուցակում երկու թվերի բոլոր հնարավոր գումարները:

Ենթադրելով, որ այստեղ թվերի ցուցակ է, այժմ կարո՞ղ եք գտնել այս թվերի երկու թվերի բոլոր հնարավոր գումարները, ինչպես ցույց է տրված ստորև նշված նկարում: Excel- ում ներկառուցված գործառույթ չկա, որը կարող է լուծել այս աշխատանքը: Այժմ ես ձեզ եմ ներկայացնում VBA կոդ ՝ այն կարգավորելու համար:

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

Եթե ​​ցանկանում եք ցուցակում գտնել երկու թվերի բոլոր հնարավոր գումարները, կարող եք դիմել ներքևում գտնվող VBA կոդով:

1. Մամուլ Alt + F11 ստեղները ցուցադրելու համար Microsoft Visual Basic for Applications պատուհան.

2: սեղմեք Insert > 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: սեղմեք Tools > References, բացվող երկխոսության մեջ, ստուգեք Microsoft Scripting Runtime վանդակը.

4: սեղմեք OK երկխոսությունը փակելու համար, ապա սեղմել F5 Կոդը գործարկելու համար բացվում է երկխոսություն `հիշեցնելու համար, որ դուք ընտրում եք ցուցակ` հնարավոր գումարները գտնելու համար:

5: սեղմեք OK, ապա ցուցակում երկու թվերի բոլոր հնարավոր գումարները թվարկված են C սյունակում:

TipThe կոդի տողի մեջ, Range («C1»): Չափափոխել (xDic.Count, 1), կարող եք փոխել C1- ը մեկ այլ բջիջի վրա, քանի որ անհրաժեշտ է արդյունքը տեղադրել:

Find all possible combinations of two lists with List All Combinations

Եթե ​​ցանկանում եք գտնել կամ թվարկել երկու ցուցակի բոլոր հնարավոր համադրությունները, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, ապա List All Combinations օգտակարությունը Kutools for Excel կարող է ձեզ բարեհաճություն դրսեւորել:

1: սեղմեք Kutools > Insert > List All Combinations.

2. Մեջ List All Combinations երկխոսություն, կտտացրեք ընտրելու կոճակին `առաջին ցուցակը ընտրելու համար:

3: սեղմեք Add ցուցակն ավելացնել Combinations list բաժնում:

4. Կրկնեք 2-րդ և 3-րդ քայլերը `երկրորդ ցուցակը լրացնելու համար Combinations list.

5. Այնուհետեւ կտտացրեք Ok ընտրել բջիջ `համակցության արդյունքը տեղադրելու համար:

6: սեղմեք OK, Բոլոր հնարավոր համադրությունները նշված են բջիջներում:

  List all combinations